Running ‘testthat.R’ [9s/15s]
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
  
  [ 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': argument "fontspec" is missing, with no default
  Backtrace:
      ▆
   1. └─testthat::expect_snapshot(result) at test-tabulate_gee.R:32:3
   2.   └─rlang::cnd_signal(state$error)
  ── Error ('test-tabulate_gee.R:64:3'): summarize_gee_logistic works as expected with covariates in the model ──
  Error in `nlines(strsplit(s, "\n", fixed = TRUE), max_width = w)`: argument "fontspec" is missing, with no default
  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(tt, colwidths = colwidths, max_width = max_width)
   13.             └─rtables::nlines(tt, colwidths = colwidths, max_width = max_width)
   14.               └─rtables (local) .local(x, colwidths, max_width)
   15.                 ├─base::unlist(...)
   16.                 └─base::mapply(...)
   17.                   └─rtables (local) `<fn>`(s = dots[[1L]][[1L]], w = dots[[2L]][[1L]])
   18.                     ├─formatters::nlines(strsplit(s, "\n", fixed = TRUE), max_width = w)
   19.                     └─formatters::nlines(strsplit(s, "\n", fixed = TRUE), max_width = w)
   20.                       ├─base::unlist(...)
   21.                       └─base::vapply(...)
   22.                         ├─formatters (local) FUN(X[[i]], ...)
   23.                         └─formatters (local) FUN(X[[i]], ...)
   24.                           └─base::vapply(...)
   25.                             └─formatters (local) FUN(X[[i]], ...)
   26.                               └─formatters::wrap_txt(xi, max_width, fontspec = fontspec)
   27.                                 └─formatters::open_font_dev(fontspec)
  ── Error ('test-tabulate_gee.R:89:3'): summarize_gee_logistic works as expected with no covariates in the model ──
  Error in `nlines(strsplit(s, "\n", fixed = TRUE), max_width = w)`: argument "fontspec" is missing, with no default
  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(tt, colwidths = colwidths, max_width = max_width)
   13.             └─rtables::nlines(tt, colwidths = colwidths, max_width = max_width)
   14.               └─rtables (local) .local(x, colwidths, max_width)
   15.                 ├─base::unlist(...)
   16.                 └─base::mapply(...)
   17.                   └─rtables (local) `<fn>`(s = dots[[1L]][[1L]], w = dots[[2L]][[1L]])
   18.                     ├─formatters::nlines(strsplit(s, "\n", fixed = TRUE), max_width = w)
   19.                     └─formatters::nlines(strsplit(s, "\n", fixed = TRUE), max_width = w)
   20.                       ├─base::unlist(...)
   21.                       └─base::vapply(...)
   22.                         ├─formatters (local) FUN(X[[i]], ...)
   23.                         └─formatters (local) FUN(X[[i]], ...)
   24.                           └─base::vapply(...)
   25.                             └─formatters (local) FUN(X[[i]], ...)
   26.                               └─formatters::wrap_txt(xi, max_width, fontspec = fontspec)
   27.                                 └─formatters::open_font_dev(fontspec)
  
  [ FAIL 3 | WARN 0 | SKIP 0 | PASS 43 ]
  Error: Test failures
  Execution halted