Running ‘testthat.R’ [61s/95s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > # This file is part of the standard setup for testthat.
  > # It is recommended that you do not modify it.
  > #
  > # Where should you do additional test configuration?
  > # Learn more about the roles of various files in:
  > # * https://r-pkgs.org/tests.html
  > # * https://testthat.r-lib.org/reference/test_package.html#special-files
  > 
  > library(testthat)
  > library(survHE)
  Loading required package: flexsurv
  Loading required package: survival
  Loading required package: dplyr
  
  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
  
  Loading required package: ggplot2
  > 
  > test_check("survHE")
  [ FAIL 1 | WARN 0 | SKIP 0 | PASS 0 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-make.surv.R:13:3'): output plots don't throw an error and return ggplot2 list ──
  Error in `select(., -matches("(Intercept)", everything()))`: i In argument: `matches("(Intercept)", everything())`.
  Caused by error in `grep()`:
  ! 'length = 3' in coercion to 'logical(1)'
  Backtrace:
       ▆
    1. ├─testthat::expect_type(plot(mle, nsim = 10), "list") at test-make.surv.R:13:3
    2. │ └─testthat::quasi_label(enquo(object), arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─base::plot(mle, nsim = 10)
    5. ├─survHE::plot.survHE(mle, nsim = 10)
    6. │ └─survHE:::plot_ggplot_survHE(exArgs)
    7. │   ├─dplyr::ungroup(...)
    8. │   ├─dplyr::mutate(...)
    9. │   ├─dplyr::group_by(...)
   10. │   ├─dplyr::bind_rows(...)
   11. │   │ └─rlang::list2(...)
   12. │   └─base::lapply(...)
   13. │     └─survHE (local) FUN(X[[i]], ...)
   14. │       ├─dplyr::mutate(...)
   15. │       └─survHE:::make_data_surv(...)
   16. │         └─base::lapply(...)
   17. │           └─survHE (local) FUN(X[[i]], ...)
   18. │             ├─... %>% select(strata)
   19. │             └─base::lapply(...)
   20. │               └─survHE (local) FUN(X[[i]], ...)
   21. │                 └─... %>% ...
   22. ├─dplyr::select(., strata)
   23. ├─dplyr::bind_rows(.)
   24. │ └─rlang::list2(...)
   25. ├─dplyr::mutate(., strata = paste0(names(.), "=", ., collapse = ","))
   26. ├─dplyr::slice(., x)
   27. ├─dplyr::select(., -matches("(Intercept)", everything()))
   28. ├─dplyr:::select.data.frame(., -matches("(Intercept)", everything()))
   29. │ └─tidyselect::eval_select(expr(c(...)), data = .data, error_call = error_call)
   30. │   └─tidyselect:::eval_select_impl(...)
   31. │     ├─tidyselect:::with_subscript_errors(...)
   32. │     │ └─base::withCallingHandlers(...)
   33. │     └─tidyselect:::vars_select_eval(...)
   34. │       └─tidyselect:::walk_data_tree(expr, data_mask, context_mask)
   35. │         └─tidyselect:::eval_c(expr, data_mask, context_mask)
   36. │           └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init)
   37. │             └─tidyselect:::walk_data_tree(new, data_mask, context_mask)
   38. │               └─tidyselect:::eval_context(expr, context_mask, call = error_call)
   39. │                 ├─tidyselect:::with_chained_errors(...)
   40. │                 │ └─base::withCallingHandlers(...)
   41. │                 └─rlang::eval_tidy(as_quosure(expr, env), context_mask)
   42. ├─tidyselect::matches("(Intercept)", everything())
   43. │ └─tidyselect:::flat_map_int(...)
   44. │   └─tidyselect:::map(unname(.x), .fn, ...)
   45. │     └─base::lapply(.x, .f, ...)
   46. │       └─tidyselect (local) FUN(X[[i]], ...)
   47. │         └─base::grep(needle, haystack, ...)
   48. └─base::.handleSimpleError(...)
   49.   └─tidyselect (local) h(simpleError(msg, call))
   50.     └─cli::cli_abort(c(i = msg), call = call, parent = cnd)
   51.       └─rlang::abort(...)
  
  [ FAIL 1 | WARN 0 | SKIP 0 | PASS 0 ]
  Error: Test failures
  Execution halted