Resample Fails with Parnsip Fit Model that uses Inline Functions about modeltime.resample

[mdancho84]

Solution: Convert to a workflow with recipe()

Example:

mod_lm <- linear_reg() %>%
    set_engine("lm")

recipe_spec <- recipe(value ~ date, data = training(splits)) %>%
    step_mutate(
        date_num = as.numeric(date),
        date_mon = month(date, label = TRUE)
    ) %>%
    step_rm(date)
    
wflw_lm <- workflow() %>%
    add_model(mod_lm) %>%
    add_recipe(recipe_spec) %>%
    fit(training(splits))

This succeeds:

# > modeltime_table(wflw_lm) %>%
#     +     modeltime_fit_resamples(
#         +         resamples = resamples_tscv,
#         +         control   = control_resamples(verbose = TRUE, allow_par = TRUE)
#         +     )
# -- Fitting Resamples --------------------------------------------
#     
#     * Model ID: 1 LM
# i Slice1: preprocessor 1/1
# v Slice1: preprocessor 1/1
# i Slice1: preprocessor 1/1, model 1/1
# v Slice1: preprocessor 1/1, model 1/1
# i Slice1: preprocessor 1/1, model 1/1 (predictions)
# i Slice2: preprocessor 1/1
# v Slice2: preprocessor 1/1
# i Slice2: preprocessor 1/1, model 1/1
# v Slice2: preprocessor 1/1, model 1/1
# i Slice2: preprocessor 1/1, model 1/1 (predictions)
# i Slice3: preprocessor 1/1
# v Slice3: preprocessor 1/1
# i Slice3: preprocessor 1/1, model 1/1
# v Slice3: preprocessor 1/1, model 1/1
# i Slice3: preprocessor 1/1, model 1/1 (predictions)
# 1.37 sec elapsed
# 
# # Modeltime Table
# # A tibble: 1 x 4
# .model_id .model     .model_desc .resample_results
# <int> <list>     <chr>       <list>           
#     1         1 <workflow> LM          <rsmp[+]>