Running ‘testthat.R’ [13s/15s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > 
  > # Machine Learning
  > library(tidymodels)
  ── Attaching packages ────────────────────────────────────── tidymodels 1.3.0 ──
  ✔ broom        1.0.9     ✔ recipes      1.3.1
  ✔ dials        1.4.1     ✔ rsample      1.3.1
  ✔ dplyr        1.1.4     ✔ tibble       3.3.0
  ✔ ggplot2      3.5.2     ✔ tidyr        1.3.1
  ✔ infer        1.0.9     ✔ tune         2.0.0
  ✔ modeldata    1.5.1     ✔ workflows    1.3.0
  ✔ parsnip      1.3.3     ✔ workflowsets 1.1.1
  ✔ purrr        1.1.0     ✔ yardstick    1.3.2
  ── Conflicts ───────────────────────────────────────── tidymodels_conflicts() ──
  ✖ purrr::discard() masks scales::discard()
  ✖ dplyr::filter()  masks stats::filter()
  ✖ purrr::is_null() masks testthat::is_null()
  ✖ dplyr::lag()     masks stats::lag()
  ✖ tidyr::matches() masks rsample::matches(), dplyr::matches(), testthat::matches()
  ✖ recipes::step()  masks stats::step()
  > library(modeltime)
  > library(modeltime.resample)
  > 
  > library(glmnet)
  Loading required package: Matrix
  
  Attaching package: 'Matrix'
  
  The following objects are masked from 'package:tidyr':
  
      expand, pack, unpack
  
  Loaded glmnet 4.1-10
  > 
  > # Core Packages
  > library(timetk)
  > library(lubridate)
  
  Attaching package: 'lubridate'
  
  The following objects are masked from 'package:base':
  
      date, intersect, setdiff, union
  
  > 
  > test_check("modeltime.resample")
  [ FAIL 3 | WARN 0 | SKIP 0 | PASS 6 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-modeltime_fit_resamples.R:39:5'): Structure: modeltime_fit_resamples() ──
  <vctrs_error_subscript_oob/vctrs_error_subscript/rlang_error/error/condition>
  Error in `dplyr::select(., id, .model_id, .model_desc, .predictions)`: Can't select columns that don't exist.
  ✖ Column `id` doesn't exist.
  Backtrace:
       ▆
    1. ├─modeltime.resample::unnest_modeltime_resamples(m750_models_resample) at test-modeltime_fit_resamples.R:39:5
    2. │ └─... %>% dplyr::bind_rows()
    3. ├─dplyr::bind_rows(.)
    4. │ └─rlang::list2(...)
    5. ├─purrr::map(., tibble::rowid_to_column, var = ".row_id")
    6. │ └─purrr:::map_("list", .x, .f, ..., .progress = .progress)
    7. │   └─purrr:::vctrs_vec_compat(.x, .purrr_user_env)
    8. ├─dplyr::group_split(., .model_id)
    9. ├─tidyr::unnest(., .predictions)
   10. ├─dplyr::rename(., .resample_id = id)
   11. ├─dplyr::select(., id, .model_id, .model_desc, .predictions)
   12. ├─dplyr:::select.data.frame(., id, .model_id, .model_desc, .predictions)
   13. │ └─tidyselect::eval_select(expr(c(...)), data = .data, error_call = error_call)
   14. │   └─tidyselect:::eval_select_impl(...)
   15. │     ├─tidyselect:::with_subscript_errors(...)
   16. │     │ └─base::withCallingHandlers(...)
   17. │     └─tidyselect:::vars_select_eval(...)
   18. │       └─tidyselect:::walk_data_tree(expr, data_mask, context_mask)
   19. │         └─tidyselect:::eval_c(expr, data_mask, context_mask)
   20. │           └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init)
   21. │             └─tidyselect:::walk_data_tree(new, data_mask, context_mask)
   22. │               └─tidyselect:::as_indices_sel_impl(...)
   23. │                 └─tidyselect:::as_indices_impl(...)
   24. │                   └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg)
   25. │                     └─vctrs::vec_as_location(...)
   26. └─vctrs (local) `<fn>`()
   27.   └─vctrs:::stop_subscript_oob(...)
   28.     └─vctrs:::stop_subscript(...)
   29.       └─rlang::abort(...)
  ── Error ('test-modeltime_fit_resamples.R:73:5'): Structure:: modeltime_resample_accuracy() ──
  <vctrs_error_subscript_oob/vctrs_error_subscript/rlang_error/error/condition>
  Error in `dplyr::select(., id, .model_id, .model_desc, .predictions)`: Can't select columns that don't exist.
  ✖ Column `id` doesn't exist.
  Backtrace:
       ▆
    1. ├─m750_models_resample %>% modeltime_resample_accuracy() at test-modeltime_fit_resamples.R:73:5
    2. ├─modeltime.resample::modeltime_resample_accuracy(.)
    3. │ └─modeltime.resample::unnest_modeltime_resamples(object)
    4. │   └─... %>% dplyr::bind_rows()
    5. ├─dplyr::bind_rows(.)
    6. │ └─rlang::list2(...)
    7. ├─purrr::map(., tibble::rowid_to_column, var = ".row_id")
    8. │ └─purrr:::map_("list", .x, .f, ..., .progress = .progress)
    9. │   └─purrr:::vctrs_vec_compat(.x, .purrr_user_env)
   10. ├─dplyr::group_split(., .model_id)
   11. ├─tidyr::unnest(., .predictions)
   12. ├─dplyr::rename(., .resample_id = id)
   13. ├─dplyr::select(., id, .model_id, .model_desc, .predictions)
   14. ├─dplyr:::select.data.frame(., id, .model_id, .model_desc, .predictions)
   15. │ └─tidyselect::eval_select(expr(c(...)), data = .data, error_call = error_call)
   16. │   └─tidyselect:::eval_select_impl(...)
   17. │     ├─tidyselect:::with_subscript_errors(...)
   18. │     │ └─base::withCallingHandlers(...)
   19. │     └─tidyselect:::vars_select_eval(...)
   20. │       └─tidyselect:::walk_data_tree(expr, data_mask, context_mask)
   21. │         └─tidyselect:::eval_c(expr, data_mask, context_mask)
   22. │           └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init)
   23. │             └─tidyselect:::walk_data_tree(new, data_mask, context_mask)
   24. │               └─tidyselect:::as_indices_sel_impl(...)
   25. │                 └─tidyselect:::as_indices_impl(...)
   26. │                   └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg)
   27. │                     └─vctrs::vec_as_location(...)
   28. └─vctrs (local) `<fn>`()
   29.   └─vctrs:::stop_subscript_oob(...)
   30.     └─vctrs:::stop_subscript(...)
   31.       └─rlang::abort(...)
  ── Error ('test-modeltime_fit_resamples.R:113:5'): plot_modeltime_resamples() works ──
  <vctrs_error_subscript_oob/vctrs_error_subscript/rlang_error/error/condition>
  Error in `dplyr::select(., id, .model_id, .model_desc, .predictions)`: Can't select columns that don't exist.
  ✖ Column `id` doesn't exist.
  Backtrace:
       ▆
    1. ├─m750_models_resample %>% ... at test-modeltime_fit_resamples.R:113:5
    2. ├─modeltime.resample::plot_modeltime_resamples(., .interactive = TRUE)
    3. │ └─.data %>% dplyr::ungroup() %>% unnest_modeltime_resamples()
    4. ├─modeltime.resample::unnest_modeltime_resamples(.)
    5. │ └─... %>% dplyr::bind_rows()
    6. ├─dplyr::bind_rows(.)
    7. │ └─rlang::list2(...)
    8. ├─purrr::map(., tibble::rowid_to_column, var = ".row_id")
    9. │ └─purrr:::map_("list", .x, .f, ..., .progress = .progress)
   10. │   └─purrr:::vctrs_vec_compat(.x, .purrr_user_env)
   11. ├─dplyr::group_split(., .model_id)
   12. ├─tidyr::unnest(., .predictions)
   13. ├─dplyr::rename(., .resample_id = id)
   14. ├─dplyr::select(., id, .model_id, .model_desc, .predictions)
   15. ├─dplyr:::select.data.frame(., id, .model_id, .model_desc, .predictions)
   16. │ └─tidyselect::eval_select(expr(c(...)), data = .data, error_call = error_call)
   17. │   └─tidyselect:::eval_select_impl(...)
   18. │     ├─tidyselect:::with_subscript_errors(...)
   19. │     │ └─base::withCallingHandlers(...)
   20. │     └─tidyselect:::vars_select_eval(...)
   21. │       └─tidyselect:::walk_data_tree(expr, data_mask, context_mask)
   22. │         └─tidyselect:::eval_c(expr, data_mask, context_mask)
   23. │           └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init)
   24. │             └─tidyselect:::walk_data_tree(new, data_mask, context_mask)
   25. │               └─tidyselect:::as_indices_sel_impl(...)
   26. │                 └─tidyselect:::as_indices_impl(...)
   27. │                   └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg)
   28. │                     └─vctrs::vec_as_location(...)
   29. └─vctrs (local) `<fn>`()
   30.   └─vctrs:::stop_subscript_oob(...)
   31.     └─vctrs:::stop_subscript(...)
   32.       └─rlang::abort(...)
  
  [ FAIL 3 | WARN 0 | SKIP 0 | PASS 6 ]
  Error: Test failures
  Execution halted