Make helper function to pull wflw_fit from boilerplate functions

[spsanderson]

Example:

library(tidyverse)
library(healthyverse)
library(timetk)
library(modeltime)

df <- AirPassengers %>%
  ts_to_tbl() %>%
  select(-index)

splits <- time_series_split(
  df
  , date_col
  , assess = 12
  , skip = 3
  , cumulative = TRUE
)

ts_auto_arima <- ts_auto_arima(
  .data = df,
  .num_cores = 5,
  .date_col = date_col,
  .value_col = value,
  .rsamp_obj = splits,
  .formula = value ~ .,
  .grid_size = 20,
  .cv_slice_limit = 2
)

model_fit <- ts_auto_arima$model_info$fitted_wflw

Possible function:

ts_extract_auto_fitted_workflow <- function(.input){
  
  # Input
  input <- .input
  
  # Extract Fitted Workflow
  fitted_wfwl <- input$model_info$fitted_wflw
  
  return(fitted_wfwl)
}