Running ‘spelling.R’ [0s/1s]
  Running ‘testthat.R’ [60s/90s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(tidycmprsk)
  > 
  > test_check("tidycmprsk")
  ! The `autoplot.tidycuminc()` function is deprecated and no longer maintained.
  i Use `ggsurvfit::ggcuminc()` instead.
  ! The `autoplot.tidycuminc()` function is deprecated and no longer maintained.
  i Use `ggsurvfit::ggcuminc()` instead.
  11 cases omitted due to missing values
  
  -- crr() -----------------------------------------------------------------------
  * Call Surv(ttdeath, death_cr) ~ age
  * Failure type of interest "death from cancer"
  
  Variable   Coef    SE      HR     95% CI       p-value    
  age        0.006   0.010   1.01   0.99, 1.03   0.55       
  11 cases omitted due to missing values
  11 cases omitted due to missing values
  11 cases omitted due to missing values
  11 cases omitted due to missing values
  11 cases omitted due to missing values
  x There was an error evaluating the LHS of the formula.
  
  -- cuminc() --------------------------------------------------------------------
  
  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
  
  11 cases omitted due to missing values
  11 cases omitted due to missing values
  11 cases omitted due to missing values
  [ FAIL 5 | WARN 0 | SKIP 0 | PASS 52 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Failure ('test-autoplot.R:2:3'): autoplot() works ───────────────────────────
  `cuminc(Surv(ttdeath, death_cr) ~ trt, trial) %>% autoplot()` threw an unexpected error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test-autoplot.R:2: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. ├─cuminc(Surv(ttdeath, death_cr) ~ trt, trial) %>% autoplot()
    8. ├─ggplot2::autoplot(.)
    9. ├─tidycmprsk:::autoplot.tidycuminc(.)
   10. │ ├─... %>% filter(.data$outcome %in% .env$outcomes)
   11. │ ├─generics::tidy(object, conf.int = conf.int, conf.level = conf.level)
   12. │ └─tidycmprsk:::tidy.tidycuminc(object, conf.int = conf.int, conf.level = conf.level)
   13. │   └─tidycmprsk:::.add_tidy_times(x$tidy, times = times)
   14. │     ├─... %>% ...
   15. │     ├─dplyr::full_join(...)
   16. │     └─dplyr:::full_join.data.frame(...)
   17. │       └─dplyr:::join_mutate(...)
   18. │         ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,3]>`)
   19. │         └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,3]>`)
   20. │           └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   21. │             └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   22. │               ├─base::withCallingHandlers(...)
   23. │               └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   24. ├─dplyr::filter(., .data$outcome %in% .env$outcomes)
   25. └─dplyr::arrange(...)
  ── Failure ('test-cuminc-base_methods.R:4:3'): base methods ────────────────────
  `print(cuminc2)` threw an unexpected error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(print(cuminc2), NA) at test-cuminc-base_methods.R:4: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. ├─base::print(cuminc2)
    8. ├─tidycmprsk:::print.tidycuminc(cuminc2)
    9. │ ├─generics::tidy(x, times = times)
   10. │ └─tidycmprsk:::tidy.tidycuminc(x, times = times)
   11. │   └─tidycmprsk:::.add_tidy_times(x$tidy, times = times)
   12. │     ├─... %>% ...
   13. │     ├─dplyr::full_join(...)
   14. │     └─dplyr:::full_join.data.frame(...)
   15. │       └─dplyr:::join_mutate(...)
   16. │         ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,3]>`)
   17. │         └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,3]>`)
   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]])
   22. └─dplyr::arrange(...)
  ── Error ('test-cuminc-broom_methods.R:36:3'): broom methods ───────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-cuminc-broom_methods.R:36:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─tidy(cuminc1, times = 15) %>% dplyr::pull(estimate)
    5. ├─dplyr::pull(., estimate)
    6. ├─generics::tidy(cuminc1, times = 15)
    7. ├─tidycmprsk:::tidy.tidycuminc(cuminc1, times = 15)
    8. │ └─tidycmprsk:::.add_tidy_times(x$tidy, times = times)
    9. │   ├─... %>% ...
   10. │   ├─dplyr::full_join(...)
   11. │   └─dplyr:::full_join.data.frame(...)
   12. │     └─dplyr:::join_mutate(...)
   13. │       ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   14. │       └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   15. │         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   16. │           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   17. │             ├─base::withCallingHandlers(...)
   18. │             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   19. └─dplyr::arrange(...)
  ── Failure ('test-tbl_cuminc.R:2:3'): tbl_cuminc() works ───────────────────────
  `... <- NULL` threw an unexpected error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test-tbl_cuminc.R:2: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. ├─... %>% add_n(location = c("label", "level"))
    8. ├─gtsummary::add_n(., location = c("label", "level"))
    9. ├─gtsummary::add_nevent(., location = c("label", "level"))
   10. ├─tidycmprsk::tbl_cuminc(., times = c(12, 24), label_header = "**Month {time}**")
   11. ├─tidycmprsk:::tbl_cuminc.tidycuminc(., times = c(12, 24), label_header = "**Month {time}**")
   12. │ ├─... %>% dplyr::ungroup()
   13. │ ├─generics::tidy(x, times = times, conf.level = conf.level)
   14. │ └─tidycmprsk:::tidy.tidycuminc(x, times = times, conf.level = conf.level)
   15. │   └─tidycmprsk:::.add_tidy_times(x$tidy, times = times)
   16. │     ├─... %>% ...
   17. │     ├─dplyr::full_join(...)
   18. │     └─dplyr:::full_join.data.frame(...)
   19. │       └─dplyr:::join_mutate(...)
   20. │         ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   21. │         └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   22. │           └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   23. │             └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   24. │               ├─base::withCallingHandlers(...)
   25. │               └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   26. ├─dplyr::ungroup(.)
   27. ├─dplyr::mutate(...)
   28. ├─dplyr::group_by(., across(any_of(c("outcome", "strata"))))
   29. ├─dplyr::select(...)
   30. ├─dplyr::mutate(...)
   31. ├─dplyr::select(...)
   32. ├─dplyr::filter(., .data$outcome %in% .env$outcomes)
   33. └─dplyr::arrange(...)
  ── Error ('test-tbl_cuminc.R:10:3'): tbl_cuminc() works ────────────────────────
  Error in `eval(code, test_env)`: object 'tbl0' not found
  Backtrace:
      ▆
   1. ├─testthat::expect_equal(inline_text(tbl0, time = 12), "6.0% (3.3%, 9.9%)") at test-tbl_cuminc.R:10:2
   2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─gtsummary::inline_text(tbl0, time = 12)
  
  [ FAIL 5 | WARN 0 | SKIP 0 | PASS 52 ]
  Error: Test failures
  Execution halted