Running ‘testthat.R’ [10s/10s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(survParamSim)
  > 
  > options(lifecycle_verbosity = "error")
  > test_check("survParamSim")
  ── ERROR (test-calc_hr_pi.R:89:3): check HR calculation ────────────────────────
  Error: The `value` argument of ``names<-`()` can't be NULL as of tibble 3.0.0.
  `names` must not be `NULL`.
  Backtrace:
       █
    1. ├─survParamSim::extract_hr(...) test-calc_hr_pi.R:89:2
    2. │ └─dplyr::select(hr.pi$sim.hr, -description)
    3. ├─survParamSim::calc_hr_pi(...)
    4. │ └─`%>%`(...)
    5. ├─tidyr:::nest2(.)
    6. ├─dplyr::group_by(., !!!group.syms, rep)
    7. └─dplyr:::group_by.data.frame(., !!!group.syms, rep)
    8.   └─dplyr::grouped_df(groups$data, groups$group_names, .drop)
    9.     └─dplyr:::compute_groups(data, vars, drop = drop)
   10.       └─dplyr:::vec_split_id_order(group_vars)
   11.         ├─vctrs::vec_slice(split_id, vec_order(split_id$key))
   12.         └─vctrs::vec_order(split_id$key)
   13.           └─vctrs:::order_proxy(...)
   14.             ├─vctrs:::map(...)
   15.             │ └─base::lapply(.x, .f, ...)
   16.             └─base::unname(proxy)
   17.               ├─base::`names<-`(`*tmp*`, value = NULL)
   18.               └─tibble:::`names<-.tbl_df`(`*tmp*`, value = NULL)
   19.                 └─lifecycle::deprecate_soft(...)
   20.                   └─lifecycle::deprecate_warn(...)
   21.                     └─lifecycle::deprecate_stop(when, what, with = with, details = details)
  
  ── ERROR (test-calc_hr_pi.R:101:3): check TRT levels assignment ────────────────
  Error: The `value` argument of ``names<-`()` can't be NULL as of tibble 3.0.0.
  `names` must not be `NULL`.
  Backtrace:
       █
    1. ├─testthat::expect_equal(...) test-calc_hr_pi.R:101:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─survParamSim::calc_hr_pi(...)
    5. │ └─`%>%`(...)
    6. ├─tidyr:::nest2(.)
    7. ├─dplyr::group_by(., !!!group.syms, rep)
    8. └─dplyr:::group_by.data.frame(., !!!group.syms, rep)
    9.   └─dplyr::grouped_df(groups$data, groups$group_names, .drop)
   10.     └─dplyr:::compute_groups(data, vars, drop = drop)
   11.       └─dplyr:::vec_split_id_order(group_vars)
   12.         ├─vctrs::vec_slice(split_id, vec_order(split_id$key))
   13.         └─vctrs::vec_order(split_id$key)
   14.           └─vctrs:::order_proxy(...)
   15.             ├─vctrs:::map(...)
   16.             │ └─base::lapply(.x, .f, ...)
   17.             └─base::unname(proxy)
   18.               ├─base::`names<-`(`*tmp*`, value = NULL)
   19.               └─tibble:::`names<-.tbl_df`(`*tmp*`, value = NULL)
   20.                 └─lifecycle::deprecate_soft(...)
   21.                   └─lifecycle::deprecate_warn(...)
   22.                     └─lifecycle::deprecate_stop(when, what, with = with, details = details)
  
  ── ERROR (test-calc_km_pi.R:15:1): (code run outside of `test_that()`) ─────────
  Error: The `value` argument of ``names<-`()` can't be NULL as of tibble 3.0.0.
  `names` must not be `NULL`.
  Backtrace:
       █
    1. ├─survParamSim::calc_km_pi(sim, group = "sex") test-calc_km_pi.R:15:0
    2. │ └─`%>%`(...)
    3. ├─dplyr::group_by(., rep, !!!trt.syms, !!!group.syms)
    4. └─dplyr:::group_by.data.frame(., rep, !!!trt.syms, !!!group.syms)
    5.   └─dplyr::grouped_df(groups$data, groups$group_names, .drop)
    6.     └─dplyr:::compute_groups(data, vars, drop = drop)
    7.       └─dplyr:::vec_split_id_order(group_vars)
    8.         ├─vctrs::vec_slice(split_id, vec_order(split_id$key))
    9.         └─vctrs::vec_order(split_id$key)
   10.           └─vctrs:::order_proxy(...)
   11.             ├─vctrs:::map(...)
   12.             │ └─base::lapply(.x, .f, ...)
   13.             └─base::unname(proxy)
   14.               ├─base::`names<-`(`*tmp*`, value = NULL)
   15.               └─tibble:::`names<-.tbl_df`(`*tmp*`, value = NULL)
   16.                 └─lifecycle::deprecate_soft(...)
   17.                   └─lifecycle::deprecate_warn(...)
   18.                     └─lifecycle::deprecate_stop(when, what, with = with, details = details)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  ERROR (test-calc_hr_pi.R:89:3): check HR calculation
  ERROR (test-calc_hr_pi.R:101:3): check TRT levels assignment
  ERROR (test-calc_km_pi.R:15:1): (code run outside of `test_that()`)
  
  [ FAIL 3 | WARN 0 | SKIP 0 | PASS 16 ]
  Error: Test failures
  Execution halted