Running ‘testthat.R’ [25s/30s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > pkg_name <- "autoslider.core"
  > library(testthat)
  > test_check(pkg_name, reporter = ParallelProgressReporter$new())
  Loading required package: autoslider.core
  
  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
  
  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
  
  
  Attaching package: 'purrr'
  
  The following object is masked from 'package:magrittr':
  
      set_names
  
  The following object is masked from 'package:formatters':
  
      %||%
  
  Loading required package: ggplot2
  ✔ | F W  S  OK | Context
  
  ⠋ [ FAIL 0 | WARN 0 | SKIP 0 | PASS 0 ] Starting up...                          
  ✔ |         22 | appendix [2.5s]                                                
  
  ✔ |         17 | assert                                                         
  Loading required package: filters
  <simpleError: `target` must be a character vector containing no `NA` values.>
  
  ✔ |          1 | bad_filters                                                    
  
  ✔ |      1   0 | data_snapshot                                                  
  [[1]]
  
  [[1]]
  
  [[2]]
  
  
  ✔ |   1      9 | decorate [2.4s]                                                
  ────────────────────────────────────────────────────────────────────────────────
  Warning ('test-decorate.R:71:3'): Test ph_with_img not to throw
  Calling `add_slide()` without specifying a `layout` is deprecated.
   Please pass a `layout` or use `layout_default()` to set a default.
   => I will now continue with the former `layout` default "Title and Content" for backwards compatibility...
  Backtrace:
      ▆
   1. └─autoslider.core:::do_call(add_slide, x = ppt, master = ppt_master) at test-decorate.R:71:3
   2.   ├─base::do.call(fun, args[intersect(names(args), formalArgs(fun))])
   3.   └─officer (local) `<fn>`(x = `<rpptx>`, master = "Office Theme")
   4.     └─base::.Deprecated(...)
  ────────────────────────────────────────────────────────────────────────────────
  
  ✔ |      1   0 | filter_spec-verbose                                            
  
  ✔ |          6 | formats                                                        
  v 3/3 outputs matched the filter condition `program %in% c("t_ds_slide", "t_dm_slide", "t_ae_slide")`.
  > Running program `t_ds_slide` with suffix 'ITT'.
  Filter 'ITT' matched target ADSL.
  400/400 records matched the filter condition `ITTFL == 'Y'`.
  ! Error: 'arg' must be of length 1
  > Running program `t_dm_slide` with suffix 'ITT'.
  Filter 'ITT' matched target ADSL.
  400/400 records matched the filter condition `ITTFL == 'Y'`.
  ! Error: 'arg' must be of length 1
  > Running program `t_ae_slide` with suffix 'SER'.
  Filter 'SER' matched target ADAE.
  786/1934 records matched the filter condition `AESER == 'Y'`.
  ! Error: 'arg' must be of length 1
  
  ✖ | 1        0 | ft_format [2.0s]                                               
  ────────────────────────────────────────────────────────────────────────────────
  Error ('test-ft_format.R:90:3'): demographic table formatting
  Error in `h(simpleError(msg, call))`: error in evaluating the argument 'obj' in selecting a method for function 'matrix_form': no applicable method for `@` applied to an object of class "autoslider_error"
  Backtrace:
      ▆
   1. ├─autoslider.core:::to_flextable.dVTableTree(...) at test-ft_format.R:90:3
   2. │ └─rtables::paginate_table(dtbl@tbl, lpp = lpp, cpp = cpp)
   3. │   ├─formatters::propose_column_widths(...)
   4. │   │ └─methods::is(x, "MatrixPrintForm")
   5. │   └─formatters::matrix_form(...)
   6. └─base::.handleSimpleError(...)
   7.   └─base (local) h(simpleError(msg, call))
  ────────────────────────────────────────────────────────────────────────────────
  Filter 'SE' matched target ADSL.
  400/400 records matched the filter condition `SAFFL == 'Y'`.
  Filter 'SE' matched target ADSL.
  400/400 records matched the filter condition `SAFFL == 'Y'`.
  Filter 'SE' matched target ADSL.
  400/400 records matched the filter condition `SAFFL == 'Y'`.
  Filter 'SE' matched target ADSL.
  400/400 records matched the filter condition `SAFFL == 'Y'`.
  Filter 'SE' matched target ADSL.
  400/400 records matched the filter condition `SAFFL == 'Y'`.
  
  ✖ | 2        3 | func_wrapper [1.7s]                                            
  ────────────────────────────────────────────────────────────────────────────────
  Error ('test-func_wrapper.R:21:3'): legacy with datasets and spec
  Error in `match.arg(round_type)`: 'arg' must be of length 1
  Backtrace:
       ▆
    1. └─autoslider.core (local) wrapped(aesi = "CQ01NAM", grad_var = "AETOXGR") at test-func_wrapper.R:21:3
    2.   └─autoslider.core::fastDoCall(...)
    3.     └─base::eval(call, envir = args, enclos = envir)
    4.       └─base::eval(call, envir = args, enclos = envir)
    5.         └─autoslider.core (local) func(adsl = adsl, adae = adae, aesi = aesi, grad_var = grad_var)
    6.           └─rtables::build_table(lyt_adae, df = adae2, alt_counts_df = adsl)
    7.             └─rtables::update_ref_indexing(tab)
    8.               ├─formatters::make_row_df(tt)
    9.               └─rtables::make_row_df(tt)
   10.                 └─rtables (local) .local(...)
   11.                   ├─formatters::make_row_df(...)
   12.                   └─rtables::make_row_df(...)
   13.                     └─rtables (local) .local(...)
   14.                       ├─formatters::make_row_df(...)
   15.                       └─rtables::make_row_df(...)
   16.                         └─rtables (local) .local(...)
   17.                           ├─formatters::pagdfrow(...)
   18.                           │ └─base::data.frame(...)
   19.                           ├─formatters::nlines(...)
   20.                           └─rtables::nlines(...)
   21.                             ├─base::as.vector(get_formatted_cells(x))
   22.                             ├─rtables::get_formatted_cells(x)
   23.                             └─rtables::get_formatted_cells(x)
   24.                               ├─base::matrix(...)
   25.                               ├─base::unlist(...)
   26.                               └─base::Map(...)
   27.                                 └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
   28.                                   └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
   29.                                     └─rtables::format_rcell(...)
   30.                                       └─formatters::format_value(...)
   31.                                         └─base::match.arg(round_type)
  
  Error ('test-func_wrapper.R:30:3'): legacy with datasets but no spec
  Error in `match.arg(round_type)`: 'arg' must be of length 1
  Backtrace:
       ▆
    1. └─autoslider.core (local) wrapped(arm = "TRT01A", split_by_study = TRUE) at test-func_wrapper.R:30:3
    2.   └─autoslider.core::fastDoCall(...)
    3.     └─base::eval(call, envir = args, enclos = envir)
    4.       └─base::eval(call, envir = args, enclos = envir)
    5.         └─autoslider.core (local) `<fn>`(adsl = adsl, arm = arm, split_by_study = split_by_study)
    6.           └─autoslider.core::lyt_to_side_by_side(lyt, anl, side_by_side)
    7.             └─rtables::build_table(lyt = lyt, df = anl)
    8.               └─rtables::update_ref_indexing(tab)
    9.                 ├─formatters::make_row_df(tt)
   10.                 └─rtables::make_row_df(tt)
   11.                   └─rtables (local) .local(...)
   12.                     ├─formatters::make_row_df(...)
   13.                     └─rtables::make_row_df(...)
   14.                       └─rtables (local) .local(...)
   15.                         ├─formatters::make_row_df(...)
   16.                         └─rtables::make_row_df(...)
   17.                           └─rtables (local) .local(...)
   18.                             ├─formatters::pagdfrow(...)
   19.                             │ └─base::data.frame(...)
   20.                             ├─formatters::nlines(...)
   21.                             └─rtables::nlines(...)
   22.                               ├─base::as.vector(get_formatted_cells(x))
   23.                               ├─rtables::get_formatted_cells(x)
   24.                               └─rtables::get_formatted_cells(x)
   25.                                 ├─base::matrix(...)
   26.                                 ├─base::unlist(...)
   27.                                 └─base::Map(...)
   28.                                   └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
   29.                                     └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
   30.                                       └─rtables::format_rcell(...)
   31.                                         └─formatters::format_value(...)
   32.                                           └─base::match.arg(round_type)
  ────────────────────────────────────────────────────────────────────────────────
  
  ✔ |      5  10 | g_mean_slides [3.7s]                                           
  
  ✔ |      1   1 | helper_functions                                               
  Loading required package: tibble
  
  Attaching package: 'tibble'
  
  The following object is masked from 'package:assertthat':
  
      has_name
  
  
  ✔ |      1   0 | l_ae_slide [7.6s]                                              
  v Total number of success 100/100
  v Total number of success 99/100
  x Total number of failures 1/100
  
  ✔ |          2 | log                                                            
  
  ✖ | 1        0 | output-table-format                                            
  ────────────────────────────────────────────────────────────────────────────────
  Error ('test-output-table-format.R:2:3'): save an autoslider output
  Error in `h(simpleError(msg, call))`: error in evaluating the argument 'x' in selecting a method for function 'decorate': 'arg' must be of length 1
  Backtrace:
       ▆
    1. ├─... %>% list() at test-output-table-format.R:2:3
    2. ├─autoslider.core::decorate(., title = "test title", footnote = "")
    3. ├─autoslider.core::t_dm_slide(adsl = testdata$adsl)
    4. │ └─autoslider.core::lyt_to_side_by_side(lyt, adsl1, side_by_side)
    5. │   └─rtables::build_table(lyt = lyt, df = anl)
    6. │     └─rtables::update_ref_indexing(tab)
    7. │       ├─formatters::make_row_df(tt)
    8. │       └─rtables::make_row_df(tt)
    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)
   31. │                                   └─base::stop(gettextf("'%s' must be of length 1", "arg"), domain = NA)
   32. └─base::.handleSimpleError(...)
   33.   └─base (local) h(simpleError(msg, call))
  ────────────────────────────────────────────────────────────────────────────────
  
  ✖ | 3        0 | save_output                                                    
  ────────────────────────────────────────────────────────────────────────────────
  Error ('test-save_output.R:4:3'): save an output
  Error in `h(simpleError(msg, call))`: error in evaluating the argument 'x' in selecting a method for function 'decorate': 'arg' must be of length 1
  Backtrace:
       ▆
    1. ├─t_dm_slide(adsl = testdata$adsl) %>% ... at test-save_output.R:4:3
    2. ├─autoslider.core::decorate(., title = "test title", footnote = "")
    3. ├─autoslider.core::t_dm_slide(adsl = testdata$adsl)
    4. │ └─autoslider.core::lyt_to_side_by_side(lyt, adsl1, side_by_side)
    5. │   └─rtables::build_table(lyt = lyt, df = anl)
    6. │     └─rtables::update_ref_indexing(tab)
    7. │       ├─formatters::make_row_df(tt)
    8. │       └─rtables::make_row_df(tt)
    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)
   31. │                                   └─base::stop(gettextf("'%s' must be of length 1", "arg"), domain = NA)
   32. └─base::.handleSimpleError(...)
   33.   └─base (local) h(simpleError(msg, call))
  
  Error ('test-save_output.R:23:3'): Test save_output (Save an Output)
  Error in `h(simpleError(msg, call))`: error in evaluating the argument 'output' in selecting a method for function 'save_output': error in evaluating the argument 'x' in selecting a method for function 'decorate': 'arg' must be of length 1
  Backtrace:
       ▆
    1. ├─base::print(...)
    2. ├─... %>% ...
    3. ├─autoslider.core::save_output(...)
    4. ├─autoslider.core::decorate(...)
    5. ├─autoslider.core::t_ae_pt_slide(adsl, adae, "TRT01A", 2)
    6. │ └─autoslider.core:::t_ae_pt_core(...)
    7. │   └─autoslider.core::lyt_to_side_by_side_two_data(...)
    8. │     └─rtables::build_table(lyt = lyt, df = anl, alt_counts_df = alt_counts_df)
    9. │       └─rtables::update_ref_indexing(tab)
   10. │         ├─formatters::make_row_df(tt)
   11. │         └─rtables::make_row_df(tt)
   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)
   31. │                                 └─base::stop(gettextf("'%s' must be of length 1", "arg"), domain = NA)
   32. ├─base::.handleSimpleError(...)
   33. │ └─base (local) h(simpleError(msg, call))
   34. └─base::.handleSimpleError(...)
   35.   └─base (local) h(simpleError(msg, call))
  
  Error ('test-save_output.R:40:3'): save an output
  Error in `h(simpleError(msg, call))`: error in evaluating the argument 'x' in selecting a method for function 'decorate': 'arg' must be of length 1
  Backtrace:
       ▆
    1. ├─t_ds_slide(adsl = testdata$adsl) %>% ... at test-save_output.R:40:3
    2. ├─autoslider.core::decorate(., title = "test title", footnote = "")
    3. ├─autoslider.core::t_ds_slide(adsl = testdata$adsl)
    4. │ └─autoslider.core::lyt_to_side_by_side(lyt, adsl1, side_by_side)
    5. │   └─rtables::build_table(lyt = lyt, df = anl)
    6. │     └─rtables::update_ref_indexing(tab)
    7. │       ├─formatters::make_row_df(tt)
    8. │       └─rtables::make_row_df(tt)
    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)
   31. │                                   └─base::stop(gettextf("'%s' must be of length 1", "arg"), domain = NA)
   32. └─base::.handleSimpleError(...)
   33.   └─base (local) h(simpleError(msg, call))
  ────────────────────────────────────────────────────────────────────────────────
  
  ✖ | 1        0 | slides_preview                                                 
  ────────────────────────────────────────────────────────────────────────────────
  Error ('test-slides_preview.R:3:3'): Test slides preview
  Error in `match.arg(round_type)`: 'arg' must be of length 1
  Backtrace:
       ▆
    1. └─autoslider.core::t_dm_slide(adsl, "TRT01P", c("SEX", "AGE", "RACE")) at test-slides_preview.R:3:3
    2.   └─autoslider.core::lyt_to_side_by_side(lyt, adsl1, side_by_side)
    3.     └─rtables::build_table(lyt = lyt, df = anl)
    4.       └─rtables::update_ref_indexing(tab)
    5.         ├─formatters::make_row_df(tt)
    6.         └─rtables::make_row_df(tt)
    7.           └─rtables (local) .local(...)
    8.             ├─formatters::make_row_df(...)
    9.             └─rtables::make_row_df(...)
   10.               └─rtables (local) .local(...)
   11.                 ├─formatters::make_row_df(...)
   12.                 └─rtables::make_row_df(...)
   13.                   └─rtables (local) .local(...)
   14.                     ├─formatters::pagdfrow(...)
   15.                     │ └─base::data.frame(...)
   16.                     ├─formatters::nlines(...)
   17.                     └─rtables::nlines(...)
   18.                       ├─base::as.vector(get_formatted_cells(x))
   19.                       ├─rtables::get_formatted_cells(x)
   20.                       └─rtables::get_formatted_cells(x)
   21.                         ├─base::matrix(...)
   22.                         ├─base::unlist(...)
   23.                         └─base::Map(...)
   24.                           └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
   25.                             └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
   26.                               └─rtables::format_rcell(...)
   27.                                 └─formatters::format_value(...)
   28.                                   └─base::match.arg(round_type)
  ────────────────────────────────────────────────────────────────────────────────
  
  ✔ |      1   0 | srep_outputs                                                   
  
  ⠙ [ FAIL 15 | WARN 1 | SKIP 10 | PASS 72 ] @ t_ae_pt_diff_slide                 
  ────────────────────────────────────────────────────────────────────────────────
  Error ('test-t_ae_pt_diff_slide.R:2:3'): Test table creation of t_ae_pt_diff_slide  (safety summary table)
  Error in `match.arg(round_type)`: 'arg' must be of length 1
  Backtrace:
       ▆
    1. └─autoslider.core::t_ae_pt_diff_slide(...)
    2.   └─autoslider.core:::t_ae_pt_core(...)
    3.     └─autoslider.core::lyt_to_side_by_side_two_data(...)
    4.       └─rtables::build_table(lyt = lyt, df = anl, alt_counts_df = alt_counts_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)
  
  Error ('test-t_ae_pt_diff_slide.R:6:3'): Test table creation of t_ae_pt_diff_slide  (safety summary table) prune by total 2
  Error in `match.arg(round_type)`: 'arg' must be of length 1
  Backtrace:
       ▆
    1. └─autoslider.core::t_ae_pt_diff_slide(...)
    2.   └─autoslider.core:::t_ae_pt_core(...)
    3.     └─autoslider.core::lyt_to_side_by_side_two_data(...)
    4.       └─rtables::build_table(lyt = lyt, df = anl, alt_counts_df = alt_counts_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)
  
  Error ('test-t_ae_pt_diff_slide.R:11:3'): Test table creation of t_ae_pt_slide (safety summary table) prune by total 2
  Error in `match.arg(round_type)`: 'arg' must be of length 1
  Backtrace:
       ▆
    1. └─autoslider.core::t_ae_pt_diff_slide(...)
    2.   └─autoslider.core:::t_ae_pt_core(...)
    3.     └─autoslider.core::lyt_to_side_by_side_two_data(...)
    4.       └─rtables::build_table(lyt = lyt, df = anl, alt_counts_df = alt_counts_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)
  
  Error ('test-t_ae_pt_diff_slide.R:17:3'): Test table creation of t_ae_pt_slide (safety summary table) prune by total 2
  Error in `match.arg(round_type)`: 'arg' must be of length 1
  Backtrace:
       ▆
    1. └─autoslider.core::t_ae_pt_diff_slide(...)
    2.   └─autoslider.core:::t_ae_pt_core(...)
    3.     └─autoslider.core::lyt_to_side_by_side_two_data(...)
    4.       └─rtables::build_table(lyt = lyt, df = anl, alt_counts_df = alt_counts_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)
  
  Error ('test-t_ae_pt_diff_slide.R:25:3'): Test table creation of t_ae_pt_slide (safety summary table) prune by total 2
  Error in `match.arg(round_type)`: 'arg' must be of length 1
  Backtrace:
       ▆
    1. └─autoslider.core::t_ae_pt_diff_slide(...)
    2.   └─autoslider.core:::t_ae_pt_core(...)
    3.     └─autoslider.core::lyt_to_side_by_side_two_data(...)
    4.       └─rtables::build_table(lyt = lyt, df = anl, alt_counts_df = alt_counts_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)
  
  Error ('test-t_ae_pt_diff_slide.R:43:3'): Test table creation of t_ae_pt_slide (safety summary table) prune by total 2
  Error in `match.arg(round_type)`: 'arg' must be of length 1
  Backtrace:
       ▆
    1. └─autoslider.core::t_ae_pt_diff_slide(...)
    2.   └─autoslider.core:::t_ae_pt_core(...)
    3.     └─autoslider.core::lyt_to_side_by_side_two_data(...)
    4.       └─rtables::build_table(lyt = lyt, df = anl, alt_counts_df = alt_counts_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)
  
  Error ('test-t_ae_pt_diff_slide.R:57:3'): Test table creation of t_ae_pt_diff_slide with null_report
  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(...) at test-t_ae_pt_diff_slide.R:57: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[,1]>`)
   25. │               └─rtables (local) `<stndrdGn>`(`<ElmntryT[,1]>`)
   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))
  
  Maximum number of failures exceeded; quitting.
  ℹ Increase this number with (e.g.) `testthat::set_max_fails(Inf)` 
  
                                                                                  Error:
  ! Test failures.
  Execution halted