Running ‘spelling.R’ [0s/1s]
  Running ‘testthat.R’ [53s/82s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(workflowsets)
  > 
  > test_check("workflowsets")
  
  Attaching package: 'dplyr'
  
  The following object is masked from 'package:testthat':
  
      matches
  
  The following objects are masked from 'package:stats':
  
      filter, lag
  
  The following objects are masked from 'package:base':
  
      intersect, setdiff, setequal, union
  
  
  Attaching package: 'rsample'
  
  The following object is masked from 'package:testthat':
  
      matches
  
  
  Attaching package: 'recipes'
  
  The following object is masked from 'package:stats':
  
      step
  
  
  Attaching package: 'rlang'
  
  The following objects are masked from 'package:testthat':
  
      is_false, is_null, is_true
  
  [ FAIL 14 | WARN 22 | SKIP 10 | PASS 301 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • On CRAN (9)
  • rlang::is_installed("rlang") is TRUE (1)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-compat-dplyr.R:193:5'): right_join() restores to the type of first input ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─workflowsets:::expect_s3_class_bare_tibble(right_join(y, x, by = "wflow_id")) at test-compat-dplyr.R:193:4
    2. │ └─testthat::expect_s3_class(...) at tests/testthat/helper-compat.R:11:2
    3. │   └─testthat::quasi_label(enquo(object), arg = "object")
    4. │     └─rlang::eval_bare(expr, quo_get_env(quo))
    5. ├─dplyr::right_join(y, x, by = "wflow_id")
    6. └─dplyr:::right_join.data.frame(y, x, by = "wflow_id")
    7.   └─dplyr:::join_mutate(...)
    8.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
    9.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   10.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   11.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   12.           ├─base::withCallingHandlers(...)
   13.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-compat-dplyr.R:209:5'): full_join() can lose workflow_set class if rows are added ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─workflowsets:::expect_s3_class_bare_tibble(full_join(x, y, by = "wflow_id")) at test-compat-dplyr.R:209:4
    2. │ └─testthat::expect_s3_class(...) at tests/testthat/helper-compat.R:11:2
    3. │   └─testthat::quasi_label(enquo(object), arg = "object")
    4. │     └─rlang::eval_bare(expr, quo_get_env(quo))
    5. ├─dplyr::full_join(x, y, by = "wflow_id")
    6. └─dplyr:::full_join.data.frame(x, y, by = "wflow_id")
    7.   └─dplyr:::join_mutate(...)
    8.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
    9.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   10.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   11.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   12.           ├─base::withCallingHandlers(...)
   13.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-extract.R:81:4'): extract parameter set from workflow set with untunable workflow ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─hardhat::extract_parameter_set_dials(wf_set, id = "reg_lm") at test-extract.R:81:3
    2. ├─workflowsets:::extract_parameter_set_dials.workflow_set(...)
    3. │ ├─hardhat::extract_parameter_set_dials(y$info[[1]]$workflow[[1]])
    4. │ └─workflows:::extract_parameter_set_dials.workflow(y$info[[1]]$workflow[[1]])
    5. │   ├─hardhat::extract_parameter_set_dials(model)
    6. │   └─parsnip:::extract_parameter_set_dials.model_spec(model)
    7. │     ├─generics::tunable(x)
    8. │     ├─parsnip:::tunable.linear_reg(x)
    9. │     ├─base::NextMethod()
   10. │     └─parsnip:::tunable.model_spec(x)
   11. │       └─... %>% ...
   12. ├─dplyr::mutate(...)
   13. ├─dplyr::full_join(...)
   14. └─dplyr:::full_join.data.frame(...)
   15.   └─dplyr:::join_mutate(...)
   16.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   17.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   18.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   19.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   20.           ├─base::withCallingHandlers(...)
   21.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-extract.R:99:4'): extract parameter set from workflow set with tunable workflow ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─hardhat::extract_parameter_set_dials(wf_set, id = "reg_bst") at test-extract.R:99:3
    2. ├─workflowsets:::extract_parameter_set_dials.workflow_set(...)
    3. │ ├─hardhat::extract_parameter_set_dials(y$info[[1]]$workflow[[1]])
    4. │ └─workflows:::extract_parameter_set_dials.workflow(y$info[[1]]$workflow[[1]])
    5. │   ├─hardhat::extract_parameter_set_dials(model)
    6. │   └─parsnip:::extract_parameter_set_dials.model_spec(model)
    7. │     ├─generics::tunable(x)
    8. │     ├─parsnip:::tunable.boost_tree(x)
    9. │     ├─base::NextMethod()
   10. │     └─parsnip:::tunable.model_spec(x)
   11. │       └─... %>% ...
   12. ├─dplyr::mutate(...)
   13. ├─dplyr::full_join(...)
   14. └─dplyr:::full_join.data.frame(...)
   15.   └─dplyr:::join_mutate(...)
   16.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   17.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   18.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   19.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   20.           ├─base::withCallingHandlers(...)
   21.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-extract.R:147:4'): extract single parameter from workflow set with tunable workflow ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-extract.R:147:3
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─hardhat::extract_parameter_dials(wf_set, id = "reg_bst", parameter = "funky name \n")
    5. ├─workflowsets:::extract_parameter_dials.workflow_set(...)
    6. │ ├─hardhat::extract_parameter_dials(y$info[[1]]$workflow[[1]], parameter)
    7. │ └─workflows:::extract_parameter_dials.workflow(...)
    8. │   ├─hardhat::extract_parameter_dials(...)
    9. │   ├─hardhat::extract_parameter_set_dials(x)
   10. │   └─workflows:::extract_parameter_set_dials.workflow(x)
   11. │     ├─hardhat::extract_parameter_set_dials(model)
   12. │     └─parsnip:::extract_parameter_set_dials.model_spec(model)
   13. │       ├─generics::tunable(x)
   14. │       ├─parsnip:::tunable.boost_tree(x)
   15. │       ├─base::NextMethod()
   16. │       └─parsnip:::tunable.model_spec(x)
   17. │         └─... %>% ...
   18. ├─dplyr::mutate(...)
   19. ├─dplyr::full_join(...)
   20. └─dplyr:::full_join.data.frame(...)
   21.   └─dplyr:::join_mutate(...)
   22.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   23.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   24.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   25.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   26.           ├─base::withCallingHandlers(...)
   27.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Failure ('test-options.R:27:3'): option management ──────────────────────────
  `set_4 <- two_class_set %>% option_add_parameters()` threw an unexpected error.
  Message: i In index: 2.
  Caused by error in `vectbl_assign()`:
  ! DLL requires the use of native symbols
  Class:   purrr_error_indexed/rlang_error/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test-options.R:27:2
    2. │ └─testthat:::expect_condition_matching(...)
    3. │   └─testthat:::quasi_capture(...)
    4. │     ├─testthat (local) .capture(...)
    5. │     │ └─base::withCallingHandlers(...)
    6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─two_class_set %>% option_add_parameters()
    8. ├─workflowsets::option_add_parameters(.)
    9. │ └─purrr::map(x$info, ~maybe_param(.x$workflow[[1]]))
   10. │   └─purrr:::map_("list", .x, .f, ..., .progress = .progress)
   11. │     ├─purrr:::with_indexed_errors(...)
   12. │     │ └─base::withCallingHandlers(...)
   13. │     ├─purrr:::call_with_cleanup(...)
   14. │     └─workflowsets (local) .f(.x[[i]], ...)
   15. │       └─workflowsets:::maybe_param(.x$workflow[[1]])
   16. │         ├─hardhat::extract_parameter_set_dials(x)
   17. │         └─workflows:::extract_parameter_set_dials.workflow(x)
   18. │           ├─hardhat::extract_parameter_set_dials(model)
   19. │           └─parsnip:::extract_parameter_set_dials.model_spec(model)
   20. │             ├─generics::tunable(x)
   21. │             ├─parsnip:::tunable.logistic_reg(x)
   22. │             ├─base::NextMethod()
   23. │             └─parsnip:::tunable.model_spec(x)
   24. │               └─... %>% ...
   25. ├─dplyr::mutate(...)
   26. ├─dplyr::full_join(...)
   27. ├─dplyr:::full_join.data.frame(...)
   28. │ └─dplyr:::join_mutate(...)
   29. │   ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   30. │   └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   31. │     └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   32. │       └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   33. │         ├─base::withCallingHandlers(...)
   34. │         └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   35. └─base::.handleSimpleError(...)
   36.   └─purrr (local) h(simpleError(msg, call))
   37.     └─cli::cli_abort(...)
   38.       └─rlang::abort(...)
  ── Error ('test-options.R:31:3'): option management ────────────────────────────
  Error in `eval(code, test_env)`: object 'set_4' not found
  Backtrace:
      ▆
   1. ├─base::which(!grepl("glm", set_4$wflow_id)) at test-options.R:31:2
   2. └─base::grepl("glm", set_4$wflow_id)
   3.   └─base::is.factor(x)
  ── Error ('test-workflow-map.R:48:3'): basic mapping ───────────────────────────
  Error in `halt(msg)`: There were 2 workflows that had no results.
  Backtrace:
      ▆
   1. ├─testthat::expect_equal(collect_metrics(res_1), collect_metrics(res_2)) at test-workflow-map.R:48:2
   2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. ├─tune::collect_metrics(res_1)
   5. └─workflowsets:::collect_metrics.workflow_set(res_1)
   6.   └─workflowsets:::check_incompete(x, fail = TRUE)
   7.     └─workflowsets:::halt(msg)
   8.       └─rlang::abort(paste0(...))
  ── Failure ('test-workflow_set.R:45:3'): creating workflow sets ────────────────
  all(purrr::map_lgl(car_set_1$result, is.list)) is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  ── Failure ('test-workflow_set.R:55:3'): creating workflow sets ────────────────
  all(purrr::map_lgl(car_set_1$result, ~inherits(.x, "resample_results"))) is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  ── Failure ('test-workflow_set.R:58:3'): creating workflow sets ────────────────
  all(purrr::map_lgl(car_set_1$result, ~any(names(.x) == ".predictions"))) is not TRUE
  
  `actual`:   FALSE
  `expected`: TRUE 
  ── Error ('test-workflow_set.R:67:3'): creating workflow sets ──────────────────
  <purrr_error_indexed/rlang_error/error/condition>
  Error in `purrr::map(car_set_1$result, extract_workflow)`: i In index: 1.
  Caused by error in `UseMethod()`:
  ! no applicable method for 'extract_workflow' applied to an object of class "try-error"
  Backtrace:
       ▆
    1. ├─purrr::map(car_set_1$result, extract_workflow) at test-workflow_set.R:67:2
    2. │ └─purrr:::map_("list", .x, .f, ..., .progress = .progress)
    3. │   ├─purrr:::with_indexed_errors(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   ├─purrr:::call_with_cleanup(...)
    6. │   └─hardhat (local) .f(.x[[i]], ...)
    7. └─base::.handleSimpleError(...)
    8.   └─purrr (local) h(simpleError(msg, call))
    9.     └─cli::cli_abort(...)
   10.       └─rlang::abort(...)
  ── Error ('test-workflow_set.R:274:3'): correct object type and resamples ──────
  <purrr_error_indexed/rlang_error/error/condition>
  Error in `purrr::map(., ~tune::fit_resamples(.x, resamples = bootstraps(mtcars, 
      3)))`: i In index: 1.
  Caused by error in `vectbl_assign()`:
  ! DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% ... at test-workflow_set.R:274:2
    2. ├─purrr::map(...)
    3. │ └─purrr:::map_("list", .x, .f, ..., .progress = .progress)
    4. │   ├─purrr:::with_indexed_errors(...)
    5. │   │ └─base::withCallingHandlers(...)
    6. │   ├─purrr:::call_with_cleanup(...)
    7. │   └─workflowsets (local) .f(.x[[i]], ...)
    8. │     ├─tune::fit_resamples(.x, resamples = bootstraps(mtcars, 3))
    9. │     └─tune:::fit_resamples.workflow(...)
   10. │       └─tune:::resample_workflow(...)
   11. │         └─tune:::tune_grid_workflow(...)
   12. │           └─tune::check_parameters(...)
   13. │             ├─hardhat::extract_parameter_set_dials(wflow)
   14. │             └─workflows:::extract_parameter_set_dials.workflow(wflow)
   15. │               ├─hardhat::extract_parameter_set_dials(model)
   16. │               └─parsnip:::extract_parameter_set_dials.model_spec(model)
   17. │                 ├─generics::tunable(x)
   18. │                 ├─parsnip:::tunable.linear_reg(x)
   19. │                 ├─base::NextMethod()
   20. │                 └─parsnip:::tunable.model_spec(x)
   21. │                   └─... %>% ...
   22. ├─dplyr::mutate(...)
   23. ├─dplyr::full_join(...)
   24. ├─dplyr:::full_join.data.frame(...)
   25. │ └─dplyr:::join_mutate(...)
   26. │   ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   27. │   └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   28. │     └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   29. │       └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   30. │         ├─base::withCallingHandlers(...)
   31. │         └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   32. └─base::.handleSimpleError(...)
   33.   └─purrr (local) h(simpleError(msg, call))
   34.     └─cli::cli_abort(...)
   35.       └─rlang::abort(...)
  ── Error ('test-workflow_set.R:350:3'): checking resamples ─────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─lr_spec %>% ... at test-workflow_set.R:350:2
    2. ├─tune::fit_resamples(., mpg ~ wt, resamples = cv_1, control = ctrl)
    3. ├─tune:::fit_resamples.model_spec(...)
    4. │ ├─tune::fit_resamples(...)
    5. │ └─tune:::fit_resamples.workflow(...)
    6. │   └─tune:::resample_workflow(...)
    7. │     └─tune:::tune_grid_workflow(...)
    8. │       └─tune::check_parameters(...)
    9. │         ├─hardhat::extract_parameter_set_dials(wflow)
   10. │         └─workflows:::extract_parameter_set_dials.workflow(wflow)
   11. │           ├─hardhat::extract_parameter_set_dials(model)
   12. │           └─parsnip:::extract_parameter_set_dials.model_spec(model)
   13. │             ├─generics::tunable(x)
   14. │             ├─parsnip:::tunable.linear_reg(x)
   15. │             ├─base::NextMethod()
   16. │             └─parsnip:::tunable.model_spec(x)
   17. │               └─... %>% ...
   18. ├─dplyr::mutate(...)
   19. ├─dplyr::full_join(...)
   20. └─dplyr:::full_join.data.frame(...)
   21.   └─dplyr:::join_mutate(...)
   22.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   23.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   24.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   25.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   26.           ├─base::withCallingHandlers(...)
   27.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  
  [ FAIL 14 | WARN 22 | SKIP 10 | PASS 301 ]
  Error: Test failures
  Execution halted