Running ‘testthat.R’ [36s/44s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > pkg_name <- "tern.mmrm"
  > library(testthat)
  > is_on_ci <- isTRUE(as.logical(Sys.getenv("CI")))
  > if (is_on_ci) {
  +   reporter <- MultiReporter$new(list(
  +     CheckReporter$new()
  +   ))
  +   test_results <- test_check(pkg_name, reporter = reporter)
  +   saveRDS(test_results, "unit_testing_results.rds")
  + } else {
  +   reporter <- ParallelProgressReporter$new()
  +   test_check(pkg_name, reporter = reporter)
  + }
  Loading required package: tern.mmrm
  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: 'magrittr'
  
  The following objects are masked from 'package:testthat':
  
      equals, is_less_than, not
  
  
  Attaching package: 'rtables'
  
  The following object is masked from 'package:utils':
  
      str
  
  ✔ | F W  S  OK | Context
  
  ⠋ [ FAIL 0 | WARN 0 | SKIP 0 | PASS 0 ] Starting up...                          
  ✔ |         31 | assert_data [1.3s]                                             
  
  Attaching package: 'dplyr'
  
  The following objects are masked from 'package:stats':
  
      filter, lag
  
  The following objects are masked from 'package:base':
  
      intersect, setdiff, setequal, union
  
  mmrm() registered as emmeans extension
  
  ✔ |         40 | fit_mmrm [9.0s]                                                
  
  ✔ |          4 | formula                                                        
  
  ✖ | 5   11  15 | g_mmrm [13.7s]                                                 
  ────────────────────────────────────────────────────────────────────────────────
  Error ('test-g_mmrm.R:163:3'): g_mmrm_lsmeans plots stats table for estimates as expected
  Error in `match.arg(round_type)`: 'arg' must be of length 1
  Backtrace:
       ▆
    1. ├─testthat::expect_silent(...) at test-g_mmrm.R:163:3
    2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ ├─withr::with_output_sink(...)
    5. │   │ │ └─base::force(code)
    6. │   │ ├─base::withCallingHandlers(...)
    7. │   │ └─base::withVisible(code)
    8. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    9. └─tern.mmrm::g_mmrm_lsmeans(...)
   10.   ├─base::cbind(...)
   11.   │ └─base::cbind(deparse.level, ...)
   12.   │   └─base::data.frame(..., check.names = FALSE)
   13.   └─tern::h_format_row(...)
   14.     ├─base::do.call(...)
   15.     └─base::lapply(...)
   16.       └─tern (local) FUN(X[[i]], ...)
   17.         └─tern (local) format_cell(x[[xn]], format = format[[xn]], label = labels[xn])
   18.           └─rtables::format_rcell(x = x, format = format)
   19.             └─formatters::format_value(...)
   20.               └─base::match.arg(round_type)
  
  Error ('test-g_mmrm.R:176:3'): g_mmrm_lsmeans plots estimates stats table with custom settings
  Error in `match.arg(round_type)`: 'arg' must be of length 1
  Backtrace:
       ▆
    1. ├─testthat::expect_silent(...) at test-g_mmrm.R:176:3
    2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ ├─withr::with_output_sink(...)
    5. │   │ │ └─base::force(code)
    6. │   │ ├─base::withCallingHandlers(...)
    7. │   │ └─base::withVisible(code)
    8. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    9. └─tern.mmrm::g_mmrm_lsmeans(...)
   10.   ├─base::cbind(...)
   11.   │ └─base::cbind(deparse.level, ...)
   12.   │   └─base::data.frame(..., check.names = FALSE)
   13.   └─tern::h_format_row(...)
   14.     ├─base::do.call(...)
   15.     └─base::lapply(...)
   16.       └─tern (local) FUN(X[[i]], ...)
   17.         └─tern (local) format_cell(x[[xn]], format = format[[xn]], label = labels[xn])
   18.           └─rtables::format_rcell(x = x, format = format)
   19.             └─formatters::format_value(...)
   20.               └─base::match.arg(round_type)
  
  Error ('test-g_mmrm.R:203:3'): g_mmrm_lsmeans plots estimates stats table also without arms
  Error in `match.arg(round_type)`: 'arg' must be of length 1
  Backtrace:
       ▆
    1. ├─testthat::expect_silent(...) at test-g_mmrm.R:203:3
    2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ ├─withr::with_output_sink(...)
    5. │   │ │ └─base::force(code)
    6. │   │ ├─base::withCallingHandlers(...)
    7. │   │ └─base::withVisible(code)
    8. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    9. └─tern.mmrm::g_mmrm_lsmeans(...)
   10.   ├─base::cbind(...)
   11.   │ └─base::cbind(deparse.level, ...)
   12.   │   └─base::data.frame(..., check.names = FALSE)
   13.   └─tern::h_format_row(...)
   14.     ├─base::do.call(...)
   15.     └─base::lapply(...)
   16.       └─tern (local) FUN(X[[i]], ...)
   17.         └─tern (local) format_cell(x[[xn]], format = format[[xn]], label = labels[xn])
   18.           └─rtables::format_rcell(x = x, format = format)
   19.             └─formatters::format_value(...)
   20.               └─base::match.arg(round_type)
  
  Error ('test-g_mmrm.R:216:3'): g_mmrm_lsmeans plots estimates stats table also with constant baseline
  Error in `match.arg(round_type)`: 'arg' must be of length 1
  Backtrace:
       ▆
    1. ├─testthat::expect_silent(...) at test-g_mmrm.R:216:3
    2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ ├─withr::with_output_sink(...)
    5. │   │ │ └─base::force(code)
    6. │   │ ├─base::withCallingHandlers(...)
    7. │   │ └─base::withVisible(code)
    8. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    9. └─tern.mmrm::g_mmrm_lsmeans(...)
   10.   ├─base::cbind(...)
   11.   │ └─base::cbind(deparse.level, ...)
   12.   │   └─base::data.frame(..., check.names = FALSE)
   13.   └─tern::h_format_row(...)
   14.     ├─base::do.call(...)
   15.     └─base::lapply(...)
   16.       └─tern (local) FUN(X[[i]], ...)
   17.         └─tern (local) format_cell(x[[xn]], format = format[[xn]], label = labels[xn])
   18.           └─rtables::format_rcell(x = x, format = format)
   19.             └─formatters::format_value(...)
   20.               └─base::match.arg(round_type)
  
  Error ('test-g_mmrm.R:231:3'): g_mmrm_lsmeans plots estimates stats table also with constant baseline and without arms
  Error in `match.arg(round_type)`: 'arg' must be of length 1
  Backtrace:
       ▆
    1. ├─testthat::expect_silent(...) at test-g_mmrm.R:231:3
    2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ ├─withr::with_output_sink(...)
    5. │   │ │ └─base::force(code)
    6. │   │ ├─base::withCallingHandlers(...)
    7. │   │ └─base::withVisible(code)
    8. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    9. └─tern.mmrm::g_mmrm_lsmeans(...)
   10.   ├─base::cbind(...)
   11.   │ └─base::cbind(deparse.level, ...)
   12.   │   └─base::data.frame(..., check.names = FALSE)
   13.   └─tern::h_format_row(...)
   14.     ├─base::do.call(...)
   15.     └─base::lapply(...)
   16.       └─tern (local) FUN(X[[i]], ...)
   17.         └─tern (local) format_cell(x[[xn]], format = format[[xn]], label = labels[xn])
   18.           └─rtables::format_rcell(x = x, format = format)
   19.             └─formatters::format_value(...)
   20.               └─base::match.arg(round_type)
  ────────────────────────────────────────────────────────────────────────────────
  
  ✔ |         10 | labels                                                         
  
  ✔ |      5  45 | lsmeans [3.3s]                                                 
  
  ✖ | 2    4   5 | subgroups [7.3s]                                               
  ────────────────────────────────────────────────────────────────────────────────
  Error ('test-subgroups.R:160:3'): tabulate_mmrm_subgroups works as expected
  Error in `match.arg(round_type)`: 'arg' must be of length 1
  Backtrace:
       ▆
    1. ├─testthat::expect_silent(tab <- basic_table() %>% tabulate_mmrm_subgroups(df)) at test-subgroups.R:160:3
    2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ ├─withr::with_output_sink(...)
    5. │   │ │ └─base::force(code)
    6. │   │ ├─base::withCallingHandlers(...)
    7. │   │ └─base::withVisible(code)
    8. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    9. ├─basic_table() %>% tabulate_mmrm_subgroups(df)
   10. └─tern.mmrm::tabulate_mmrm_subgroups(., df)
   11.   └─rtables::build_table(lyt_estimates, df = df$estimates)
   12.     └─rtables::update_ref_indexing(tab)
   13.       ├─formatters::make_row_df(tt)
   14.       └─rtables::make_row_df(tt)
   15.         └─rtables (local) .local(...)
   16.           ├─formatters::make_row_df(...)
   17.           └─rtables::make_row_df(...)
   18.             └─rtables (local) .local(...)
   19.               ├─formatters::make_row_df(...)
   20.               └─rtables::make_row_df(...)
   21.                 └─rtables (local) .local(...)
   22.                   ├─formatters::make_row_df(...)
   23.                   └─rtables::make_row_df(...)
   24.                     └─rtables (local) .local(...)
   25.                       ├─formatters::make_row_df(...)
   26.                       └─rtables::make_row_df(...)
   27.                         └─rtables (local) .local(...)
   28.                           ├─formatters::pagdfrow(...)
   29.                           │ └─base::data.frame(...)
   30.                           ├─formatters::nlines(...)
   31.                           └─rtables::nlines(...)
   32.                             ├─base::as.vector(get_formatted_cells(x))
   33.                             ├─rtables::get_formatted_cells(x)
   34.                             └─rtables::get_formatted_cells(x)
   35.                               ├─base::matrix(...)
   36.                               ├─base::unlist(...)
   37.                               └─base::Map(...)
   38.                                 └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
   39.                                   └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
   40.                                     └─rtables::format_rcell(...)
   41.                                       └─formatters::format_value(...)
   42.                                         └─base::match.arg(round_type)
  
  Error ('test-subgroups.R:181:3'): tabulate_mmrm_subgroups with custom settings works as expected
  Error in `match.arg(round_type)`: 'arg' must be of length 1
  Backtrace:
       ▆
    1. ├─testthat::expect_silent(...) at test-subgroups.R:181:3
    2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ ├─withr::with_output_sink(...)
    5. │   │ │ └─base::force(code)
    6. │   │ ├─base::withCallingHandlers(...)
    7. │   │ └─base::withVisible(code)
    8. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    9. ├─basic_table() %>% ...
   10. └─tern.mmrm::tabulate_mmrm_subgroups(...)
   11.   └─rtables::build_table(lyt_contrasts, df = df$contrasts)
   12.     └─rtables::update_ref_indexing(tab)
   13.       ├─formatters::make_row_df(tt)
   14.       └─rtables::make_row_df(tt)
   15.         └─rtables (local) .local(...)
   16.           ├─formatters::make_row_df(...)
   17.           └─rtables::make_row_df(...)
   18.             └─rtables (local) .local(...)
   19.               ├─formatters::make_row_df(...)
   20.               └─rtables::make_row_df(...)
   21.                 └─rtables (local) .local(...)
   22.                   ├─formatters::make_row_df(...)
   23.                   └─rtables::make_row_df(...)
   24.                     └─rtables (local) .local(...)
   25.                       ├─formatters::make_row_df(...)
   26.                       └─rtables::make_row_df(...)
   27.                         └─rtables (local) .local(...)
   28.                           ├─formatters::pagdfrow(...)
   29.                           │ └─base::data.frame(...)
   30.                           ├─formatters::nlines(...)
   31.                           └─rtables::nlines(...)
   32.                             ├─base::as.vector(get_formatted_cells(x))
   33.                             ├─rtables::get_formatted_cells(x)
   34.                             └─rtables::get_formatted_cells(x)
   35.                               ├─base::matrix(...)
   36.                               ├─base::unlist(...)
   37.                               └─base::Map(...)
   38.                                 └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
   39.                                   └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
   40.                                     └─rtables::format_rcell(...)
   41.                                       └─formatters::format_value(...)
   42.                                         └─base::match.arg(round_type)
  ────────────────────────────────────────────────────────────────────────────────
  
  ⠙ [ FAIL 11 | WARN 0 | SKIP 20 | PASS 150 ] @ table_mmrmt01                     
  ────────────────────────────────────────────────────────────────────────────────
  Error ('test-table_mmrmt01.R:22:3'): LS means table is produced correctly
  Error in `match.arg(round_type)`: 'arg' must be of length 1
  Backtrace:
       ▆
    1. ├─... %>% build_table(df, alt_counts_df = mmrm_test_data) at test-table_mmrmt01.R:22:3
    2. └─rtables::build_table(., df, alt_counts_df = mmrm_test_data)
    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::make_row_df(...)
   11.             └─rtables::make_row_df(...)
   12.               └─rtables (local) .local(...)
   13.                 ├─formatters::make_row_df(...)
   14.                 └─rtables::make_row_df(...)
   15.                   └─rtables (local) .local(...)
   16.                     ├─formatters::pagdfrow(...)
   17.                     │ └─base::data.frame(...)
   18.                     ├─formatters::nlines(...)
   19.                     └─rtables::nlines(...)
   20.                       ├─base::as.vector(get_formatted_cells(x))
   21.                       ├─rtables::get_formatted_cells(x)
   22.                       └─rtables::get_formatted_cells(x)
   23.                         ├─base::matrix(...)
   24.                         ├─base::unlist(...)
   25.                         └─base::Map(...)
   26.                           └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
   27.                             └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
   28.                               └─rtables::format_rcell(...)
   29.                                 └─formatters::format_value(...)
   30.                                   └─base::match.arg(round_type)
  
  Error ('test-table_mmrmt01.R:46:3'): Fixed effects table is produced correctly
  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-table_mmrmt01.R:46: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[,5]>`)
   25. │               └─rtables (local) `<stndrdGn>`(`<ElmntryT[,5]>`)
   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(gettextf("'%s' must be of length 1", "arg"), domain = NA)
   48. └─base::.handleSimpleError(...)
   49.   └─base (local) h(simpleError(msg, call))
  
  Error ('test-table_mmrmt01.R:51:3'): Covariance matrix table is produced correctly
  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-table_mmrmt01.R:51: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(gettextf("'%s' must be of length 1", "arg"), domain = NA)
   48. └─base::.handleSimpleError(...)
   49.   └─base (local) h(simpleError(msg, call))
  
  Error ('test-table_mmrmt01.R:55:3'): Model diagnostics table is produced correctly
  Error in `match.arg(round_type)`: 'arg' must be of length 1
  Backtrace:
       ▆
    1. ├─tern::as.rtable(mmrm_results, type = "diagnostic", format = "xx.xx") at test-table_mmrmt01.R:55:3
    2. └─tern.mmrm:::as.rtable.tern_mmrm(...)
    3.   └─tern.mmrm::h_mmrm_diagnostic(x, ...)
    4.     └─rtables::build_table(lyt, df)
    5.       └─rtables::update_ref_indexing(tab)
    6.         ├─formatters::make_row_df(tt)
    7.         └─rtables::make_row_df(tt)
    8.           └─rtables (local) .local(...)
    9.             ├─formatters::make_row_df(...)
   10.             └─rtables::make_row_df(...)
   11.               └─rtables (local) .local(...)
   12.                 ├─formatters::pagdfrow(...)
   13.                 │ └─base::data.frame(...)
   14.                 ├─formatters::nlines(...)
   15.                 └─rtables::nlines(...)
   16.                   ├─base::as.vector(get_formatted_cells(x))
   17.                   ├─rtables::get_formatted_cells(x)
   18.                   └─rtables::get_formatted_cells(x)
   19.                     ├─base::matrix(...)
   20.                     ├─base::unlist(...)
   21.                     └─base::Map(...)
   22.                       └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
   23.                         └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
   24.                           └─rtables::format_rcell(...)
   25.                             └─formatters::format_value(...)
   26.                               └─base::match.arg(round_type)
  
  Maximum number of failures exceeded; quitting.
  ℹ Increase this number with (e.g.) `testthat::set_max_fails(Inf)` 
  
                                                                                  Error:
  ! Test failures.
  Execution halted