Running examples in ‘sknifedatar-Ex.R’ failed
The error most likely occurred in:

> ### Name: modeltime_wfs_bestmodel
> ### Title: Modeltime best workflow from a set of models
> ### Aliases: modeltime_wfs_bestmodel
> 
> ### ** Examples
> 
> library(dplyr)

Attaching package: ‘dplyr’

The following objects are masked from ‘package:stats’:

    filter, lag

The following objects are masked from ‘package:base’:

    intersect, setdiff, setequal, union

> library(earth)
Loading required package: Formula
Loading required package: plotmo
Loading required package: plotrix
Loading required package: TeachingDemos
> data <- sknifedatar::data_avellaneda %>% mutate(date=as.Date(date)) %>% filter(date<'2012-06-01')
> 
> recipe_date <- recipes::recipe(value ~ ., data = data) %>% 
+   recipes::step_date(date, features = c('dow','doy','week','month','year')) 
> 
> mars <- parsnip::mars(mode = 'regression') %>%
+   parsnip::set_engine('earth')
> 
> wfsets <- workflowsets::workflow_set(
+   preproc = list(
+     R_date = recipe_date),
+   models  = list(M_mars = mars),
+   cross   = TRUE)
> 
> wffits <- sknifedatar::modeltime_wfs_fit(.wfsets = wfsets, 
+                                          .split_prop = 0.8, 
+                                          .serie=data)

── MODEL: R_date_M_mars 
! Warninng: the model raised an error,it will be ignored 
Error: `x` cannot be a vector.


── 0 models fitted ♥ ───────────────────────────────────────────────────────────

── 1 models deleted ✖ ──

> 
> sknifedatar::modeltime_wfs_bestmodel(.wfs_results = wffits,
+                                      .metric='rsq',
+                                      .minimize = FALSE)
Error: arrange() failed at implicit mutate() step. 
* Problem with `mutate()` column `..1`.
ℹ `..1 = -eval(parse(text = rank_metric))`.
✖ object 'rsq' not found
Backtrace:
     █
  1. ├─sknifedatar::modeltime_wfs_bestmodel(...)
  2. │ └─sknifedatar::modeltime_wfs_rank(...)
  3. │   └─`%>%`(...)
  4. ├─dplyr::mutate(., rank = 1:nrow(.))
  5. ├─dplyr::arrange(., -eval(parse(text = rank_metric)))
  6. ├─dplyr:::arrange.data.frame(., -eval(parse(text = rank_metric)))
  7. │ └─dplyr:::arrange_rows(.data, dots)
  8. │   ├─base::withCallingHandlers(...)
  9. │   ├─dplyr::transmute(new_data_frame(.data), !!!quosures)
 10. │   └─dplyr:::transmute.data.frame(new_data_frame(.data), !!!quosures)
 11. │     ├─dplyr::mutate(.data, !!!dots, .keep = "none")
 12. │     └─dplyr:::mutate.data.frame(.data, !!!dots, .keep = "none")
 13. │       └─dplyr:::mutate_cols(.data, ..., caller_env = caller_env())
 14. │         ├─base::withCallingHandlers(...)
 15. │         └─mask$eval_all_mutate(quo)
 16. ├─base::eval(parse(text = rank_metric))
 17. │ └─base::eval(parse(text = rank_metric))
 18. ├─base::.handleSimpleError(...)
 19. │ └─dplyr:::h(simpleError(msg, call))
 20. │   └─rlang::abort(...)
 21. │     └─rlang:::signal_abort(cnd)
 22. │       └─base::signalCondition(cnd)
 23. └─(function (cnd) ...
Execution halted