Running 'testthat.R' [13s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > pkg_name <- "tern.gee"
  > library(pkg_name, character.only = TRUE)
  Loading required package: tern
  Loading required package: rtables
  Loading required package: formatters
  
  Attaching package: 'formatters'
  
  The following object is masked from 'package:base':
  
      %||%
  
  Loading required package: magrittr
  
  Attaching package: 'rtables'
  
  The following object is masked from 'package:utils':
  
      str
  
  > testthat::test_check(pkg_name)
  
  Attaching package: 'testthat'
  
  The following objects are masked from 'package:magrittr':
  
      equals, is_less_than, not
  
  Saving _problems/test-tabulate_gee-32.R
  Saving _problems/test-tabulate_gee-71.R
  Saving _problems/test-tabulate_gee-96.R
  [ FAIL 3 | WARN 0 | SKIP 0 | PASS 43 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-tabulate_gee.R:32:3'): h_gee_cov works as expected ─────────────
  Error in `h(simpleError(msg, call))`: error in evaluating the argument 'x' in selecting a method for function 'toString': 'arg' must be of length 1
  Backtrace:
       ▆
    1. ├─testthat::expect_snapshot(result) at test-tabulate_gee.R:32:3
    2. │ └─testthat:::expect_snapshot_(...)
    3. │   ├─testthat:::with_is_snapshotting(...)
    4. │   └─testthat:::verify_exec(quo_get_expr(x), quo_get_env(x), replay)
    5. │     └─evaluate::evaluate(source, envir = env, new_device = FALSE, output_handler = handler)
    6. │       ├─base::withRestarts(...)
    7. │       │ └─base (local) withRestartList(expr, restarts)
    8. │       │   ├─base (local) withOneRestart(withRestartList(expr, restarts[-nr]), restarts[[nr]])
    9. │       │   │ └─base (local) doWithOneRestart(return(expr), restart)
   10. │       │   └─base (local) withRestartList(expr, restarts[-nr])
   11. │       │     └─base (local) withOneRestart(expr, restarts[[1L]])
   12. │       │       └─base (local) doWithOneRestart(return(expr), restart)
   13. │       ├─evaluate:::with_handlers(...)
   14. │       │ ├─base::eval(call)
   15. │       │ │ └─base::eval(call)
   16. │       │ └─base::withCallingHandlers(...)
   17. │       └─watcher$print_value(ev$value, ev$visible, envir)
   18. │         ├─base::withVisible(handle_value(handler, value, visible, envir))
   19. │         └─evaluate:::handle_value(handler, value, visible, envir)
   20. │           ├─handler$value(value)
   21. │           └─testthat:::testthat_print.default(value)
   22. │             ├─base::print(x)
   23. │             └─base::print.default(x)
   24. │               ├─methods (local) `<stndrdGn>`(`<ElmntryT[,4]>`)
   25. │               └─rtables (local) `<stndrdGn>`(`<ElmntryT[,4]>`)
   26. │                 ├─base::cat(toString(object))
   27. │                 ├─base::toString(object)
   28. │                 └─rtables::toString(object)
   29. │                   └─rtables (local) .local(x, ...)
   30. │                     ├─base::toString(...)
   31. │                     ├─formatters::matrix_form(...)
   32. │                     └─rtables::matrix_form(...)
   33. │                       └─rtables:::.tbl_header_mat(obj)
   34. │                         ├─base::matrix(...)
   35. │                         └─base::rapply(...)
   36. │                           └─rtables (local) `<fn>`(X, ...)
   37. │                             ├─rtables::get_formatted_cells(x)
   38. │                             └─rtables::get_formatted_cells(x)
   39. │                               ├─base::matrix(...)
   40. │                               ├─base::unlist(...)
   41. │                               └─base::Map(...)
   42. │                                 └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
   43. │                                   └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
   44. │                                     └─rtables::format_rcell(...)
   45. │                                       └─formatters::format_value(...)
   46. │                                         └─base::match.arg(round_type)
   47. │                                           └─base::stop("'arg' must be of length 1")
   48. └─base::.handleSimpleError(...)
   49.   └─base (local) h(simpleError(msg, call))
  ── Error ('test-tabulate_gee.R:64:3'): summarize_gee_logistic works as expected with covariates in the model ──
  Error in `match.arg(round_type)`: 'arg' must be of length 1
  Backtrace:
       ▆
    1. ├─... %>% ... at test-tabulate_gee.R:64:3
    2. └─rtables::build_table(., df = lsmeans(model), alt_counts_df = dat_adsl)
    3.   └─rtables::update_ref_indexing(tab)
    4.     ├─formatters::make_row_df(tt)
    5.     └─rtables::make_row_df(tt)
    6.       └─rtables (local) .local(...)
    7.         ├─formatters::make_row_df(...)
    8.         └─rtables::make_row_df(...)
    9.           └─rtables (local) .local(...)
   10.             ├─formatters::pagdfrow(...)
   11.             │ └─base::data.frame(...)
   12.             ├─formatters::nlines(...)
   13.             └─rtables::nlines(...)
   14.               ├─base::as.vector(get_formatted_cells(x))
   15.               ├─rtables::get_formatted_cells(x)
   16.               └─rtables::get_formatted_cells(x)
   17.                 ├─base::matrix(...)
   18.                 ├─base::unlist(...)
   19.                 └─base::Map(...)
   20.                   └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
   21.                     └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
   22.                       └─rtables::format_rcell(...)
   23.                         └─formatters::format_value(...)
   24.                           └─base::match.arg(round_type)
  ── Error ('test-tabulate_gee.R:89:3'): summarize_gee_logistic works as expected with no covariates in the model ──
  Error in `match.arg(round_type)`: 'arg' must be of length 1
  Backtrace:
       ▆
    1. ├─... %>% ... at test-tabulate_gee.R:89:3
    2. └─rtables::build_table(., df = lsmeans(model), alt_counts_df = dat_adsl)
    3.   └─rtables::update_ref_indexing(tab)
    4.     ├─formatters::make_row_df(tt)
    5.     └─rtables::make_row_df(tt)
    6.       └─rtables (local) .local(...)
    7.         ├─formatters::make_row_df(...)
    8.         └─rtables::make_row_df(...)
    9.           └─rtables (local) .local(...)
   10.             ├─formatters::pagdfrow(...)
   11.             │ └─base::data.frame(...)
   12.             ├─formatters::nlines(...)
   13.             └─rtables::nlines(...)
   14.               ├─base::as.vector(get_formatted_cells(x))
   15.               ├─rtables::get_formatted_cells(x)
   16.               └─rtables::get_formatted_cells(x)
   17.                 ├─base::matrix(...)
   18.                 ├─base::unlist(...)
   19.                 └─base::Map(...)
   20.                   └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
   21.                     └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
   22.                       └─rtables::format_rcell(...)
   23.                         └─formatters::format_value(...)
   24.                           └─base::match.arg(round_type)
  
  [ FAIL 3 | WARN 0 | SKIP 0 | PASS 43 ]
  Error:
  ! Test failures.
  Execution halted