Carrier-Farag rough_method fails with smooths flexible

[cimentadaj]

Using data_in.csv.

library(ODAPbackend)
library(readr)

data_in <- read_csv("~/Downloads/data_in.csv")

expo <- smooth_flexible(
    data_in,
    variable = "Exposures",
    rough_method = "Carrier-Farrag",
    fine_method = "auto",
    constrain_infants = TRUE,
    age_out = "single"
  )

> library(ODAPbackend)
Loading required package: ggplot2
> library(readr)
> 
> data_in <- read_csv("~/Downloads/data_in.csv")
Rows: 88 Columns: 8
── Column specification ────────────────────────────────────────────────────────
Delimiter: ","
chr (3): .id_label, Sex, Province
dbl (5): .id, Deaths, Exposures, Age, AgeInt

ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
> 
> expo <- smooth_flexible(
+     data_in,
+     variable = "Exposures",
+     rough_method = "Carrier-Farrag",
+     fine_method = "auto",
+     constrain_infants = TRUE,
+     age_out = "single"
+   )
Error in `mutate()` at ODAPbackend/R/graduation.R:99:3:
ℹ In argument: `result = map(data, ~group_func(.x))`.
Caused by error in `map()`:
ℹ In index: 1.
Caused by error in `mutate()` at ODAPbackend/R/graduation.R:887:5:
ℹ In argument: `Exposures = smooth_age_5(Value = Exposures, Age = Age,
  method = rough_method)`.
Caused by error in `smooth_age_5()`:
! object 'keep_infants' not found
Run `rlang::last_trace()` to see where the error occurred.

[TTRustam]

Good afternoon dear Jorge!

I hope you are doing fine.
I have checked your code, and it works fine on my machine. Therefore, I expect it to be a package version problem.
Do you use ODAPbackend_00.03.005??? This is the version I`m using, and it works with your example.
Thank you, Jorge.

Best regards,
RUstam.