Package: autoslider.core Check: examples New result: ERROR Running examples in ‘autoslider.core-Ex.R’ failed The error most likely occurred in: > base::assign(".ptime", proc.time(), pos = "CheckExEnv") > ### Name: generate_slides > ### Title: generate slides based on output > ### Aliases: generate_slides > > ### ** Examples > > ## Don't show: > if (require(filters)) withAutoprint({ # examplesIf + ## End(Don't show) + + # Example 1. When applying to the whole pipeline + library(dplyr) + data <- list( + adsl = eg_adsl %>% dplyr::mutate(FASFL = SAFFL), + adae = eg_adae + ) + + + filters::load_filters( + yaml_file = system.file("filters.yml", package = "autoslider.core"), + overwrite = TRUE + ) + + + spec_file <- system.file("spec.yml", package = "autoslider.core") + spec_file %>% + read_spec() %>% + filter_spec(program %in% c("t_dm_slide")) %>% + generate_outputs(datasets = data) %>% + decorate_outputs() %>% + generate_slides() + + # Example 2. When applying to an rtable object or an rlisting object + adsl <- eg_adsl + t_dm_slide(adsl, "TRT01P", c("SEX", "AGE")) %>% + generate_slides() + ## Don't show: + }) # examplesIf Loading required package: filters > library(dplyr) 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 > data <- list(adsl = eg_adsl %>% dplyr::mutate(FASFL = SAFFL), adae = eg_adae) > filters::load_filters(yaml_file = system.file("filters.yml", package = "autoslider.core"), + overwrite = TRUE) > spec_file <- system.file("spec.yml", package = "autoslider.core") > spec_file %>% read_spec() %>% filter_spec(program %in% c("t_dm_slide")) %>% + generate_outputs(datasets = data) %>% decorate_outputs() %>% generate_slides() ✔ 2/51 outputs matched the filter condition `program %in% c("t_dm_slide")`. ❯ Running program `t_dm_slide` with suffix 'FAS'. Filter 'FAS' matched target ADSL. 400/400 records matched the filter condition `FASFL == 'Y'`. ⚠ Error: 'arg' must be of length 1 ❯ Running program `t_dm_slide` with suffix 'FAS'. Filter 'FAS' matched target ADSL. 400/400 records matched the filter condition `FASFL == 'Y'`. ⚠ Error: 'arg' must be of length 1 'arg' must be of length 1 'arg' must be of length 1 > adsl <- eg_adsl > t_dm_slide(adsl, "TRT01P", c("SEX", "AGE")) %>% generate_slides() Error in match.arg(round_type) : 'arg' must be of length 1 Calls: withAutoprint ... -> format_rcell -> format_value -> match.arg Execution halted Package: autoslider.core Check: re-building of vignette outputs New result: ERROR Error(s) in re-building vignettes: ... --- re-building ‘adding_templates.Rmd’ using rmarkdown [WARNING] Deprecated: --highlight-style. Use --syntax-highlighting instead. --- finished re-building ‘adding_templates.Rmd’ --- re-building ‘autoslideR.Rmd’ using rmarkdown Quitting from autoslideR.Rmd:377-379 [unnamed-chunk-10] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error in `h()`: ! error in evaluating the argument 'tt' in selecting a method for function 'collect_leaves': 'arg' must be of length 1 --- Backtrace: ▆ 1. ├─global lbt06(data) 2. │ ├─... %>% rtables::trim_rows() 3. │ └─rtables::build_table(lyt = lyt, df = adlb_f_crp, alt_counts_df = adsl) 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::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) ``(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) 32. │ └─base::stop(gettextf("'%s' must be of length 1", "arg"), domain = NA) 33. ├─rtables::trim_rows(.) 34. │ └─rtables::collect_leaves(tt, TRUE, TRUE) 35. └─base::.handleSimpleError(...) 36. └─base (local) h(simpleError(msg, call)) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error: processing vignette 'autoslideR.Rmd' failed with diagnostics: error in evaluating the argument 'tt' in selecting a method for function 'collect_leaves': 'arg' must be of length 1 --- failed re-building ‘autoslideR.Rmd’ --- re-building ‘downstream.Rmd’ using rmarkdown [WARNING] Deprecated: --highlight-style. Use --syntax-highlighting instead. --- finished re-building ‘downstream.Rmd’ --- re-building ‘generate_placeholder_slides.Rmd’ using rmarkdown [WARNING] Deprecated: --highlight-style. Use --syntax-highlighting instead. --- finished re-building ‘generate_placeholder_slides.Rmd’ --- re-building ‘opensource.Rmd’ using rmarkdown [WARNING] Deprecated: --highlight-style. Use --syntax-highlighting instead. --- finished re-building ‘opensource.Rmd’ --- re-building ‘tlg_templates.Rmd’ using rmarkdown Warning in get_engine(options$engine) : Unknown language engine 'r_function_call' (must be registered via knit_engines$set()). Quitting from tlg_templates.Rmd:211-229 [unnamed-chunk-7] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error in `match.arg()`: ! 'arg' must be of length 1 --- Backtrace: ▆ 1. └─global demography(data$adsl) 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) ``(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) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error: processing vignette 'tlg_templates.Rmd' failed with diagnostics: 'arg' must be of length 1 --- failed re-building ‘tlg_templates.Rmd’ --- re-building ‘use_LLM.Rmd’ using rmarkdown [WARNING] Deprecated: --highlight-style. Use --syntax-highlighting instead. --- finished re-building ‘use_LLM.Rmd’ --- re-building ‘using_formats.Rmd’ using rmarkdown [WARNING] Deprecated: --highlight-style. Use --syntax-highlighting instead. --- finished re-building ‘using_formats.Rmd’ SUMMARY: processing the following files failed: ‘autoslideR.Rmd’ ‘tlg_templates.Rmd’ Error: Vignette re-building failed. Execution halted Package: autoslider.core Check: tests New result: ERROR Running ‘testthat.R’ [16s/16s] 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.2s] ✔ | 17 | assert Loading required package: filters ✔ | 1 | bad_filters ✔ | 1 0 | data_snapshot [[1]] [[1]] [[2]] ✔ | 1 9 | decorate [1.6s] ──────────────────────────────────────────────────────────────────────────────── 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) ``(x = ``, 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 [1.3s] ──────────────────────────────────────────────────────────────────────────────── 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 ──────────────────────────────────────────────────────────────────────────────── 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) ``(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) ``(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) ``(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.2s] ✔ | 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 ──────────────────────────────────────────────────────────────────────────────── Error ('test-l_ae_slide.R:7:3'): Test listing creation of l_ae_slide (Adverse Events Listing) 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(l_ae_slide(adsl = adsl, adae = adae)) at test-l_ae_slide.R:7: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. └─rlistings:::print.listing_df(x) 24. └─base::tryCatch(...) 25. └─base (local) tryCatchList(expr, classes, parentenv, handlers) 26. └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]]) 27. └─value[[3L]](cond) ──────────────────────────────────────────────────────────────────────────────── 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) ``(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) ``(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) ``(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) ``(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) ``(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 16 | WARN 1 | SKIP 9 | 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) ``(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) ``(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) ``(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) ``(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) ``(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) ``(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) ``(``) 25. │ └─rtables (local) ``(``) 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) ``(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) ``(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 Package: chevron Check: examples New result: ERROR Running examples in ‘chevron-Ex.R’ failed The error most likely occurred in: > base::assign(".ptime", proc.time(), pos = "CheckExEnv") > ### Name: ael01_nollt_main > ### Title: 'AEL01_NOLLT' Listing 1 (Default) Glossary of Preferred Terms > ### and Investigator-Specified Terms. > ### Aliases: ael01_nollt_main ael01_nollt_pre ael01_nollt > ### Keywords: datasets > > ### ** Examples > > run(ael01_nollt, syn_data) 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 Calls: ... tryCatch -> tryCatchList -> tryCatchOne -> Execution halted Package: chevron Check: re-building of vignette outputs New result: ERROR Error(s) in re-building vignettes: ... --- re-building ‘chevron.Rmd’ using rmarkdown Quitting from chevron.Rmd:84-86 [unnamed-chunk-3] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error in `match.arg()`: ! 'arg' must be of length 1 --- Backtrace: ▆ 1. ├─chevron::run(aet02, syn_data) 2. ├─chevron::run(aet02, syn_data) 3. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 4. │ └─base::do.call(what, new_args, envir = args_env) 5. └─chevron (local) ``(adam_db = adam_db) 6. └─rtables::build_table(lyt, adam_db$adae, alt_counts_df = adam_db$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) ``(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: processing vignette 'chevron.Rmd' failed with diagnostics: 'arg' must be of length 1 --- failed re-building ‘chevron.Rmd’ --- re-building ‘chevron_catalog.rmd’ using rmarkdown Quitting from chevron_catalog.rmd:64-67 [unnamed-chunk-5] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error in `match.arg()`: ! 'arg' must be of length 1 --- Backtrace: ▆ 1. ├─chevron::run(dmt01, proc_data) 2. ├─chevron::run(dmt01, proc_data) 3. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 4. │ └─base::do.call(what, new_args, envir = args_env) 5. └─chevron (local) ``(adam_db = adam_db) 6. └─rtables::build_table(lyt, adam_db$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) ``(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: processing vignette 'chevron_catalog.rmd' failed with diagnostics: 'arg' must be of length 1 --- failed re-building ‘chevron_catalog.rmd’ --- re-building ‘script_generator.Rmd’ using rmarkdown [WARNING] Deprecated: --highlight-style. Use --syntax-highlighting instead. --- finished re-building ‘script_generator.Rmd’ SUMMARY: processing the following files failed: ‘chevron.Rmd’ ‘chevron_catalog.rmd’ Error: Vignette re-building failed. Execution halted Package: chevron Check: tests New result: ERROR Running ‘testthat.R’ [81s/81s] Running the tests in ‘tests/testthat.R’ failed. Complete output: > # This file is part of the standard setup for testthat. > # It is recommended that you do not modify it. > # > # Where should you do additional test configuration? > # Learn more about the roles of various files in: > # * https://r-pkgs.org/tests.html > # * https://testthat.r-lib.org/reference/test_package.html#special-files > > library(testthat) > library(checkmate) > library(chevron) > > test_check("chevron") Saving _problems/test-ael01_nollt-7.R Saving _problems/test-ael01_nollt-21.R Saving _problems/test-ael01_nollt-35.R Saving _problems/test-ael01_nollt-51.R Saving _problems/test-ael01_nollt-67.R Saving _problems/test-ael01_nollt-86.R Saving _problems/test-ael02-9.R Saving _problems/test-ael02-24.R Saving _problems/test-ael02-39.R Saving _problems/test-ael03-9.R Saving _problems/test-ael03-25.R Saving _problems/test-ael03-39.R Saving _problems/test-aet02-30.R Saving _problems/test-cfbt01-6.R Saving _problems/test-chevron_tlg-methods-16.R Saving _problems/test-cml02a_gl-5.R Saving _problems/test-cml02a_gl-13.R Saving _problems/test-cml02a_gl-24.R Saving _problems/test-cmt01a-5.R Saving _problems/test-cmt01a-18.R Saving _problems/test-default_tlg-5.R Saving _problems/test-default_tlg-10.R Saving _problems/test-default_tlg-17.R Saving _problems/test-default_tlg-24.R Saving _problems/test-default_tlg-31.R Saving _problems/test-default_tlg-38.R Saving _problems/test-default_tlg-45.R Saving _problems/test-default_tlg-52.R Saving _problems/test-default_tlg-59.R Saving _problems/test-default_tlg-66.R Saving _problems/test-default_tlg-76.R Saving _problems/test-default_tlg-84.R Saving _problems/test-default_tlg-91.R Saving _problems/test-default_tlg-98.R Saving _problems/test-default_tlg-105.R Saving _problems/test-dtht01-30.R Saving _problems/test-egt01-5.R Saving _problems/test-egt02-5.R Saving _problems/test-egt02-13.R Saving _problems/test-egt03-5.R Saving _problems/test-egt05_qtcat-5.R Saving _problems/test-empty_report-19.R Saving _problems/test-ext01-5.R Saving _problems/test-ext01-14.R Saving _problems/test-ext01-38.R Saving _problems/test-ext01-50.R Saving _problems/test-ext01-60.R Saving _problems/test-ext01-72.R Saving _problems/test-ext01-78.R Saving _problems/test-lbt01-9.R Saving _problems/test-lbt01-19.R Saving _problems/test-lbt04-5.R Saving _problems/test-lbt04-21.R Saving _problems/test-lbt05-5.R Saving _problems/test-lbt05-22.R Saving _problems/test-lbt06-9.R Saving _problems/test-lbt06-19.R Saving _problems/test-lbt07-5.R Saving _problems/test-lbt14-9.R Saving _problems/test-lbt14-17.R Saving _problems/test-lbt14-25.R Saving _problems/test-lbt14-33.R Saving _problems/test-lbt14-74.R Saving _problems/test-lbt14-130.R Saving _problems/test-lbt15-5.R Saving _problems/test-mht01-5.R Saving _problems/test-mht01-15.R Saving _problems/test-mht01-22.R Saving _problems/test-mht01-29.R Saving _problems/test-mng01-6.R Saving _problems/test-mng01-30.R Saving _problems/test-mng01-63.R Saving _problems/test-mng01-85.R Saving _problems/test-mng01-118.R Saving _problems/test-mng01-139.R Saving _problems/test-mng01-158.R Saving _problems/test-pdt01-5.R Saving _problems/test-pdt02-5.R Saving _problems/test-report_null-10.R Saving _problems/test-rmpt01-5.R Saving _problems/test-rmpt03-8.R Saving _problems/test-rmpt04-5.R Saving _problems/test-rmpt05-5.R Saving _problems/test-rmpt06-6.R Saving _problems/test-rmpt06-15.R Saving _problems/test-utils-76.R Saving _problems/test-vst01-9.R Saving _problems/test-vst02-5.R Saving _problems/test-vst02-13.R [ FAIL 198 | WARN 0 | SKIP 10 | PASS 208 ] ══ Skipped tests (10) ══════════════════════════════════════════════════════════ • !interactive() is TRUE (1): 'test-chevron_tlg-methods.R:287:3' • On CRAN (9): 'test-chevron_tlg-methods.R:102:1', 'test-chevron_tlg-methods.R:120:1', 'test-chevron_tlg-methods.R:333:1', 'test-chevron_tlg-methods.R:337:1', 'test-mng01.R:97:1', 'test-unwrap.R:1:1', 'test-unwrap.R:40:1', 'test-unwrap.R:69:1', 'test-unwrap.R:104:1' ══ Failed tests ════════════════════════════════════════════════════════════════ ── Error ('test-ael01_nollt.R:7:3'): ael01_nollt works with admh dataset ─────── Error in `obj_round_type(x)`: got a list that doesn't appear to contain (only) tables or listings Backtrace: ▆ 1. ├─base::cat(export_as_txt(res, lpp = 100)) 2. └─formatters::export_as_txt(res, lpp = 100) 3. ├─formatters::paginate_to_mpfs(...) 4. │ ├─formatters::matrix_form(...) 5. │ └─rlistings::matrix_form(...) 6. │ └─rlistings (local) .local(...) 7. │ └─base::vapply(...) 8. │ └─formatters (local) FUN(X[[i]], ...) 9. │ └─base::match.arg(round_type) 10. ├─formatters::obj_round_type(x) 11. └─formatters::obj_round_type(x) ── Error ('test-ael01_nollt.R:21:3'): ael01_nollt works with non-default label ── Error in `obj_round_type(x)`: got a list that doesn't appear to contain (only) tables or listings Backtrace: ▆ 1. ├─base::cat(export_as_txt(res, lpp = 100)) 2. └─formatters::export_as_txt(res, lpp = 100) 3. ├─formatters::paginate_to_mpfs(...) 4. │ ├─formatters::matrix_form(...) 5. │ └─rlistings::matrix_form(...) 6. │ └─rlistings (local) .local(...) 7. │ └─base::vapply(...) 8. │ └─formatters (local) FUN(X[[i]], ...) 9. │ └─base::match.arg(round_type) 10. ├─formatters::obj_round_type(x) 11. └─formatters::obj_round_type(x) ── Error ('test-ael01_nollt.R:35:3'): ael01_nollt can handle all missing values ── Error in `obj_round_type(x)`: got a list that doesn't appear to contain (only) tables or listings Backtrace: ▆ 1. ├─base::cat(export_as_txt(res, lpp = 100)) 2. └─formatters::export_as_txt(res, lpp = 100) 3. ├─formatters::paginate_to_mpfs(...) 4. │ ├─formatters::matrix_form(...) 5. │ └─rlistings::matrix_form(...) 6. │ └─rlistings (local) .local(...) 7. │ └─base::vapply(...) 8. │ └─formatters (local) FUN(X[[i]], ...) 9. │ └─base::match.arg(round_type) 10. ├─formatters::obj_round_type(x) 11. └─formatters::obj_round_type(x) ── Error ('test-ael01_nollt.R:51:3'): ael01_nollt can handle some missing values ── Error in `obj_round_type(x)`: got a list that doesn't appear to contain (only) tables or listings Backtrace: ▆ 1. ├─base::cat(export_as_txt(res, lpp = 100)) 2. └─formatters::export_as_txt(res, lpp = 100) 3. ├─formatters::paginate_to_mpfs(...) 4. │ ├─formatters::matrix_form(...) 5. │ └─rlistings::matrix_form(...) 6. │ └─rlistings (local) .local(...) 7. │ └─base::vapply(...) 8. │ └─formatters (local) FUN(X[[i]], ...) 9. │ └─base::match.arg(round_type) 10. ├─formatters::obj_round_type(x) 11. └─formatters::obj_round_type(x) ── Error ('test-ael01_nollt.R:67:3'): ael01_nollt listing can be split by an additional variable ── Error in `obj_round_type(obj[[1]])`: got a list that doesn't appear to contain (only) tables or listings Backtrace: ▆ 1. ├─base::cat(export_as_txt(res, lpp = 100)) 2. └─formatters::export_as_txt(res, lpp = 100) 3. ├─formatters::paginate_to_mpfs(...) 4. │ ├─base::unlist(...) 5. │ └─base::lapply(...) 6. │ └─formatters (local) FUN(X[[i]], ...) 7. │ └─base::eval(cur_call, envir = parent.frame(3L)) 8. │ └─base::eval(cur_call, envir = parent.frame(3L)) 9. ├─formatters::paginate_to_mpfs(...) 10. │ ├─formatters::matrix_form(...) 11. │ └─rlistings::matrix_form(...) 12. │ └─rlistings (local) .local(...) 13. │ └─base::vapply(...) 14. │ └─formatters (local) FUN(X[[i]], ...) 15. │ └─base::match.arg(round_type) 16. ├─formatters::obj_round_type(x) 17. └─formatters::obj_round_type(x) 18. ├─formatters::obj_round_type(obj[[1]]) 19. └─formatters::obj_round_type(obj[[1]]) ── Error ('test-ael01_nollt.R:86:3'): split ael01_nollt listing do not display missing values ── Error in `obj_round_type(obj[[1]])`: got a list that doesn't appear to contain (only) tables or listings Backtrace: ▆ 1. ├─base::cat(export_as_txt(res, lpp = 100)) 2. └─formatters::export_as_txt(res, lpp = 100) 3. ├─formatters::paginate_to_mpfs(...) 4. │ ├─base::unlist(...) 5. │ └─base::lapply(...) 6. │ └─formatters (local) FUN(X[[i]], ...) 7. │ └─base::eval(cur_call, envir = parent.frame(3L)) 8. │ └─base::eval(cur_call, envir = parent.frame(3L)) 9. ├─formatters::paginate_to_mpfs(...) 10. │ ├─formatters::matrix_form(...) 11. │ └─rlistings::matrix_form(...) 12. │ └─rlistings (local) .local(...) 13. │ └─base::vapply(...) 14. │ └─formatters (local) FUN(X[[i]], ...) 15. │ └─base::match.arg(round_type) 16. ├─formatters::obj_round_type(x) 17. └─formatters::obj_round_type(x) 18. ├─formatters::obj_round_type(obj[[1]]) 19. └─formatters::obj_round_type(obj[[1]]) ── Error ('test-ael02.R:9:3'): ael02 works with adae dataset ─────────────────── Error in `obj_round_type(obj[[1]])`: got a list that doesn't appear to contain (only) tables or listings Backtrace: ▆ 1. ├─base::cat(export_as_txt(res, lpp = 100, cpp = 110)) 2. └─formatters::export_as_txt(res, lpp = 100, cpp = 110) 3. ├─formatters::paginate_to_mpfs(...) 4. │ ├─base::unlist(...) 5. │ └─base::lapply(...) 6. │ └─formatters (local) FUN(X[[i]], ...) 7. │ └─base::eval(cur_call, envir = parent.frame(3L)) 8. │ └─base::eval(cur_call, envir = parent.frame(3L)) 9. ├─formatters::paginate_to_mpfs(...) 10. │ ├─formatters::matrix_form(...) 11. │ └─rlistings::matrix_form(...) 12. │ └─rlistings (local) .local(...) 13. │ └─base::vapply(...) 14. │ └─formatters (local) FUN(X[[i]], ...) 15. │ └─base::match.arg(round_type) 16. ├─formatters::obj_round_type(x) 17. └─formatters::obj_round_type(x) 18. ├─formatters::obj_round_type(obj[[1]]) 19. └─formatters::obj_round_type(obj[[1]]) ── Error ('test-ael02.R:24:3'): ael02 can handle all missing values ──────────── Error in `obj_round_type(x)`: got a list that doesn't appear to contain (only) tables or listings Backtrace: ▆ 1. ├─base::cat(export_as_txt(res[[1]][1:50, ], lpp = 100, cpp = 110)) 2. └─formatters::export_as_txt(res[[1]][1:50, ], lpp = 100, cpp = 110) 3. ├─formatters::paginate_to_mpfs(...) 4. │ ├─formatters::matrix_form(...) 5. │ └─rlistings::matrix_form(...) 6. │ └─rlistings (local) .local(...) 7. │ └─base::vapply(...) 8. │ └─formatters (local) FUN(X[[i]], ...) 9. │ └─base::match.arg(round_type) 10. ├─formatters::obj_round_type(x) 11. └─formatters::obj_round_type(x) ── Error ('test-ael02.R:39:3'): ael02 functions work as expected ─────────────── Error in `obj_round_type(obj[[1]])`: got a list that doesn't appear to contain (only) tables or listings Backtrace: ▆ 1. ├─base::cat(export_as_txt(res, lpp = 100, cpp = 110)) 2. └─formatters::export_as_txt(res, lpp = 100, cpp = 110) 3. ├─formatters::paginate_to_mpfs(...) 4. │ ├─base::unlist(...) 5. │ └─base::lapply(...) 6. │ └─formatters (local) FUN(X[[i]], ...) 7. │ └─base::eval(cur_call, envir = parent.frame(3L)) 8. │ └─base::eval(cur_call, envir = parent.frame(3L)) 9. ├─formatters::paginate_to_mpfs(...) 10. │ ├─formatters::matrix_form(...) 11. │ └─rlistings::matrix_form(...) 12. │ └─rlistings (local) .local(...) 13. │ └─base::vapply(...) 14. │ └─formatters (local) FUN(X[[i]], ...) 15. │ └─base::match.arg(round_type) 16. ├─formatters::obj_round_type(x) 17. └─formatters::obj_round_type(x) 18. ├─formatters::obj_round_type(obj[[1]]) 19. └─formatters::obj_round_type(obj[[1]]) ── Error ('test-ael03.R:9:3'): ael03 works with adae dataset ─────────────────── Error in `obj_round_type(obj[[1]])`: got a list that doesn't appear to contain (only) tables or listings Backtrace: ▆ 1. ├─base::cat(export_as_txt(res, lpp = 100, cpp = 110)) 2. └─formatters::export_as_txt(res, lpp = 100, cpp = 110) 3. ├─formatters::paginate_to_mpfs(...) 4. │ ├─base::unlist(...) 5. │ └─base::lapply(...) 6. │ └─formatters (local) FUN(X[[i]], ...) 7. │ └─base::eval(cur_call, envir = parent.frame(3L)) 8. │ └─base::eval(cur_call, envir = parent.frame(3L)) 9. ├─formatters::paginate_to_mpfs(...) 10. │ ├─formatters::matrix_form(...) 11. │ └─rlistings::matrix_form(...) 12. │ └─rlistings (local) .local(...) 13. │ └─base::vapply(...) 14. │ └─formatters (local) FUN(X[[i]], ...) 15. │ └─base::match.arg(round_type) 16. ├─formatters::obj_round_type(x) 17. └─formatters::obj_round_type(x) 18. ├─formatters::obj_round_type(obj[[1]]) 19. └─formatters::obj_round_type(obj[[1]]) ── Error ('test-ael03.R:25:3'): ael03 can handle all missing values ──────────── Error in `obj_round_type(x)`: got a list that doesn't appear to contain (only) tables or listings Backtrace: ▆ 1. ├─base::cat(export_as_txt(res[[1]][1:50, ], lpp = 100, cpp = 110)) 2. └─formatters::export_as_txt(res[[1]][1:50, ], lpp = 100, cpp = 110) 3. ├─formatters::paginate_to_mpfs(...) 4. │ ├─formatters::matrix_form(...) 5. │ └─rlistings::matrix_form(...) 6. │ └─rlistings (local) .local(...) 7. │ └─base::vapply(...) 8. │ └─formatters (local) FUN(X[[i]], ...) 9. │ └─base::match.arg(round_type) 10. ├─formatters::obj_round_type(x) 11. └─formatters::obj_round_type(x) ── Error ('test-ael03.R:39:3'): ael03 functions work as expected ─────────────── Error in `obj_round_type(obj[[1]])`: got a list that doesn't appear to contain (only) tables or listings Backtrace: ▆ 1. ├─base::cat(export_as_txt(res, lpp = 100, cpp = 110)) 2. └─formatters::export_as_txt(res, lpp = 100, cpp = 110) 3. ├─formatters::paginate_to_mpfs(...) 4. │ ├─base::unlist(...) 5. │ └─base::lapply(...) 6. │ └─formatters (local) FUN(X[[i]], ...) 7. │ └─base::eval(cur_call, envir = parent.frame(3L)) 8. │ └─base::eval(cur_call, envir = parent.frame(3L)) 9. ├─formatters::paginate_to_mpfs(...) 10. │ ├─formatters::matrix_form(...) 11. │ └─rlistings::matrix_form(...) 12. │ └─rlistings (local) .local(...) 13. │ └─base::vapply(...) 14. │ └─formatters (local) FUN(X[[i]], ...) 15. │ └─base::match.arg(round_type) 16. ├─formatters::obj_round_type(x) 17. └─formatters::obj_round_type(x) 18. ├─formatters::obj_round_type(obj[[1]]) 19. └─formatters::obj_round_type(obj[[1]]) ── Error ('test-aet01.R:11:3'): aet01 can handle all NA values ───────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(aet01, proc_data)) at test-aet01.R:11: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. ├─chevron::run(aet01, proc_data) 10. ├─chevron::run(aet01, proc_data) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db) 14. ├─base::rbind(...) 15. ├─base::rbind(...) 16. └─rtables::build_table(lyts$ae1, adam_db$adae, alt_counts_df = adam_db$adsl) 17. └─rtables::update_ref_indexing(tab) 18. ├─formatters::make_row_df(tt) 19. └─rtables::make_row_df(tt) 20. └─rtables (local) .local(...) 21. ├─formatters::make_row_df(...) 22. └─rtables::make_row_df(...) 23. └─rtables (local) .local(...) 24. ├─formatters::pagdfrow(...) 25. │ └─base::data.frame(...) 26. ├─formatters::nlines(...) 27. └─rtables::nlines(...) 28. ├─base::as.vector(get_formatted_cells(x)) 29. ├─rtables::get_formatted_cells(x) 30. └─rtables::get_formatted_cells(x) 31. ├─base::matrix(...) 32. ├─base::unlist(...) 33. └─base::Map(...) 34. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 35. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 36. └─rtables::format_rcell(...) 37. └─formatters::format_value(...) 38. └─base::match.arg(round_type) ── Error ('test-aet01.R:29:3'): aet01 can handle some NA values ──────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(aet01, proc_data)) at test-aet01.R:29: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. ├─chevron::run(aet01, proc_data) 10. ├─chevron::run(aet01, proc_data) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db) 14. ├─base::rbind(...) 15. ├─base::rbind(...) 16. └─rtables::build_table(lyts$ae1, adam_db$adae, alt_counts_df = adam_db$adsl) 17. └─rtables::update_ref_indexing(tab) 18. ├─formatters::make_row_df(tt) 19. └─rtables::make_row_df(tt) 20. └─rtables (local) .local(...) 21. ├─formatters::make_row_df(...) 22. └─rtables::make_row_df(...) 23. └─rtables (local) .local(...) 24. ├─formatters::pagdfrow(...) 25. │ └─base::data.frame(...) 26. ├─formatters::nlines(...) 27. └─rtables::nlines(...) 28. ├─base::as.vector(get_formatted_cells(x)) 29. ├─rtables::get_formatted_cells(x) 30. └─rtables::get_formatted_cells(x) 31. ├─base::matrix(...) 32. ├─base::unlist(...) 33. └─base::Map(...) 34. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 35. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 36. └─rtables::format_rcell(...) 37. └─formatters::format_value(...) 38. └─base::match.arg(round_type) ── Error ('test-aet01.R:36:3'): aet01 can use custom anl_vars ────────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(aet01, proc_data, anl_vars = list(safety_var = "FATAL"))) at test-aet01.R:36: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. ├─chevron::run(aet01, proc_data, anl_vars = list(safety_var = "FATAL")) 10. ├─chevron::run(aet01, proc_data, anl_vars = list(safety_var = "FATAL")) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db, anl_vars = anl_vars) 14. ├─base::rbind(...) 15. ├─base::rbind(...) 16. └─rtables::build_table(lyts$ae1, adam_db$adae, alt_counts_df = adam_db$adsl) 17. └─rtables::update_ref_indexing(tab) 18. ├─formatters::make_row_df(tt) 19. └─rtables::make_row_df(tt) 20. └─rtables (local) .local(...) 21. ├─formatters::make_row_df(...) 22. └─rtables::make_row_df(...) 23. └─rtables (local) .local(...) 24. ├─formatters::pagdfrow(...) 25. │ └─base::data.frame(...) 26. ├─formatters::nlines(...) 27. └─rtables::nlines(...) 28. ├─base::as.vector(get_formatted_cells(x)) 29. ├─rtables::get_formatted_cells(x) 30. └─rtables::get_formatted_cells(x) 31. ├─base::matrix(...) 32. ├─base::unlist(...) 33. └─base::Map(...) 34. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 35. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 36. └─rtables::format_rcell(...) 37. └─formatters::format_value(...) 38. └─base::match.arg(round_type) ── Error ('test-aet01.R:57:3'): aet01 can use custom medconcept_var ──────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(...) at test-aet01.R:57: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. ├─chevron::run(...) 10. ├─chevron::run(...) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db, anl_vars = anl_vars) 14. ├─base::rbind(...) 15. ├─base::rbind(...) 16. └─rtables::build_table(lyts$ae1, adam_db$adae, alt_counts_df = adam_db$adsl) 17. └─rtables::update_ref_indexing(tab) 18. ├─formatters::make_row_df(tt) 19. └─rtables::make_row_df(tt) 20. └─rtables (local) .local(...) 21. ├─formatters::make_row_df(...) 22. └─rtables::make_row_df(...) 23. └─rtables (local) .local(...) 24. ├─formatters::pagdfrow(...) 25. │ └─base::data.frame(...) 26. ├─formatters::nlines(...) 27. └─rtables::nlines(...) 28. ├─base::as.vector(get_formatted_cells(x)) 29. ├─rtables::get_formatted_cells(x) 30. └─rtables::get_formatted_cells(x) 31. ├─base::matrix(...) 32. ├─base::unlist(...) 33. └─base::Map(...) 34. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 35. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 36. └─rtables::format_rcell(...) 37. └─formatters::format_value(...) 38. └─base::match.arg(round_type) ── Error ('test-aet01.R:74:3'): aet01 can conditionally show the number of withdrawal ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(...) at test-aet01.R:74: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. ├─chevron::run(aet01, syn_data, arm_var = "ARM", show_wd = FALSE) 10. ├─chevron::run(aet01, syn_data, arm_var = "ARM", show_wd = FALSE) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db, arm_var = arm_var, show_wd = show_wd) 14. ├─base::rbind(...) 15. ├─base::rbind(...) 16. └─rtables::build_table(lyts$ae1, adam_db$adae, alt_counts_df = adam_db$adsl) 17. └─rtables::update_ref_indexing(tab) 18. ├─formatters::make_row_df(tt) 19. └─rtables::make_row_df(tt) 20. └─rtables (local) .local(...) 21. ├─formatters::make_row_df(...) 22. └─rtables::make_row_df(...) 23. └─rtables (local) .local(...) 24. ├─formatters::pagdfrow(...) 25. │ └─base::data.frame(...) 26. ├─formatters::nlines(...) 27. └─rtables::nlines(...) 28. ├─base::as.vector(get_formatted_cells(x)) 29. ├─rtables::get_formatted_cells(x) 30. └─rtables::get_formatted_cells(x) 31. ├─base::matrix(...) 32. ├─base::unlist(...) 33. └─base::Map(...) 34. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 35. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 36. └─rtables::format_rcell(...) 37. └─formatters::format_value(...) 38. └─base::match.arg(round_type) ── Error ('test-aet01_aesi.R:16:3'): aet01_aesi can handle all NA values ─────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(aet01_aesi, proc_data)) at test-aet01_aesi.R:16: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. ├─chevron::run(aet01_aesi, proc_data) 10. ├─chevron::run(aet01_aesi, proc_data) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db) 14. └─rtables::build_table(lyt, adam_db$adae, alt_counts_df = adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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::pagdfrow(...) 26. │ └─base::data.frame(...) 27. ├─formatters::nlines(...) 28. └─rtables::nlines(...) 29. ├─base::as.vector(get_formatted_cells(x)) 30. ├─rtables::get_formatted_cells(x) 31. └─rtables::get_formatted_cells(x) 32. ├─base::matrix(...) 33. ├─base::unlist(...) 34. └─base::Map(...) 35. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 36. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 37. └─rtables::format_rcell(...) 38. └─formatters::format_value(...) 39. └─base::match.arg(round_type) ── Error ('test-aet01_aesi.R:30:3'): aet01_aesi can handle some NA values ────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(aet01_aesi, proc_data)) at test-aet01_aesi.R:30: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. ├─chevron::run(aet01_aesi, proc_data) 10. ├─chevron::run(aet01_aesi, proc_data) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db) 14. └─rtables::build_table(lyt, adam_db$adae, alt_counts_df = adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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::pagdfrow(...) 26. │ └─base::data.frame(...) 27. ├─formatters::nlines(...) 28. └─rtables::nlines(...) 29. ├─base::as.vector(get_formatted_cells(x)) 30. ├─rtables::get_formatted_cells(x) 31. └─rtables::get_formatted_cells(x) 32. ├─base::matrix(...) 33. ├─base::unlist(...) 34. └─base::Map(...) 35. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 36. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 37. └─rtables::format_rcell(...) 38. └─formatters::format_value(...) 39. └─base::match.arg(round_type) ── Error ('test-aet01_aesi.R:37:3'): aet01_aesi works with `ALL` argument ────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(aet01_aesi, proc_data, aesi_vars = c("ALL"))) at test-aet01_aesi.R:37: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. ├─chevron::run(aet01_aesi, proc_data, aesi_vars = c("ALL")) 10. ├─chevron::run(aet01_aesi, proc_data, aesi_vars = c("ALL")) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db, aesi_vars = aesi_vars) 14. └─rtables::build_table(lyt, adam_db$adae, alt_counts_df = adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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::pagdfrow(...) 26. │ └─base::data.frame(...) 27. ├─formatters::nlines(...) 28. └─rtables::nlines(...) 29. ├─base::as.vector(get_formatted_cells(x)) 30. ├─rtables::get_formatted_cells(x) 31. └─rtables::get_formatted_cells(x) 32. ├─base::matrix(...) 33. ├─base::unlist(...) 34. └─base::Map(...) 35. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 36. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 37. └─rtables::format_rcell(...) 38. └─formatters::format_value(...) 39. └─base::match.arg(round_type) ── Error ('test-aet02.R:25:3'): aet02 handle empty data input ────────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(aet02, proc_data)) at test-aet02.R:25: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. ├─chevron::run(aet02, proc_data) 10. ├─chevron::run(aet02, proc_data) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db) 14. └─rtables::build_table(lyt, adam_db$adae, alt_counts_df = adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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::pagdfrow(...) 26. │ └─base::data.frame(...) 27. ├─formatters::nlines(...) 28. └─rtables::nlines(...) 29. ├─base::as.vector(get_formatted_cells(x)) 30. ├─rtables::get_formatted_cells(x) 31. └─rtables::get_formatted_cells(x) 32. ├─base::matrix(...) 33. ├─base::unlist(...) 34. └─base::Map(...) 35. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 36. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 37. └─rtables::format_rcell(...) 38. └─formatters::format_value(...) 39. └─base::match.arg(round_type) ── Error ('test-aet02.R:30:3'): aet02 can have different levels of row_split ─── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─chevron::run(aet02, syn_data, row_split_var = NULL) at test-aet02.R:30:3 2. ├─chevron::run(aet02, syn_data, row_split_var = NULL) 3. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 4. │ └─base::do.call(what, new_args, envir = args_env) 5. └─chevron (local) ``(adam_db = adam_db, row_split_var = row_split_var) 6. └─rtables::build_table(lyt, adam_db$adae, alt_counts_df = adam_db$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) ``(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-aet03.R:9:3'): aet03 can handle NA values ────────────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(aet03, proc_data)) at test-aet03.R:9: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. ├─chevron::run(aet03, proc_data) 10. ├─chevron::run(aet03, proc_data) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db) 14. └─rtables::build_table(lyt, df = adam_db$adae, alt_counts_df = adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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::pagdfrow(...) 26. │ └─base::data.frame(...) 27. ├─formatters::nlines(...) 28. └─rtables::nlines(...) 29. ├─base::as.vector(get_formatted_cells(x)) 30. ├─rtables::get_formatted_cells(x) 31. └─rtables::get_formatted_cells(x) 32. ├─base::matrix(...) 33. ├─base::unlist(...) 34. └─base::Map(...) 35. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 36. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 37. └─rtables::format_rcell(...) 38. └─formatters::format_value(...) 39. └─base::match.arg(round_type) ── Error ('test-aet03.R:27:3'): aet03 can handle some NA values ──────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(aet03, proc_data)) at test-aet03.R:27: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. ├─chevron::run(aet03, proc_data) 10. ├─chevron::run(aet03, proc_data) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db) 14. └─rtables::build_table(lyt, df = adam_db$adae, alt_counts_df = adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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::pagdfrow(...) 26. │ └─base::data.frame(...) 27. ├─formatters::nlines(...) 28. └─rtables::nlines(...) 29. ├─base::as.vector(get_formatted_cells(x)) 30. ├─rtables::get_formatted_cells(x) 31. └─rtables::get_formatted_cells(x) 32. ├─base::matrix(...) 33. ├─base::unlist(...) 34. └─base::Map(...) 35. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 36. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 37. └─rtables::format_rcell(...) 38. └─formatters::format_value(...) 39. └─base::match.arg(round_type) ── Error ('test-aet04.R:9:3'): aet04 can handle NA values ────────────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(aet04, proc_data)) at test-aet04.R:9: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. ├─chevron::run(aet04, proc_data) 10. ├─chevron::run(aet04, proc_data) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db) 14. └─rtables::build_table(lyt, df = adam_db$adae, alt_counts_df = adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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::make_row_df(...) 29. └─rtables::make_row_df(...) 30. └─rtables (local) .local(...) 31. ├─formatters::pagdfrow(...) 32. │ └─base::data.frame(...) 33. ├─formatters::nlines(...) 34. └─rtables::nlines(...) 35. ├─base::as.vector(get_formatted_cells(x)) 36. ├─rtables::get_formatted_cells(x) 37. └─rtables::get_formatted_cells(x) 38. ├─base::matrix(...) 39. ├─base::unlist(...) 40. └─base::Map(...) 41. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 42. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 43. └─rtables::format_rcell(...) 44. └─formatters::format_value(...) 45. └─base::match.arg(round_type) ── Error ('test-aet04.R:32:3'): aet04 can handle some NA values ──────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(aet04, proc_data)) at test-aet04.R:32: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. ├─chevron::run(aet04, proc_data) 10. ├─chevron::run(aet04, proc_data) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db) 14. └─rtables::build_table(lyt, df = adam_db$adae, alt_counts_df = adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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::make_row_df(...) 29. └─rtables::make_row_df(...) 30. └─rtables (local) .local(...) 31. ├─formatters::pagdfrow(...) 32. │ └─base::data.frame(...) 33. ├─formatters::nlines(...) 34. └─rtables::nlines(...) 35. ├─base::as.vector(get_formatted_cells(x)) 36. ├─rtables::get_formatted_cells(x) 37. └─rtables::get_formatted_cells(x) 38. ├─base::matrix(...) 39. ├─base::unlist(...) 40. └─base::Map(...) 41. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 42. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 43. └─rtables::format_rcell(...) 44. └─formatters::format_value(...) 45. └─base::match.arg(round_type) ── Error ('test-aet05.R:6:3'): aet05 can handle NA values ────────────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(aet05, proc_data)) at test-aet05.R:6: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. ├─chevron::run(aet05, proc_data) 10. ├─chevron::run(aet05, proc_data) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db) 14. └─rtables::build_table(lyt, adam_db[[dataset]], alt_counts_df = adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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) ``(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-aet05.R:24:3'): aet05 can handle some NA values ──────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(aet05, proc_data)) at test-aet05.R:24: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. ├─chevron::run(aet05, proc_data) 10. ├─chevron::run(aet05, proc_data) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db) 14. └─rtables::build_table(lyt, adam_db[[dataset]], alt_counts_df = adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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) ``(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-aet05_all.R:6:3'): aet05_all can handle NA values ────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(aet05_all, proc_data)) at test-aet05_all.R:6: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. ├─chevron::run(aet05_all, proc_data) 10. ├─chevron::run(aet05_all, proc_data) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db) 14. └─rtables::build_table(lyt, adam_db[[dataset]], alt_counts_df = adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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) ``(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-aet05_all.R:21:3'): aet05_all can handle some NA values ──────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(aet05_all, proc_data)) at test-aet05_all.R:21: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. ├─chevron::run(aet05_all, proc_data) 10. ├─chevron::run(aet05_all, proc_data) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db) 14. └─rtables::build_table(lyt, adam_db[[dataset]], alt_counts_df = adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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) ``(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-aet10.R:9:3'): aet10 can handle NA values ────────────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(aet10, proc_data)) at test-aet10.R:9: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. ├─chevron::run(aet10, proc_data) 10. ├─chevron::run(aet10, proc_data) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db) 14. └─rtables::build_table(lyt, adam_db$adae, alt_counts_df = adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 18. └─rtables (local) .local(...) 19. ├─formatters::make_row_df(...) 20. └─rtables::make_row_df(...) 21. └─rtables (local) .local(...) 22. ├─formatters::pagdfrow(...) 23. │ └─base::data.frame(...) 24. ├─formatters::nlines(...) 25. └─rtables::nlines(...) 26. ├─base::as.vector(get_formatted_cells(x)) 27. ├─rtables::get_formatted_cells(x) 28. └─rtables::get_formatted_cells(x) 29. ├─base::matrix(...) 30. ├─base::unlist(...) 31. └─base::Map(...) 32. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 33. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 34. └─rtables::format_rcell(...) 35. └─formatters::format_value(...) 36. └─base::match.arg(round_type) ── Error ('test-aet10.R:24:3'): aet10 can handle some NA values ──────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(aet10, proc_data)) at test-aet10.R:24: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. ├─chevron::run(aet10, proc_data) 10. ├─chevron::run(aet10, proc_data) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db) 14. └─rtables::build_table(lyt, adam_db$adae, alt_counts_df = adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 18. └─rtables (local) .local(...) 19. ├─formatters::make_row_df(...) 20. └─rtables::make_row_df(...) 21. └─rtables (local) .local(...) 22. ├─formatters::pagdfrow(...) 23. │ └─base::data.frame(...) 24. ├─formatters::nlines(...) 25. └─rtables::nlines(...) 26. ├─base::as.vector(get_formatted_cells(x)) 27. ├─rtables::get_formatted_cells(x) 28. └─rtables::get_formatted_cells(x) 29. ├─base::matrix(...) 30. ├─base::unlist(...) 31. └─base::Map(...) 32. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 33. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 34. └─rtables::format_rcell(...) 35. └─formatters::format_value(...) 36. └─base::match.arg(round_type) ── Error ('test-cfbt01.R:6:3'): cfbt01 functions with default argument value return expected result with test data ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─chevron::cfbt01_main(pre_data, dataset = "advs") at test-cfbt01.R:6:3 2. └─rtables::build_table(lyt, df = adam_db[[dataset]], alt_counts_df = adam_db$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::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::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::pagdfrow(...) 23. │ └─base::data.frame(...) 24. ├─formatters::nlines(...) 25. └─rtables::nlines(...) 26. ├─base::as.vector(get_formatted_cells(x)) 27. ├─rtables::get_formatted_cells(x) 28. └─rtables::get_formatted_cells(x) 29. ├─base::matrix(...) 30. ├─base::unlist(...) 31. └─base::Map(...) 32. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 33. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 34. └─rtables::format_rcell(...) 35. └─formatters::format_value(...) 36. └─base::match.arg(round_type) ── Error ('test-cfbt01.R:20:3'): cfbt01 can handle n = 0 and outputs NE instead of infs and NAs ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(cfbt01, proc_data, dataset = "advs")) at test-cfbt01.R:20: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. ├─chevron::run(cfbt01, proc_data, dataset = "advs") 10. ├─chevron::run(cfbt01, proc_data, dataset = "advs") 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db, dataset = dataset) 14. └─rtables::build_table(lyt, df = adam_db[[dataset]], alt_counts_df = adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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::make_row_df(...) 29. └─rtables::make_row_df(...) 30. └─rtables (local) .local(...) 31. ├─formatters::make_row_df(...) 32. └─rtables::make_row_df(...) 33. └─rtables (local) .local(...) 34. ├─formatters::pagdfrow(...) 35. │ └─base::data.frame(...) 36. ├─formatters::nlines(...) 37. └─rtables::nlines(...) 38. ├─base::as.vector(get_formatted_cells(x)) 39. ├─rtables::get_formatted_cells(x) 40. └─rtables::get_formatted_cells(x) 41. ├─base::matrix(...) 42. ├─base::unlist(...) 43. └─base::Map(...) 44. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 45. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 46. └─rtables::format_rcell(...) 47. └─formatters::format_value(...) 48. └─base::match.arg(round_type) ── Error ('test-chevron_tlg-methods.R:7:3'): run works as expected for chevron_t object ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(res <- run(aet04, syn_adv, prune_0 = TRUE)) at test-chevron_tlg-methods.R:7: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. ├─chevron::run(aet04, syn_adv, prune_0 = TRUE) 10. ├─chevron::run(aet04, syn_adv, prune_0 = TRUE) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db, prune_0 = prune_0) 14. └─rtables::build_table(lyt, df = adam_db$adae, alt_counts_df = adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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::make_row_df(...) 29. └─rtables::make_row_df(...) 30. └─rtables (local) .local(...) 31. ├─formatters::pagdfrow(...) 32. │ └─base::data.frame(...) 33. ├─formatters::nlines(...) 34. └─rtables::nlines(...) 35. ├─base::as.vector(get_formatted_cells(x)) 36. ├─rtables::get_formatted_cells(x) 37. └─rtables::get_formatted_cells(x) 38. ├─base::matrix(...) 39. ├─base::unlist(...) 40. └─base::Map(...) 41. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 42. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 43. └─rtables::format_rcell(...) 44. └─formatters::format_value(...) 45. └─base::match.arg(round_type) ── Error ('test-chevron_tlg-methods.R:16:3'): run works as expected for chevron_t object when auto_pre = FALSE ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─chevron::run(dmt01, proc_data, auto_pre = FALSE) at test-chevron_tlg-methods.R:16:3 2. ├─chevron::run(dmt01, proc_data, auto_pre = FALSE) 3. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 4. │ └─base::do.call(what, new_args, envir = args_env) 5. └─chevron (local) ``(adam_db = adam_db) 6. └─rtables::build_table(lyt, adam_db$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) ``(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-chevron_tlg-methods.R:22:3'): run works as expected with argument printed ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::capture_output(...) at test-chevron_tlg-methods.R:22:3 2. │ └─testthat::capture_output_lines(code, print, width = width) 3. │ └─testthat:::eval_with_output(code, print = print, width = width) 4. │ ├─withr::with_output_sink(path, withVisible(code)) 5. │ │ └─base::force(code) 6. │ └─base::withVisible(code) 7. ├─chevron::run(...) 8. ├─chevron::run(...) 9. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 10. │ └─base::do.call(what, new_args, envir = args_env) 11. └─chevron (local) ``(adam_db = adam_db, prune_0 = prune_0) 12. └─rtables::build_table(lyt, adam_db$adae, alt_counts_df = adam_db$adsl) 13. └─rtables::update_ref_indexing(tab) 14. ├─formatters::make_row_df(tt) 15. └─rtables::make_row_df(tt) 16. └─rtables (local) .local(...) 17. ├─formatters::make_row_df(...) 18. └─rtables::make_row_df(...) 19. └─rtables (local) .local(...) 20. ├─formatters::make_row_df(...) 21. └─rtables::make_row_df(...) 22. └─rtables (local) .local(...) 23. ├─formatters::pagdfrow(...) 24. │ └─base::data.frame(...) 25. ├─formatters::nlines(...) 26. └─rtables::nlines(...) 27. ├─base::as.vector(get_formatted_cells(x)) 28. ├─rtables::get_formatted_cells(x) 29. └─rtables::get_formatted_cells(x) 30. ├─base::matrix(...) 31. ├─base::unlist(...) 32. └─base::Map(...) 33. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 34. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 35. └─rtables::format_rcell(...) 36. └─formatters::format_value(...) 37. └─base::match.arg(round_type) ── Error ('test-chevron_tlg-methods.R:31:3'): run works as expected with argument printed if the user argument is complicated ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::capture_output(...) at test-chevron_tlg-methods.R:31:3 2. │ └─testthat::capture_output_lines(code, print, width = width) 3. │ └─testthat:::eval_with_output(code, print = print, width = width) 4. │ ├─withr::with_output_sink(path, withVisible(code)) 5. │ │ └─base::force(code) 6. │ └─base::withVisible(code) 7. ├─chevron::run(...) 8. ├─chevron::run(...) 9. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 10. │ └─base::do.call(what, new_args, envir = args_env) 11. └─chevron (local) ``(...) 12. └─rtables::build_table(lyt, adam_db$adae, alt_counts_df = adam_db$adsl) 13. └─rtables::update_ref_indexing(tab) 14. ├─formatters::make_row_df(tt) 15. └─rtables::make_row_df(tt) 16. └─rtables (local) .local(...) 17. ├─formatters::make_row_df(...) 18. └─rtables::make_row_df(...) 19. └─rtables (local) .local(...) 20. ├─formatters::make_row_df(...) 21. └─rtables::make_row_df(...) 22. └─rtables (local) .local(...) 23. ├─formatters::pagdfrow(...) 24. │ └─base::data.frame(...) 25. ├─formatters::nlines(...) 26. └─rtables::nlines(...) 27. ├─base::as.vector(get_formatted_cells(x)) 28. ├─rtables::get_formatted_cells(x) 29. └─rtables::get_formatted_cells(x) 30. ├─base::matrix(...) 31. ├─base::unlist(...) 32. └─base::Map(...) 33. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 34. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 35. └─rtables::format_rcell(...) 36. └─formatters::format_value(...) 37. └─base::match.arg(round_type) ── Error ('test-chevron_tlg-methods.R:39:3'): run uses the argument passed through the ellipsis in priority ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::capture_output(...) at test-chevron_tlg-methods.R:39:3 2. │ └─testthat::capture_output_lines(code, print, width = width) 3. │ └─testthat:::eval_with_output(code, print = print, width = width) 4. │ ├─withr::with_output_sink(path, withVisible(code)) 5. │ │ └─base::force(code) 6. │ └─base::withVisible(code) 7. ├─chevron::run(...) 8. ├─chevron::run(...) 9. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 10. │ └─base::do.call(what, new_args, envir = args_env) 11. └─chevron (local) ``(...) 12. └─rtables::build_table(lyt, adam_db$adae, alt_counts_df = adam_db$adsl) 13. └─rtables::update_ref_indexing(tab) 14. ├─formatters::make_row_df(tt) 15. └─rtables::make_row_df(tt) 16. └─rtables (local) .local(...) 17. ├─formatters::make_row_df(...) 18. └─rtables::make_row_df(...) 19. └─rtables (local) .local(...) 20. ├─formatters::make_row_df(...) 21. └─rtables::make_row_df(...) 22. └─rtables (local) .local(...) 23. ├─formatters::pagdfrow(...) 24. │ └─base::data.frame(...) 25. ├─formatters::nlines(...) 26. └─rtables::nlines(...) 27. ├─base::as.vector(get_formatted_cells(x)) 28. ├─rtables::get_formatted_cells(x) 29. └─rtables::get_formatted_cells(x) 30. ├─base::matrix(...) 31. ├─base::unlist(...) 32. └─base::Map(...) 33. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 34. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 35. └─rtables::format_rcell(...) 36. └─formatters::format_value(...) 37. └─base::match.arg(round_type) ── Error ('test-chevron_tlg-methods.R:57:3'): run works as expected with partial match argument ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::capture_output(...) at test-chevron_tlg-methods.R:57:3 2. │ └─testthat::capture_output_lines(code, print, width = width) 3. │ └─testthat:::eval_with_output(code, print = print, width = width) 4. │ ├─withr::with_output_sink(path, withVisible(code)) 5. │ │ └─base::force(code) 6. │ └─base::withVisible(code) 7. ├─chevron::run(...) 8. ├─chevron::run(...) 9. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 10. │ └─base::do.call(what, new_args, envir = args_env) 11. └─chevron (local) ``(adam_db = adam_db, prune_0 = prune_0, arm_var = arm_var) 12. └─rtables::build_table(lyt, adam_db$adae, alt_counts_df = adam_db$adsl) 13. └─rtables::update_ref_indexing(tab) 14. ├─formatters::make_row_df(tt) 15. └─rtables::make_row_df(tt) 16. └─rtables (local) .local(...) 17. ├─formatters::make_row_df(...) 18. └─rtables::make_row_df(...) 19. └─rtables (local) .local(...) 20. ├─formatters::make_row_df(...) 21. └─rtables::make_row_df(...) 22. └─rtables (local) .local(...) 23. ├─formatters::pagdfrow(...) 24. │ └─base::data.frame(...) 25. ├─formatters::nlines(...) 26. └─rtables::nlines(...) 27. ├─base::as.vector(get_formatted_cells(x)) 28. ├─rtables::get_formatted_cells(x) 29. └─rtables::get_formatted_cells(x) 30. ├─base::matrix(...) 31. ├─base::unlist(...) 32. └─base::Map(...) 33. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 34. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 35. └─rtables::format_rcell(...) 36. └─formatters::format_value(...) 37. └─base::match.arg(round_type) ── Error ('test-chevron_tlg-methods.R:66:3'): run displays the symbols when available ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::capture_output(...) at test-chevron_tlg-methods.R:66:3 2. │ └─testthat::capture_output_lines(code, print, width = width) 3. │ └─testthat:::eval_with_output(code, print = print, width = width) 4. │ ├─withr::with_output_sink(path, withVisible(code)) 5. │ │ └─base::force(code) 6. │ └─base::withVisible(code) 7. ├─chevron::run(...) 8. ├─chevron::run(...) 9. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 10. │ └─base::do.call(what, new_args, envir = args_env) 11. └─chevron (local) ``(...) 12. └─rtables::build_table(lyt, adam_db$adae, alt_counts_df = adam_db$adsl) 13. └─rtables::update_ref_indexing(tab) 14. ├─formatters::make_row_df(tt) 15. └─rtables::make_row_df(tt) 16. └─rtables (local) .local(...) 17. ├─formatters::make_row_df(...) 18. └─rtables::make_row_df(...) 19. └─rtables (local) .local(...) 20. ├─formatters::make_row_df(...) 21. └─rtables::make_row_df(...) 22. └─rtables (local) .local(...) 23. ├─formatters::pagdfrow(...) 24. │ └─base::data.frame(...) 25. ├─formatters::nlines(...) 26. └─rtables::nlines(...) 27. ├─base::as.vector(get_formatted_cells(x)) 28. ├─rtables::get_formatted_cells(x) 29. └─rtables::get_formatted_cells(x) 30. ├─base::matrix(...) 31. ├─base::unlist(...) 32. └─base::Map(...) 33. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 34. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 35. └─rtables::format_rcell(...) 36. └─formatters::format_value(...) 37. └─base::match.arg(round_type) ── Error ('test-chevron_tlg-methods.R:84:3'): run print internal functions when unwrap is TRUE ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::capture_output(...) at test-chevron_tlg-methods.R:84:3 2. │ └─testthat::capture_output_lines(code, print, width = width) 3. │ └─testthat:::eval_with_output(code, print = print, width = width) 4. │ ├─withr::with_output_sink(path, withVisible(code)) 5. │ │ └─base::force(code) 6. │ └─base::withVisible(code) 7. ├─chevron::run(...) 8. ├─chevron::run(...) 9. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 10. │ └─base::do.call(what, new_args, envir = args_env) 11. └─chevron (local) ``(adam_db = adam_db, prune_0 = prune_0) 12. └─rtables::build_table(lyt, adam_db$adae, alt_counts_df = adam_db$adsl) 13. └─rtables::update_ref_indexing(tab) 14. ├─formatters::make_row_df(tt) 15. └─rtables::make_row_df(tt) 16. └─rtables (local) .local(...) 17. ├─formatters::make_row_df(...) 18. └─rtables::make_row_df(...) 19. └─rtables (local) .local(...) 20. ├─formatters::make_row_df(...) 21. └─rtables::make_row_df(...) 22. └─rtables (local) .local(...) 23. ├─formatters::pagdfrow(...) 24. │ └─base::data.frame(...) 25. ├─formatters::nlines(...) 26. └─rtables::nlines(...) 27. ├─base::as.vector(get_formatted_cells(x)) 28. ├─rtables::get_formatted_cells(x) 29. └─rtables::get_formatted_cells(x) 30. ├─base::matrix(...) 31. ├─base::unlist(...) 32. └─base::Map(...) 33. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 34. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 35. └─rtables::format_rcell(...) 36. └─formatters::format_value(...) 37. └─base::match.arg(round_type) ── Error ('test-chevron_tlg-methods.R:97:5'): run print internal functions when unwrap is TRUE and standard chevron_tlg has no layout ── Error in `dplyr::summarise(., h_format_row(x = sfun(.data[[y]], ...)[table], format = table_format, labels = table_labels), .groups = "drop")`: i In argument: `h_format_row(...)`. i In group 1: `ACTARM = A: Drug X` `AVISIT = BASELINE`. Caused by error in `match.arg()`: ! 'arg' must be of length 1 Backtrace: ▆ 1. ├─withr::with_options(...) at test-chevron_tlg-methods.R:96:3 2. │ └─base::force(code) 3. ├─testthat::capture_output(...) at test-chevron_tlg-methods.R:97:5 4. │ └─testthat::capture_output_lines(code, print, width = width) 5. │ └─testthat:::eval_with_output(code, print = print, width = width) 6. │ ├─withr::with_output_sink(path, withVisible(code)) 7. │ │ └─base::force(code) 8. │ └─base::withVisible(code) 9. ├─chevron::run(...) 10. ├─chevron::run(...) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. ├─chevron (local) ``(adam_db = adam_db, dataset = dataset) 14. │ └─base::lapply(...) 15. │ └─tern (local) FUN(X[[i]], ...) 16. │ └─df_grp %>% ... 17. ├─dplyr::summarise(...) 18. ├─dplyr:::summarise.grouped_df(...) 19. │ └─dplyr:::summarise_cols(.data, dplyr_quosures(...), by, "summarise") 20. │ ├─base::withCallingHandlers(...) 21. │ └─dplyr:::map(quosures, summarise_eval_one, mask = mask) 22. │ └─base::lapply(.x, .f, ...) 23. │ └─dplyr (local) FUN(X[[i]], ...) 24. │ └─mask$eval_all_summarise(quo) 25. │ └─dplyr (local) eval() 26. ├─tern::h_format_row(...) 27. │ ├─base::do.call(...) 28. │ └─base::lapply(...) 29. │ └─tern (local) FUN(X[[i]], ...) 30. │ └─tern (local) format_cell(x[[xn]], format = format[[xn]], label = labels[xn]) 31. │ └─rtables::format_rcell(x = x, format = format) 32. │ └─formatters::format_value(...) 33. │ └─base::match.arg(round_type) 34. │ └─base::stop(gettextf("'%s' must be of length 1", "arg"), domain = NA) 35. └─base::.handleSimpleError(...) 36. └─dplyr (local) h(simpleError(msg, call)) 37. └─dplyr (local) handler(cnd) 38. └─rlang::abort(message, class = error_class, parent = parent, call = error_call) ── Error ('test-chevron_tlg-methods.R:309:5'): script_funs generates a valid script ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─withr::with_tempfile(...) at test-chevron_tlg-methods.R:301:3 2. │ └─base::eval(substitute(code), envir = env) 3. │ └─base::eval(substitute(code), envir = env) 4. │ ├─testthat::capture_output(source(tmp, local = TRUE)) at test-chevron_tlg-methods.R:309:5 5. │ │ └─testthat::capture_output_lines(code, print, width = width) 6. │ │ └─testthat:::eval_with_output(code, print = print, width = width) 7. │ │ ├─withr::with_output_sink(path, withVisible(code)) 8. │ │ │ └─base::force(code) 9. │ │ └─base::withVisible(code) 10. │ ├─base::source(tmp, local = TRUE) 11. │ │ ├─base::withVisible(eval(ei, envir)) 12. │ │ └─base::eval(ei, envir) 13. │ │ └─base::eval(ei, envir) 14. │ ├─chevron::run(...) 15. │ └─chevron::run(...) 16. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 17. │ └─base::do.call(what, new_args, envir = args_env) 18. └─chevron (local) ``(adam_db = adam_db, arm_var = arm_var) 19. └─rtables::build_table(lyt, df = adam_db$adae, alt_counts_df = adam_db$adsl) 20. └─rtables::update_ref_indexing(tab) 21. ├─formatters::make_row_df(tt) 22. └─rtables::make_row_df(tt) 23. └─rtables (local) .local(...) 24. ├─formatters::make_row_df(...) 25. └─rtables::make_row_df(...) 26. └─rtables (local) .local(...) 27. ├─formatters::make_row_df(...) 28. └─rtables::make_row_df(...) 29. └─rtables (local) .local(...) 30. ├─formatters::make_row_df(...) 31. └─rtables::make_row_df(...) 32. └─rtables (local) .local(...) 33. ├─formatters::make_row_df(...) 34. └─rtables::make_row_df(...) 35. └─rtables (local) .local(...) 36. ├─formatters::pagdfrow(...) 37. │ └─base::data.frame(...) 38. ├─formatters::nlines(...) 39. └─rtables::nlines(...) 40. ├─base::as.vector(get_formatted_cells(x)) 41. ├─rtables::get_formatted_cells(x) 42. └─rtables::get_formatted_cells(x) 43. ├─base::matrix(...) 44. ├─base::unlist(...) 45. └─base::Map(...) 46. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 47. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 48. └─rtables::format_rcell(...) 49. └─formatters::format_value(...) 50. └─base::match.arg(round_type) ── Error ('test-cml02a_gl.R:5:3'): cml02a_gl works with adcm dataset ─────────── Error in `obj_round_type(x)`: got a list that doesn't appear to contain (only) tables or listings Backtrace: ▆ 1. ├─base::cat(export_as_txt(res, lpp = 100, cpp = 110)) 2. └─formatters::export_as_txt(res, lpp = 100, cpp = 110) 3. ├─formatters::paginate_to_mpfs(...) 4. │ ├─formatters::matrix_form(...) 5. │ └─rlistings::matrix_form(...) 6. │ └─rlistings (local) .local(...) 7. │ └─base::vapply(...) 8. │ └─formatters (local) FUN(X[[i]], ...) 9. │ └─base::match.arg(round_type) 10. ├─formatters::obj_round_type(x) 11. └─formatters::obj_round_type(x) ── Error ('test-cml02a_gl.R:13:3'): cml02a_gl works with missing data ────────── Error in `obj_round_type(x)`: got a list that doesn't appear to contain (only) tables or listings Backtrace: ▆ 1. ├─base::cat(export_as_txt(res, lpp = 100, cpp = 110)) 2. └─formatters::export_as_txt(res, lpp = 100, cpp = 110) 3. ├─formatters::paginate_to_mpfs(...) 4. │ ├─formatters::matrix_form(...) 5. │ └─rlistings::matrix_form(...) 6. │ └─rlistings (local) .local(...) 7. │ └─base::vapply(...) 8. │ └─formatters (local) FUN(X[[i]], ...) 9. │ └─base::match.arg(round_type) 10. ├─formatters::obj_round_type(x) 11. └─formatters::obj_round_type(x) ── Error ('test-cml02a_gl.R:24:3'): cml02a_gl functions work as expected ─────── Error in `obj_round_type(x)`: got a list that doesn't appear to contain (only) tables or listings Backtrace: ▆ 1. ├─base::cat(export_as_txt(res, lpp = 100, cpp = 110)) 2. └─formatters::export_as_txt(res, lpp = 100, cpp = 110) 3. ├─formatters::paginate_to_mpfs(...) 4. │ ├─formatters::matrix_form(...) 5. │ └─rlistings::matrix_form(...) 6. │ └─rlistings (local) .local(...) 7. │ └─base::vapply(...) 8. │ └─formatters (local) FUN(X[[i]], ...) 9. │ └─base::match.arg(round_type) 10. ├─formatters::obj_round_type(x) 11. └─formatters::obj_round_type(x) ── Error ('test-cmt01a.R:5:3'): cmt01a functions with default argument value return expected result with test data ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─chevron::cmt01a_main(pre_data) at test-cmt01a.R:5:3 2. └─rtables::build_table(lyt, adam_db$adcm, alt_counts_df = adam_db$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::make_row_df(...) 11. └─rtables::make_row_df(...) 12. └─rtables (local) .local(...) 13. ├─formatters::pagdfrow(...) 14. │ └─base::data.frame(...) 15. ├─formatters::nlines(...) 16. └─rtables::nlines(...) 17. ├─base::as.vector(get_formatted_cells(x)) 18. ├─rtables::get_formatted_cells(x) 19. └─rtables::get_formatted_cells(x) 20. ├─base::matrix(...) 21. ├─base::unlist(...) 22. └─base::Map(...) 23. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 24. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 25. └─rtables::format_rcell(...) 26. └─formatters::format_value(...) 27. └─base::match.arg(round_type) ── Error ('test-cmt01a.R:13:3'): cmt01a functions with custom argument value return expected result with test data ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─chevron::cmt01a_main(...) at test-cmt01a.R:13:3 2. └─rtables::build_table(lyt, adam_db$adcm, alt_counts_df = adam_db$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::make_row_df(...) 11. └─rtables::make_row_df(...) 12. └─rtables (local) .local(...) 13. ├─formatters::pagdfrow(...) 14. │ └─base::data.frame(...) 15. ├─formatters::nlines(...) 16. └─rtables::nlines(...) 17. ├─base::as.vector(get_formatted_cells(x)) 18. ├─rtables::get_formatted_cells(x) 19. └─rtables::get_formatted_cells(x) 20. ├─base::matrix(...) 21. ├─base::unlist(...) 22. └─base::Map(...) 23. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 24. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 25. └─rtables::format_rcell(...) 26. └─formatters::format_value(...) 27. └─base::match.arg(round_type) ── Error ('test-cmt01a.R:34:3'): cmt01a can handle all NA values ─────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(cmt01a, proc_data)) at test-cmt01a.R:34: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. ├─chevron::run(cmt01a, proc_data) 10. ├─chevron::run(cmt01a, proc_data) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db) 14. └─rtables::build_table(lyt, adam_db$adcm, alt_counts_df = adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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::pagdfrow(...) 26. │ └─base::data.frame(...) 27. ├─formatters::nlines(...) 28. └─rtables::nlines(...) 29. ├─base::as.vector(get_formatted_cells(x)) 30. ├─rtables::get_formatted_cells(x) 31. └─rtables::get_formatted_cells(x) 32. ├─base::matrix(...) 33. ├─base::unlist(...) 34. └─base::Map(...) 35. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 36. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 37. └─rtables::format_rcell(...) 38. └─formatters::format_value(...) 39. └─base::match.arg(round_type) ── Error ('test-cmt01a.R:43:3'): cmt01a can handle some NA values ────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(cmt01a, proc_data)) at test-cmt01a.R:43: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. ├─chevron::run(cmt01a, proc_data) 10. ├─chevron::run(cmt01a, proc_data) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db) 14. └─rtables::build_table(lyt, adam_db$adcm, alt_counts_df = adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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::pagdfrow(...) 26. │ └─base::data.frame(...) 27. ├─formatters::nlines(...) 28. └─rtables::nlines(...) 29. ├─base::as.vector(get_formatted_cells(x)) 30. ├─rtables::get_formatted_cells(x) 31. └─rtables::get_formatted_cells(x) 32. ├─base::matrix(...) 33. ├─base::unlist(...) 34. └─base::Map(...) 35. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 36. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 37. └─rtables::format_rcell(...) 38. └─formatters::format_value(...) 39. └─base::match.arg(round_type) ── Error ('test-cmt02_pt.R:8:3'): cmt02_pt can handle all NA values ──────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(cmt02_pt, proc_data)) at test-cmt02_pt.R:8: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. ├─chevron::run(cmt02_pt, proc_data) 10. ├─chevron::run(cmt02_pt, proc_data) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db) 14. └─rtables::build_table(lyt, adam_db$adcm, alt_counts_df = adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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::pagdfrow(...) 26. │ └─base::data.frame(...) 27. ├─formatters::nlines(...) 28. └─rtables::nlines(...) 29. ├─base::as.vector(get_formatted_cells(x)) 30. ├─rtables::get_formatted_cells(x) 31. └─rtables::get_formatted_cells(x) 32. ├─base::matrix(...) 33. ├─base::unlist(...) 34. └─base::Map(...) 35. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 36. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 37. └─rtables::format_rcell(...) 38. └─formatters::format_value(...) 39. └─base::match.arg(round_type) ── Error ('test-cmt02_pt.R:17:3'): cmt02_pt can handle some NA values ────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(cmt02_pt, proc_data)) at test-cmt02_pt.R:17: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. ├─chevron::run(cmt02_pt, proc_data) 10. ├─chevron::run(cmt02_pt, proc_data) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db) 14. └─rtables::build_table(lyt, adam_db$adcm, alt_counts_df = adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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::pagdfrow(...) 26. │ └─base::data.frame(...) 27. ├─formatters::nlines(...) 28. └─rtables::nlines(...) 29. ├─base::as.vector(get_formatted_cells(x)) 30. ├─rtables::get_formatted_cells(x) 31. └─rtables::get_formatted_cells(x) 32. ├─base::matrix(...) 33. ├─base::unlist(...) 34. └─base::Map(...) 35. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 36. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 37. └─rtables::format_rcell(...) 38. └─formatters::format_value(...) 39. └─base::match.arg(round_type) ── Error ('test-coxt01.R:5:3'): coxt01 can handle some NA values ─────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(res1 <- run(coxt01, proc_data)) at test-coxt01.R:5: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. ├─chevron::run(coxt01, proc_data) 10. ├─chevron::run(coxt01, proc_data) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db) 14. └─rtables::build_table(lyt, adam_db$adtte) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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::make_row_df(...) 29. └─rtables::make_row_df(...) 30. └─rtables (local) .local(...) 31. ├─formatters::pagdfrow(...) 32. │ └─base::data.frame(...) 33. ├─formatters::nlines(...) 34. └─rtables::nlines(...) 35. ├─base::as.vector(get_formatted_cells(x)) 36. ├─rtables::get_formatted_cells(x) 37. └─rtables::get_formatted_cells(x) 38. ├─base::matrix(...) 39. ├─base::unlist(...) 40. └─base::Map(...) 41. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 42. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 43. └─rtables::format_rcell(...) 44. └─formatters::format_value(...) 45. └─base::match.arg(round_type) ── Error ('test-coxt02.R:4:3'): coxt02 can handle some NA values ─────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(coxt02, proc_data)) at test-coxt02.R:4: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. ├─chevron::run(coxt02, proc_data) 10. ├─chevron::run(coxt02, proc_data) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db) 14. └─rtables::build_table(lyt, adam_db$adtte) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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::make_row_df(...) 29. └─rtables::make_row_df(...) 30. └─rtables (local) .local(...) 31. ├─formatters::pagdfrow(...) 32. │ └─base::data.frame(...) 33. ├─formatters::nlines(...) 34. └─rtables::nlines(...) 35. ├─base::as.vector(get_formatted_cells(x)) 36. ├─rtables::get_formatted_cells(x) 37. └─rtables::get_formatted_cells(x) 38. ├─base::matrix(...) 39. ├─base::unlist(...) 40. └─base::Map(...) 41. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 42. └─rtables (local) ``(val = dots[[1L]][[3L]], spn = dots[[2L]][[3L]], shelli = dots[[3L]][[1L]]) 43. └─rtables::format_rcell(...) 44. └─formatters::format_value(...) 45. └─base::match.arg(round_type) ── Error ('test-default_tlg.R:5:3'): ael01_nollt function with default argument value return expected result with test data ── Error in `obj_round_type(x)`: got a list that doesn't appear to contain (only) tables or listings Backtrace: ▆ 1. ├─base::cat(export_as_txt(res, lpp = 100)) 2. └─formatters::export_as_txt(res, lpp = 100) 3. ├─formatters::paginate_to_mpfs(...) 4. │ ├─formatters::matrix_form(...) 5. │ └─rlistings::matrix_form(...) 6. │ └─rlistings (local) .local(...) 7. │ └─base::vapply(...) 8. │ └─formatters (local) FUN(X[[i]], ...) 9. │ └─base::match.arg(round_type) 10. ├─formatters::obj_round_type(x) 11. └─formatters::obj_round_type(x) ── Error ('test-default_tlg.R:10:3'): aet01 function with default argument value return expected result with test data ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─chevron::aet01_main(pre_data) at test-default_tlg.R:10:3 2. ├─base::rbind(...) 3. ├─base::rbind(...) 4. └─rtables::build_table(lyts$ae1, adam_db$adae, alt_counts_df = adam_db$adsl) 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) ``(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-default_tlg.R:17:3'): aet01_aesi function with default argument value return expected result with test data ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─chevron::aet01_aesi_main(pre_data) at test-default_tlg.R:17:3 2. └─rtables::build_table(lyt, adam_db$adae, alt_counts_df = adam_db$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::make_row_df(...) 11. └─rtables::make_row_df(...) 12. └─rtables (local) .local(...) 13. ├─formatters::pagdfrow(...) 14. │ └─base::data.frame(...) 15. ├─formatters::nlines(...) 16. └─rtables::nlines(...) 17. ├─base::as.vector(get_formatted_cells(x)) 18. ├─rtables::get_formatted_cells(x) 19. └─rtables::get_formatted_cells(x) 20. ├─base::matrix(...) 21. ├─base::unlist(...) 22. └─base::Map(...) 23. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 24. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 25. └─rtables::format_rcell(...) 26. └─formatters::format_value(...) 27. └─base::match.arg(round_type) ── Error ('test-default_tlg.R:24:3'): aet02 functions with default argument value return expected result with test data ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─chevron::aet02_main(pre_data) at test-default_tlg.R:24:3 2. └─rtables::build_table(lyt, adam_db$adae, alt_counts_df = adam_db$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::make_row_df(...) 11. └─rtables::make_row_df(...) 12. └─rtables (local) .local(...) 13. ├─formatters::pagdfrow(...) 14. │ └─base::data.frame(...) 15. ├─formatters::nlines(...) 16. └─rtables::nlines(...) 17. ├─base::as.vector(get_formatted_cells(x)) 18. ├─rtables::get_formatted_cells(x) 19. └─rtables::get_formatted_cells(x) 20. ├─base::matrix(...) 21. ├─base::unlist(...) 22. └─base::Map(...) 23. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 24. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 25. └─rtables::format_rcell(...) 26. └─formatters::format_value(...) 27. └─base::match.arg(round_type) ── Error ('test-default_tlg.R:31:3'): aet03 functions with default argument value return expected result with test data ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─chevron::aet03_main(pre_data) at test-default_tlg.R:31:3 2. └─rtables::build_table(lyt, df = adam_db$adae, alt_counts_df = adam_db$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::make_row_df(...) 11. └─rtables::make_row_df(...) 12. └─rtables (local) .local(...) 13. ├─formatters::pagdfrow(...) 14. │ └─base::data.frame(...) 15. ├─formatters::nlines(...) 16. └─rtables::nlines(...) 17. ├─base::as.vector(get_formatted_cells(x)) 18. ├─rtables::get_formatted_cells(x) 19. └─rtables::get_formatted_cells(x) 20. ├─base::matrix(...) 21. ├─base::unlist(...) 22. └─base::Map(...) 23. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 24. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 25. └─rtables::format_rcell(...) 26. └─formatters::format_value(...) 27. └─base::match.arg(round_type) ── Error ('test-default_tlg.R:38:3'): aet04 functions with default argument value return expected result with test data ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─chevron::aet04_main(pre_data) at test-default_tlg.R:38:3 2. └─rtables::build_table(lyt, df = adam_db$adae, alt_counts_df = adam_db$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::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::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 31. └─rtables::format_rcell(...) 32. └─formatters::format_value(...) 33. └─base::match.arg(round_type) ── Error ('test-default_tlg.R:45:3'): aet05 functions with default argument value return expected result with test data ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─chevron::aet05_main(pre_data) at test-default_tlg.R:45:3 2. └─rtables::build_table(lyt, adam_db[[dataset]], alt_counts_df = adam_db$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::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) ``(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-default_tlg.R:52:3'): aet05_all functions with default argument value return expected result with test data ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─chevron::aet05_main(pre_data) at test-default_tlg.R:52:3 2. └─rtables::build_table(lyt, adam_db[[dataset]], alt_counts_df = adam_db$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::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) ``(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-default_tlg.R:59:3'): aet10 functions with default argument value return expected result with test data ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─chevron::aet10_main(pre_data) at test-default_tlg.R:59:3 2. └─rtables::build_table(lyt, adam_db$adae, alt_counts_df = adam_db$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) ``(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-default_tlg.R:66:3'): cmt02_pt functions with default argument value return expected result with test data ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─chevron::cmt02_pt_main(pre_data) at test-default_tlg.R:66:3 2. └─rtables::build_table(lyt, adam_db$adcm, alt_counts_df = adam_db$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::make_row_df(...) 11. └─rtables::make_row_df(...) 12. └─rtables (local) .local(...) 13. ├─formatters::pagdfrow(...) 14. │ └─base::data.frame(...) 15. ├─formatters::nlines(...) 16. └─rtables::nlines(...) 17. ├─base::as.vector(get_formatted_cells(x)) 18. ├─rtables::get_formatted_cells(x) 19. └─rtables::get_formatted_cells(x) 20. ├─base::matrix(...) 21. ├─base::unlist(...) 22. └─base::Map(...) 23. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 24. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 25. └─rtables::format_rcell(...) 26. └─formatters::format_value(...) 27. └─base::match.arg(round_type) ── Error ('test-default_tlg.R:76:3'): coxt01 functions with default argument value return expected result with test data ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─chevron::coxt01_main(pre_data) at test-default_tlg.R:76:3 2. └─rtables::build_table(lyt, adam_db$adtte) 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::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 31. └─rtables::format_rcell(...) 32. └─formatters::format_value(...) 33. └─base::match.arg(round_type) ── Error ('test-default_tlg.R:84:3'): coxt02 functions with default argument value return expected result with test data ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─chevron::coxt02_main(pre_data) at test-default_tlg.R:84:3 2. └─rtables::build_table(lyt, adam_db$adtte) 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::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) ``(val = dots[[1L]][[3L]], spn = dots[[2L]][[3L]], shelli = dots[[3L]][[1L]]) 31. └─rtables::format_rcell(...) 32. └─formatters::format_value(...) 33. └─base::match.arg(round_type) ── Error ('test-default_tlg.R:91:3'): dmt01 functions with default argument value return expected result with test data ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─chevron::dmt01_main(pre_data) at test-default_tlg.R:91:3 2. └─rtables::build_table(lyt, adam_db$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::make_row_df(...) 11. └─rtables::make_row_df(...) 12. └─rtables (local) .local(...) 13. ├─formatters::pagdfrow(...) 14. │ └─base::data.frame(...) 15. ├─formatters::nlines(...) 16. └─rtables::nlines(...) 17. ├─base::as.vector(get_formatted_cells(x)) 18. ├─rtables::get_formatted_cells(x) 19. └─rtables::get_formatted_cells(x) 20. ├─base::matrix(...) 21. ├─base::unlist(...) 22. └─base::Map(...) 23. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 24. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 25. └─rtables::format_rcell(...) 26. └─formatters::format_value(...) 27. └─base::match.arg(round_type) ── Error ('test-default_tlg.R:98:3'): dst01 functions with default argument value return expected result with test data ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─chevron::dst01_main(pre_data) at test-default_tlg.R:98:3 2. └─rtables::build_table(lyt, adam_db$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::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) ``(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-default_tlg.R:105:3'): dtht01 functions with default argument value return expected result with test data ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─chevron::dtht01_main(pre_data) at test-default_tlg.R:105:3 2. └─rtables::build_table(lyt, 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::make_row_df(...) 11. └─rtables::make_row_df(...) 12. └─rtables (local) .local(...) 13. ├─formatters::pagdfrow(...) 14. │ └─base::data.frame(...) 15. ├─formatters::nlines(...) 16. └─rtables::nlines(...) 17. ├─base::as.vector(get_formatted_cells(x)) 18. ├─rtables::get_formatted_cells(x) 19. └─rtables::get_formatted_cells(x) 20. ├─base::matrix(...) 21. ├─base::unlist(...) 22. └─base::Map(...) 23. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 24. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 25. └─rtables::format_rcell(...) 26. └─formatters::format_value(...) 27. └─base::match.arg(round_type) ── Error ('test-dmt01.R:7:3'): dmt01 can handle NA values ────────────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(dmt01, proc_data)) at test-dmt01.R:7: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. ├─chevron::run(dmt01, proc_data) 10. ├─chevron::run(dmt01, proc_data) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db) 14. └─rtables::build_table(lyt, adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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::pagdfrow(...) 26. │ └─base::data.frame(...) 27. ├─formatters::nlines(...) 28. └─rtables::nlines(...) 29. ├─base::as.vector(get_formatted_cells(x)) 30. ├─rtables::get_formatted_cells(x) 31. └─rtables::get_formatted_cells(x) 32. ├─base::matrix(...) 33. ├─base::unlist(...) 34. └─base::Map(...) 35. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 36. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 37. └─rtables::format_rcell(...) 38. └─formatters::format_value(...) 39. └─base::match.arg(round_type) ── Error ('test-dmt01.R:15:3'): dmt01 can handle numeric NA values ───────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(dmt01, proc_data)) at test-dmt01.R:15: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. ├─chevron::run(dmt01, proc_data) 10. ├─chevron::run(dmt01, proc_data) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db) 14. └─rtables::build_table(lyt, adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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::pagdfrow(...) 26. │ └─base::data.frame(...) 27. ├─formatters::nlines(...) 28. └─rtables::nlines(...) 29. ├─base::as.vector(get_formatted_cells(x)) 30. ├─rtables::get_formatted_cells(x) 31. └─rtables::get_formatted_cells(x) 32. ├─base::matrix(...) 33. ├─base::unlist(...) 34. └─base::Map(...) 35. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 36. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 37. └─rtables::format_rcell(...) 38. └─formatters::format_value(...) 39. └─base::match.arg(round_type) ── Error ('test-dmt01.R:36:3'): dmt01 works as expected with setting default precision ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(...) at test-dmt01.R:36: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. ├─chevron::run(...) 10. ├─chevron::run(...) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db, summaryvars = summaryvars, precision = precision) 14. └─rtables::build_table(lyt, adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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::pagdfrow(...) 26. │ └─base::data.frame(...) 27. ├─formatters::nlines(...) 28. └─rtables::nlines(...) 29. ├─base::as.vector(get_formatted_cells(x)) 30. ├─rtables::get_formatted_cells(x) 31. └─rtables::get_formatted_cells(x) 32. ├─base::matrix(...) 33. ├─base::unlist(...) 34. └─base::Map(...) 35. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 36. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 37. └─rtables::format_rcell(...) 38. └─formatters::format_value(...) 39. └─base::match.arg(round_type) ── Error ('test-dmt01.R:42:3'): dmt01 works as expected with auto precision settings ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(...) at test-dmt01.R:42: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. ├─chevron::run(...) 10. ├─chevron::run(...) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db, summaryvars = summaryvars, precision = precision) 14. └─rtables::build_table(lyt, adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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::pagdfrow(...) 26. │ └─base::data.frame(...) 27. ├─formatters::nlines(...) 28. └─rtables::nlines(...) 29. ├─base::as.vector(get_formatted_cells(x)) 30. ├─rtables::get_formatted_cells(x) 31. └─rtables::get_formatted_cells(x) 32. ├─base::matrix(...) 33. ├─base::unlist(...) 34. └─base::Map(...) 35. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 36. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 37. └─rtables::format_rcell(...) 38. └─formatters::format_value(...) 39. └─base::match.arg(round_type) ── Error ('test-dmt01.R:48:3'): dmt01 works as expected with auto precision settings and defined precision ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(...) at test-dmt01.R:48: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. ├─chevron::run(...) 10. ├─chevron::run(...) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db, summaryvars = summaryvars, precision = precision) 14. └─rtables::build_table(lyt, adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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::pagdfrow(...) 26. │ └─base::data.frame(...) 27. ├─formatters::nlines(...) 28. └─rtables::nlines(...) 29. ├─base::as.vector(get_formatted_cells(x)) 30. ├─rtables::get_formatted_cells(x) 31. └─rtables::get_formatted_cells(x) 32. ├─base::matrix(...) 33. ├─base::unlist(...) 34. └─base::Map(...) 35. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 36. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 37. └─rtables::format_rcell(...) 38. └─formatters::format_value(...) 39. └─base::match.arg(round_type) ── Error ('test-dmt01.R:54:3'): dmt01 works as expected with auto precision settings and defined precision and default ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(...) at test-dmt01.R:54: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. ├─chevron::run(...) 10. ├─chevron::run(...) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db, summaryvars = summaryvars, precision = precision) 14. └─rtables::build_table(lyt, adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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::pagdfrow(...) 26. │ └─base::data.frame(...) 27. ├─formatters::nlines(...) 28. └─rtables::nlines(...) 29. ├─base::as.vector(get_formatted_cells(x)) 30. ├─rtables::get_formatted_cells(x) 31. └─rtables::get_formatted_cells(x) 32. ├─base::matrix(...) 33. ├─base::unlist(...) 34. └─base::Map(...) 35. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 36. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 37. └─rtables::format_rcell(...) 38. └─formatters::format_value(...) 39. └─base::match.arg(round_type) ── Error ('test-dmt01.R:62:3'): dmt01 works as expected with cutomized stats value ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(...) at test-dmt01.R:62: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. ├─chevron::run(...) 10. ├─chevron::run(...) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(...) 14. └─rtables::build_table(lyt, adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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::pagdfrow(...) 26. │ └─base::data.frame(...) 27. ├─formatters::nlines(...) 28. └─rtables::nlines(...) 29. ├─base::as.vector(get_formatted_cells(x)) 30. ├─rtables::get_formatted_cells(x) 31. └─rtables::get_formatted_cells(x) 32. ├─base::matrix(...) 33. ├─base::unlist(...) 34. └─base::Map(...) 35. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 36. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 37. └─rtables::format_rcell(...) 38. └─formatters::format_value(...) 39. └─base::match.arg(round_type) ── Error ('test-dmt01.R:76:3'): dmt01 works as expected with empty list as stats value ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(...) at test-dmt01.R:76: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. ├─chevron::run(...) 10. ├─chevron::run(...) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(...) 14. └─rtables::build_table(lyt, adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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::pagdfrow(...) 26. │ └─base::data.frame(...) 27. ├─formatters::nlines(...) 28. └─rtables::nlines(...) 29. ├─base::as.vector(get_formatted_cells(x)) 30. ├─rtables::get_formatted_cells(x) 31. └─rtables::get_formatted_cells(x) 32. ├─base::matrix(...) 33. ├─base::unlist(...) 34. └─base::Map(...) 35. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 36. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 37. └─rtables::format_rcell(...) 38. └─formatters::format_value(...) 39. └─base::match.arg(round_type) ── Error ('test-dmt01.R:90:3'): dmt01 works as expected with only one summaryvars ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(dmt01, syn_data, summaryvars = c("RACE"))) at test-dmt01.R:90: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. ├─chevron::run(dmt01, syn_data, summaryvars = c("RACE")) 10. ├─chevron::run(dmt01, syn_data, summaryvars = c("RACE")) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db, summaryvars = summaryvars) 14. └─rtables::build_table(lyt, adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 18. └─rtables (local) .local(...) 19. ├─formatters::make_row_df(...) 20. └─rtables::make_row_df(...) 21. └─rtables (local) .local(...) 22. ├─formatters::pagdfrow(...) 23. │ └─base::data.frame(...) 24. ├─formatters::nlines(...) 25. └─rtables::nlines(...) 26. ├─base::as.vector(get_formatted_cells(x)) 27. ├─rtables::get_formatted_cells(x) 28. └─rtables::get_formatted_cells(x) 29. ├─base::matrix(...) 30. ├─base::unlist(...) 31. └─base::Map(...) 32. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 33. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 34. └─rtables::format_rcell(...) 35. └─formatters::format_value(...) 36. └─base::match.arg(round_type) ── Error ('test-dst01.R:10:3'): dst01 works as expected when all data are NA ─── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(res <- run(dst01, proc_data, detail_vars = list())) at test-dst01.R:10: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. ├─chevron::run(dst01, proc_data, detail_vars = list()) 10. ├─chevron::run(dst01, proc_data, detail_vars = list()) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db, detail_vars = detail_vars) 14. └─rtables::build_table(lyt, adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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::pagdfrow(...) 26. │ └─base::data.frame(...) 27. ├─formatters::nlines(...) 28. └─rtables::nlines(...) 29. ├─base::as.vector(get_formatted_cells(x)) 30. ├─rtables::get_formatted_cells(x) 31. └─rtables::get_formatted_cells(x) 32. ├─base::matrix(...) 33. ├─base::unlist(...) 34. └─base::Map(...) 35. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 36. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 37. └─rtables::format_rcell(...) 38. └─formatters::format_value(...) 39. └─base::match.arg(round_type) ── Error ('test-dst01.R:22:3'): dst01 can handle all NA values in DCSREAS ────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(dst01, proc_data, detail_vars = list())) at test-dst01.R:22: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. ├─chevron::run(dst01, proc_data, detail_vars = list()) 10. ├─chevron::run(dst01, proc_data, detail_vars = list()) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db, detail_vars = detail_vars) 14. └─rtables::build_table(lyt, adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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::pagdfrow(...) 26. │ └─base::data.frame(...) 27. ├─formatters::nlines(...) 28. └─rtables::nlines(...) 29. ├─base::as.vector(get_formatted_cells(x)) 30. ├─rtables::get_formatted_cells(x) 31. └─rtables::get_formatted_cells(x) 32. ├─base::matrix(...) 33. ├─base::unlist(...) 34. └─base::Map(...) 35. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 36. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 37. └─rtables::format_rcell(...) 38. └─formatters::format_value(...) 39. └─base::match.arg(round_type) ── Error ('test-dst01.R:30:3'): dst01 can handle some NA values ──────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(dst01, proc_data)) at test-dst01.R:30: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. ├─chevron::run(dst01, proc_data) 10. ├─chevron::run(dst01, proc_data) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db) 14. └─rtables::build_table(lyt, adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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) ``(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-dst01.R:41:3'): dst01 can handle missing levels in status_var ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(dst01, proc_data, detail_vars = list())) at test-dst01.R:41: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. ├─chevron::run(dst01, proc_data, detail_vars = list()) 10. ├─chevron::run(dst01, proc_data, detail_vars = list()) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db, detail_vars = detail_vars) 14. └─rtables::build_table(lyt, adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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::pagdfrow(...) 26. │ └─base::data.frame(...) 27. ├─formatters::nlines(...) 28. └─rtables::nlines(...) 29. ├─base::as.vector(get_formatted_cells(x)) 30. ├─rtables::get_formatted_cells(x) 31. └─rtables::get_formatted_cells(x) 32. ├─base::matrix(...) 33. ├─base::unlist(...) 34. └─base::Map(...) 35. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 36. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 37. └─rtables::format_rcell(...) 38. └─formatters::format_value(...) 39. └─base::match.arg(round_type) ── Error ('test-dst01.R:47:3'): dst01 can create variants ────────────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(...) at test-dst01.R:47: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. ├─chevron::run(...) 10. ├─chevron::run(...) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db, detail_vars = detail_vars) 14. └─rtables::build_table(lyt, adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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::pagdfrow(...) 26. │ └─base::data.frame(...) 27. ├─formatters::nlines(...) 28. └─rtables::nlines(...) 29. ├─base::as.vector(get_formatted_cells(x)) 30. ├─rtables::get_formatted_cells(x) 31. └─rtables::get_formatted_cells(x) 32. ├─base::matrix(...) 33. ├─base::unlist(...) 34. └─base::Map(...) 35. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 36. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 37. └─rtables::format_rcell(...) 38. └─formatters::format_value(...) 39. └─base::match.arg(round_type) ── Error ('test-dst01.R:55:3'): dst01 can create variants ────────────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(...) at test-dst01.R:55: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. ├─chevron::run(...) 10. ├─chevron::run(...) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db, detail_vars = detail_vars) 14. └─rtables::build_table(lyt, adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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) ``(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-dst01.R:61:3'): dst01 can create variants ────────────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(...) at test-dst01.R:61: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. ├─chevron::run(...) 10. ├─chevron::run(...) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db, detail_vars = detail_vars, trt_status_var = trt_status_var) 14. └─rtables::build_table(lyt, adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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) ``(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-dtht01.R:11:3'): dtht01 can handle all NA values ─────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(...) at test-dtht01.R:11: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. ├─chevron::run(...) 10. ├─chevron::run(...) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(...) 14. └─rtables::build_table(lyt, adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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::pagdfrow(...) 26. │ └─base::data.frame(...) 27. ├─formatters::nlines(...) 28. └─rtables::nlines(...) 29. ├─base::as.vector(get_formatted_cells(x)) 30. ├─rtables::get_formatted_cells(x) 31. └─rtables::get_formatted_cells(x) 32. ├─base::matrix(...) 33. ├─base::unlist(...) 34. └─base::Map(...) 35. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 36. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 37. └─rtables::format_rcell(...) 38. └─formatters::format_value(...) 39. └─base::match.arg(round_type) ── Error ('test-dtht01.R:19:3'): dtht01 can handle some NA values ────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(...) at test-dtht01.R:19: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. ├─chevron::run(...) 10. ├─chevron::run(...) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(...) 14. └─rtables::build_table(lyt, adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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::pagdfrow(...) 26. │ └─base::data.frame(...) 27. ├─formatters::nlines(...) 28. └─rtables::nlines(...) 29. ├─base::as.vector(get_formatted_cells(x)) 30. ├─rtables::get_formatted_cells(x) 31. └─rtables::get_formatted_cells(x) 32. ├─base::matrix(...) 33. ├─base::unlist(...) 34. └─base::Map(...) 35. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 36. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 37. └─rtables::format_rcell(...) 38. └─formatters::format_value(...) 39. └─base::match.arg(round_type) ── Error ('test-dtht01.R:30:3'): dtht01 can be parametrize as expected ───────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─chevron::dtht01_main(pre_data, time_since_last_dose = TRUE, other_category = TRUE) at test-dtht01.R:30:3 2. └─rtables::build_table(lyt, 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::make_row_df(...) 11. └─rtables::make_row_df(...) 12. └─rtables (local) .local(...) 13. ├─formatters::pagdfrow(...) 14. │ └─base::data.frame(...) 15. ├─formatters::nlines(...) 16. └─rtables::nlines(...) 17. ├─base::as.vector(get_formatted_cells(x)) 18. ├─rtables::get_formatted_cells(x) 19. └─rtables::get_formatted_cells(x) 20. ├─base::matrix(...) 21. ├─base::unlist(...) 22. └─base::Map(...) 23. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 24. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 25. └─rtables::format_rcell(...) 26. └─formatters::format_value(...) 27. └─base::match.arg(round_type) ── Error ('test-egt01.R:5:3'): egt01 functions with default argument value return expected result with test data ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─chevron::egt01_main(pre_data) at test-egt01.R:5:3 2. └─rtables::build_table(lyt, df = adam_db[[dataset]], alt_counts_df = adam_db$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::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::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::pagdfrow(...) 23. │ └─base::data.frame(...) 24. ├─formatters::nlines(...) 25. └─rtables::nlines(...) 26. ├─base::as.vector(get_formatted_cells(x)) 27. ├─rtables::get_formatted_cells(x) 28. └─rtables::get_formatted_cells(x) 29. ├─base::matrix(...) 30. ├─base::unlist(...) 31. └─base::Map(...) 32. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 33. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 34. └─rtables::format_rcell(...) 35. └─formatters::format_value(...) 36. └─base::match.arg(round_type) ── Error ('test-egt01.R:18:3'): egt01 can handle n = 0 and outputs NE instead of infs and NAs ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(...) at test-egt01.R:18: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. ├─chevron::run(egt01, proc_data, precision = list(HR = 1, default = 0)) 10. ├─chevron::run(egt01, proc_data, precision = list(HR = 1, default = 0)) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db, precision = precision) 14. └─rtables::build_table(lyt, df = adam_db[[dataset]], alt_counts_df = adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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::make_row_df(...) 29. └─rtables::make_row_df(...) 30. └─rtables (local) .local(...) 31. ├─formatters::make_row_df(...) 32. └─rtables::make_row_df(...) 33. └─rtables (local) .local(...) 34. ├─formatters::pagdfrow(...) 35. │ └─base::data.frame(...) 36. ├─formatters::nlines(...) 37. └─rtables::nlines(...) 38. ├─base::as.vector(get_formatted_cells(x)) 39. ├─rtables::get_formatted_cells(x) 40. └─rtables::get_formatted_cells(x) 41. ├─base::matrix(...) 42. ├─base::unlist(...) 43. └─base::Map(...) 44. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 45. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 46. └─rtables::format_rcell(...) 47. └─formatters::format_value(...) 48. └─base::match.arg(round_type) ── Error ('test-egt02.R:5:3'): egt02_1 functions with default argument value return expected result with test data ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─chevron::egt02_1_main(pre_data) at test-egt02.R:5:3 2. └─rtables::build_table(lyt, adam_db$adeg, alt_counts_df = adam_db$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::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) ``(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-egt02.R:13:3'): egt02_2 functions with default value return expected result with test data ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─chevron::egt02_2_main(pre_data) at test-egt02.R:13:3 2. └─rtables::build_table(lyt, adam_db$adeg, alt_counts_df = adam_db$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::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) ``(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-egt03.R:5:3'): egt03 functions with default argument value return expected result with test data ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─chevron::egt03_main(pre_data) at test-egt03.R:5:3 2. └─rtables::build_table(lyt, df = adam_db$adeg) 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::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::pagdfrow(...) 23. │ └─base::data.frame(...) 24. ├─formatters::nlines(...) 25. └─rtables::nlines(...) 26. ├─base::as.vector(get_formatted_cells(x)) 27. ├─rtables::get_formatted_cells(x) 28. └─rtables::get_formatted_cells(x) 29. ├─base::matrix(...) 30. ├─base::unlist(...) 31. └─base::Map(...) 32. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 33. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 34. └─rtables::format_rcell(...) 35. └─formatters::format_value(...) 36. └─base::match.arg(round_type) ── Error ('test-egt03.R:29:3'): egt03 can handle some NA values ──────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(egt03, proc_data)) at test-egt03.R:29: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. ├─chevron::run(egt03, proc_data) 10. ├─chevron::run(egt03, proc_data) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db) 14. └─rtables::build_table(lyt, df = adam_db$adeg) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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::make_row_df(...) 29. └─rtables::make_row_df(...) 30. └─rtables (local) .local(...) 31. ├─formatters::make_row_df(...) 32. └─rtables::make_row_df(...) 33. └─rtables (local) .local(...) 34. ├─formatters::pagdfrow(...) 35. │ └─base::data.frame(...) 36. ├─formatters::nlines(...) 37. └─rtables::nlines(...) 38. ├─base::as.vector(get_formatted_cells(x)) 39. ├─rtables::get_formatted_cells(x) 40. └─rtables::get_formatted_cells(x) 41. ├─base::matrix(...) 42. ├─base::unlist(...) 43. └─base::Map(...) 44. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 45. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 46. └─rtables::format_rcell(...) 47. └─formatters::format_value(...) 48. └─base::match.arg(round_type) ── Error ('test-egt05_qtcat.R:5:3'): egt05_qtcat functions with default argument value return expected result with test data ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─chevron::egt05_qtcat_main(pre_data) at test-egt05_qtcat.R:5:3 2. └─rtables::build_table(lyt, df = adam_db$adeg, alt_counts_df = adam_db$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::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::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::pagdfrow(...) 23. │ └─base::data.frame(...) 24. ├─formatters::nlines(...) 25. └─rtables::nlines(...) 26. ├─base::as.vector(get_formatted_cells(x)) 27. ├─rtables::get_formatted_cells(x) 28. └─rtables::get_formatted_cells(x) 29. ├─base::matrix(...) 30. ├─base::unlist(...) 31. └─base::Map(...) 32. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 33. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 34. └─rtables::format_rcell(...) 35. └─formatters::format_value(...) 36. └─base::match.arg(round_type) ── Error ('test-egt05_qtcat.R:29:3'): egt05_qtcat can handle some NA values ──── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(egt05_qtcat, proc_data)) at test-egt05_qtcat.R:29: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. ├─chevron::run(egt05_qtcat, proc_data) 10. ├─chevron::run(egt05_qtcat, proc_data) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db) 14. └─rtables::build_table(lyt, df = adam_db$adeg, alt_counts_df = adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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::make_row_df(...) 29. └─rtables::make_row_df(...) 30. └─rtables (local) .local(...) 31. ├─formatters::make_row_df(...) 32. └─rtables::make_row_df(...) 33. └─rtables (local) .local(...) 34. ├─formatters::pagdfrow(...) 35. │ └─base::data.frame(...) 36. ├─formatters::nlines(...) 37. └─rtables::nlines(...) 38. ├─base::as.vector(get_formatted_cells(x)) 39. ├─rtables::get_formatted_cells(x) 40. └─rtables::get_formatted_cells(x) 41. ├─base::matrix(...) 42. ├─base::unlist(...) 43. └─base::Map(...) 44. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 45. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 46. └─rtables::format_rcell(...) 47. └─formatters::format_value(...) 48. └─base::match.arg(round_type) ── Error ('test-empty_report.R:19:3'): tlg functions return null reports when domain table is empty ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─chevron::run(aet01, dat_empty, prune_0 = TRUE) at test-empty_report.R:19:3 2. ├─chevron::run(aet01, dat_empty, prune_0 = TRUE) 3. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 4. │ └─base::do.call(what, new_args, envir = args_env) 5. └─chevron (local) ``(adam_db = adam_db, prune_0 = prune_0) 6. ├─base::rbind(...) 7. ├─base::rbind(...) 8. └─rtables::build_table(lyts$ae1, adam_db$adae, alt_counts_df = adam_db$adsl) 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) ``(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-ext01.R:5:3'): ext01 functions with default argument value return expected result with test data ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─chevron::ext01_main(pre_data) at test-ext01.R:5:3 2. └─rtables::build_table(lyt, adam_db$adex, adam_db$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::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::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::pagdfrow(...) 23. │ └─base::data.frame(...) 24. ├─formatters::nlines(...) 25. └─rtables::nlines(...) 26. ├─base::as.vector(get_formatted_cells(x)) 27. ├─rtables::get_formatted_cells(x) 28. └─rtables::get_formatted_cells(x) 29. ├─base::matrix(...) 30. ├─base::unlist(...) 31. └─base::Map(...) 32. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 33. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 34. └─rtables::format_rcell(...) 35. └─formatters::format_value(...) 36. └─base::match.arg(round_type) ── Error ('test-ext01.R:14:3'): ext01 functions with categorical data return expected result with test data ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─chevron::ext01_main(pre_data, summaryvars = c("AVAL", "AVALCAT1")) at test-ext01.R:14:3 2. └─rtables::build_table(lyt, adam_db$adex, adam_db$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::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::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::pagdfrow(...) 23. │ └─base::data.frame(...) 24. ├─formatters::nlines(...) 25. └─rtables::nlines(...) 26. ├─base::as.vector(get_formatted_cells(x)) 27. ├─rtables::get_formatted_cells(x) 28. └─rtables::get_formatted_cells(x) 29. ├─base::matrix(...) 30. ├─base::unlist(...) 31. └─base::Map(...) 32. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 33. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 34. └─rtables::format_rcell(...) 35. └─formatters::format_value(...) 36. └─base::match.arg(round_type) ── Error ('test-ext01.R:24:3'): ext01 works ──────────────────────────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(ext01, proc_data)) at test-ext01.R:24: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. ├─chevron::run(ext01, proc_data) 10. ├─chevron::run(ext01, proc_data) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db) 14. └─rtables::build_table(lyt, adam_db$adex, adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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::make_row_df(...) 29. └─rtables::make_row_df(...) 30. └─rtables (local) .local(...) 31. ├─formatters::make_row_df(...) 32. └─rtables::make_row_df(...) 33. └─rtables (local) .local(...) 34. ├─formatters::pagdfrow(...) 35. │ └─base::data.frame(...) 36. ├─formatters::nlines(...) 37. └─rtables::nlines(...) 38. ├─base::as.vector(get_formatted_cells(x)) 39. ├─rtables::get_formatted_cells(x) 40. └─rtables::get_formatted_cells(x) 41. ├─base::matrix(...) 42. ├─base::unlist(...) 43. └─base::Map(...) 44. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 45. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 46. └─rtables::format_rcell(...) 47. └─formatters::format_value(...) 48. └─base::match.arg(round_type) ── Error ('test-ext01.R:38:3'): ext01 works for selected parameters and categorical variables ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─chevron::run(...) at test-ext01.R:38:3 2. ├─chevron::run(...) 3. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 4. │ └─base::do.call(what, new_args, envir = args_env) 5. └─chevron (local) ``(adam_db = adam_db, prune_0 = prune_0, summaryvars = summaryvars) 6. └─rtables::build_table(lyt, adam_db$adex, adam_db$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::make_row_df(...) 18. └─rtables::make_row_df(...) 19. └─rtables (local) .local(...) 20. ├─formatters::make_row_df(...) 21. └─rtables::make_row_df(...) 22. └─rtables (local) .local(...) 23. ├─formatters::make_row_df(...) 24. └─rtables::make_row_df(...) 25. └─rtables (local) .local(...) 26. ├─formatters::pagdfrow(...) 27. │ └─base::data.frame(...) 28. ├─formatters::nlines(...) 29. └─rtables::nlines(...) 30. ├─base::as.vector(get_formatted_cells(x)) 31. ├─rtables::get_formatted_cells(x) 32. └─rtables::get_formatted_cells(x) 33. ├─base::matrix(...) 34. ├─base::unlist(...) 35. └─base::Map(...) 36. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 37. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 38. └─rtables::format_rcell(...) 39. └─formatters::format_value(...) 40. └─base::match.arg(round_type) ── Error ('test-ext01.R:50:3'): ext01 works with custom mapping order ────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─chevron::run(...) at test-ext01.R:50:3 2. ├─chevron::run(...) 3. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 4. │ └─base::do.call(what, new_args, envir = args_env) 5. └─chevron (local) ``(...) 6. └─rtables::build_table(lyt, adam_db$adex, adam_db$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::make_row_df(...) 18. └─rtables::make_row_df(...) 19. └─rtables (local) .local(...) 20. ├─formatters::make_row_df(...) 21. └─rtables::make_row_df(...) 22. └─rtables (local) .local(...) 23. ├─formatters::make_row_df(...) 24. └─rtables::make_row_df(...) 25. └─rtables (local) .local(...) 26. ├─formatters::pagdfrow(...) 27. │ └─base::data.frame(...) 28. ├─formatters::nlines(...) 29. └─rtables::nlines(...) 30. ├─base::as.vector(get_formatted_cells(x)) 31. ├─rtables::get_formatted_cells(x) 32. └─rtables::get_formatted_cells(x) 33. ├─base::matrix(...) 34. ├─base::unlist(...) 35. └─base::Map(...) 36. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 37. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 38. └─rtables::format_rcell(...) 39. └─formatters::format_value(...) 40. └─base::match.arg(round_type) ── Error ('test-ext01.R:60:3'): ext01 works with custom mapping order for a single split ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─chevron::run(...) at test-ext01.R:60:3 2. ├─chevron::run(...) 3. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 4. │ └─base::do.call(what, new_args, envir = args_env) 5. └─chevron (local) ``(...) 6. └─rtables::build_table(lyt, adam_db$adex, adam_db$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::make_row_df(...) 18. └─rtables::make_row_df(...) 19. └─rtables (local) .local(...) 20. ├─formatters::make_row_df(...) 21. └─rtables::make_row_df(...) 22. └─rtables (local) .local(...) 23. ├─formatters::make_row_df(...) 24. └─rtables::make_row_df(...) 25. └─rtables (local) .local(...) 26. ├─formatters::pagdfrow(...) 27. │ └─base::data.frame(...) 28. ├─formatters::nlines(...) 29. └─rtables::nlines(...) 30. ├─base::as.vector(get_formatted_cells(x)) 31. ├─rtables::get_formatted_cells(x) 32. └─rtables::get_formatted_cells(x) 33. ├─base::matrix(...) 34. ├─base::unlist(...) 35. └─base::Map(...) 36. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 37. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 38. └─rtables::format_rcell(...) 39. └─formatters::format_value(...) 40. └─base::match.arg(round_type) ── Error ('test-ext01.R:72:3'): ext01 works with custom mapping fill in value ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─chevron::run(...) at test-ext01.R:72:3 2. ├─chevron::run(...) 3. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 4. │ └─base::do.call(what, new_args, envir = args_env) 5. └─chevron (local) ``(...) 6. └─rtables::build_table(lyt, adam_db$adex, adam_db$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::make_row_df(...) 18. └─rtables::make_row_df(...) 19. └─rtables (local) .local(...) 20. ├─formatters::make_row_df(...) 21. └─rtables::make_row_df(...) 22. └─rtables (local) .local(...) 23. ├─formatters::make_row_df(...) 24. └─rtables::make_row_df(...) 25. └─rtables (local) .local(...) 26. ├─formatters::pagdfrow(...) 27. │ └─base::data.frame(...) 28. ├─formatters::nlines(...) 29. └─rtables::nlines(...) 30. ├─base::as.vector(get_formatted_cells(x)) 31. ├─rtables::get_formatted_cells(x) 32. └─rtables::get_formatted_cells(x) 33. ├─base::matrix(...) 34. ├─base::unlist(...) 35. └─base::Map(...) 36. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 37. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 38. └─rtables::format_rcell(...) 39. └─formatters::format_value(...) 40. └─base::match.arg(round_type) ── Error ('test-ext01.R:78:3'): ext01 precision argument works as expected ───── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─chevron::run(ext01, syn_data, precision = list(TDOSE = 4, default = 0)) at test-ext01.R:78:3 2. ├─chevron::run(ext01, syn_data, precision = list(TDOSE = 4, default = 0)) 3. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 4. │ └─base::do.call(what, new_args, envir = args_env) 5. └─chevron (local) ``(adam_db = adam_db, precision = precision) 6. └─rtables::build_table(lyt, adam_db$adex, adam_db$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::make_row_df(...) 18. └─rtables::make_row_df(...) 19. └─rtables (local) .local(...) 20. ├─formatters::make_row_df(...) 21. └─rtables::make_row_df(...) 22. └─rtables (local) .local(...) 23. ├─formatters::make_row_df(...) 24. └─rtables::make_row_df(...) 25. └─rtables (local) .local(...) 26. ├─formatters::pagdfrow(...) 27. │ └─base::data.frame(...) 28. ├─formatters::nlines(...) 29. └─rtables::nlines(...) 30. ├─base::as.vector(get_formatted_cells(x)) 31. ├─rtables::get_formatted_cells(x) 32. └─rtables::get_formatted_cells(x) 33. ├─base::matrix(...) 34. ├─base::unlist(...) 35. └─base::Map(...) 36. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 37. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 38. └─rtables::format_rcell(...) 39. └─formatters::format_value(...) 40. └─base::match.arg(round_type) ── Error ('test-fstg01.R:6:3'): fstg01 works as expected ─────────────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(fstg01_main(pre_data, dataset = "adrs")) at test-fstg01.R:6: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. ├─chevron::fstg01_main(pre_data, dataset = "adrs") 10. │ └─basic_table() %>% tabulate_rsp_subgroups(df, vars = stat_var) 11. └─tern::tabulate_rsp_subgroups(., df, vars = stat_var) 12. └─rtables::build_table(lyt_prop, df = df$prop) 13. └─rtables::update_ref_indexing(tab) 14. ├─formatters::make_row_df(tt) 15. └─rtables::make_row_df(tt) 16. └─rtables (local) .local(...) 17. ├─formatters::make_row_df(...) 18. └─rtables::make_row_df(...) 19. └─rtables (local) .local(...) 20. ├─formatters::make_row_df(...) 21. └─rtables::make_row_df(...) 22. └─rtables (local) .local(...) 23. ├─formatters::make_row_df(...) 24. └─rtables::make_row_df(...) 25. └─rtables (local) .local(...) 26. ├─formatters::make_row_df(...) 27. └─rtables::make_row_df(...) 28. └─rtables (local) .local(...) 29. ├─formatters::pagdfrow(...) 30. │ └─base::data.frame(...) 31. ├─formatters::nlines(...) 32. └─rtables::nlines(...) 33. ├─base::as.vector(get_formatted_cells(x)) 34. ├─rtables::get_formatted_cells(x) 35. └─rtables::get_formatted_cells(x) 36. ├─base::matrix(...) 37. ├─base::unlist(...) 38. └─base::Map(...) 39. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 40. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 41. └─rtables::format_rcell(...) 42. └─formatters::format_value(...) 43. └─base::match.arg(round_type) ── Error ('test-fstg01.R:16:3'): fstg01 works as expected with custom color set ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(...) at test-fstg01.R:16: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. ├─chevron::run(...) 10. ├─chevron::run(...) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. ├─chevron (local) ``(...) 14. │ └─basic_table() %>% tabulate_rsp_subgroups(df, vars = stat_var) 15. └─tern::tabulate_rsp_subgroups(., df, vars = stat_var) 16. └─rtables::build_table(lyt_prop, df = df$prop) 17. └─rtables::update_ref_indexing(tab) 18. ├─formatters::make_row_df(tt) 19. └─rtables::make_row_df(tt) 20. └─rtables (local) .local(...) 21. ├─formatters::make_row_df(...) 22. └─rtables::make_row_df(...) 23. └─rtables (local) .local(...) 24. ├─formatters::make_row_df(...) 25. └─rtables::make_row_df(...) 26. └─rtables (local) .local(...) 27. ├─formatters::make_row_df(...) 28. └─rtables::make_row_df(...) 29. └─rtables (local) .local(...) 30. ├─formatters::make_row_df(...) 31. └─rtables::make_row_df(...) 32. └─rtables (local) .local(...) 33. ├─formatters::pagdfrow(...) 34. │ └─base::data.frame(...) 35. ├─formatters::nlines(...) 36. └─rtables::nlines(...) 37. ├─base::as.vector(get_formatted_cells(x)) 38. ├─rtables::get_formatted_cells(x) 39. └─rtables::get_formatted_cells(x) 40. ├─base::matrix(...) 41. ├─base::unlist(...) 42. └─base::Map(...) 43. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 44. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 45. └─rtables::format_rcell(...) 46. └─formatters::format_value(...) 47. └─base::match.arg(round_type) ── Error ('test-fstg01.R:27:3'): fstg01 works if changes are in subgroups, conf_level, and label_all ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(...) at test-fstg01.R:27: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. ├─chevron::run(...) 10. ├─chevron::run(...) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. ├─chevron (local) ``(...) 14. │ └─basic_table() %>% tabulate_rsp_subgroups(df, vars = stat_var) 15. └─tern::tabulate_rsp_subgroups(., df, vars = stat_var) 16. └─rtables::build_table(lyt_prop, df = df$prop) 17. └─rtables::update_ref_indexing(tab) 18. ├─formatters::make_row_df(tt) 19. └─rtables::make_row_df(tt) 20. └─rtables (local) .local(...) 21. ├─formatters::make_row_df(...) 22. └─rtables::make_row_df(...) 23. └─rtables (local) .local(...) 24. ├─formatters::make_row_df(...) 25. └─rtables::make_row_df(...) 26. └─rtables (local) .local(...) 27. ├─formatters::make_row_df(...) 28. └─rtables::make_row_df(...) 29. └─rtables (local) .local(...) 30. ├─formatters::pagdfrow(...) 31. │ └─base::data.frame(...) 32. ├─formatters::nlines(...) 33. └─rtables::nlines(...) 34. ├─base::as.vector(get_formatted_cells(x)) 35. ├─rtables::get_formatted_cells(x) 36. └─rtables::get_formatted_cells(x) 37. ├─base::matrix(...) 38. ├─base::unlist(...) 39. └─base::Map(...) 40. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 41. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 42. └─rtables::format_rcell(...) 43. └─formatters::format_value(...) 44. └─base::match.arg(round_type) ── Error ('test-fstg01.R:44:3'): fstg01 can handle some NA values in subgroups ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(...) at test-fstg01.R:44: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. ├─chevron::run(fstg01, proc_data, response = c("CR", "PR"), dataset = "adrs") 10. ├─chevron::run(fstg01, proc_data, response = c("CR", "PR"), dataset = "adrs") 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. ├─chevron (local) ``(adam_db = adam_db, response = response, dataset = dataset) 14. │ └─basic_table() %>% tabulate_rsp_subgroups(df, vars = stat_var) 15. └─tern::tabulate_rsp_subgroups(., df, vars = stat_var) 16. └─rtables::build_table(lyt_prop, df = df$prop) 17. └─rtables::update_ref_indexing(tab) 18. ├─formatters::make_row_df(tt) 19. └─rtables::make_row_df(tt) 20. └─rtables (local) .local(...) 21. ├─formatters::make_row_df(...) 22. └─rtables::make_row_df(...) 23. └─rtables (local) .local(...) 24. ├─formatters::make_row_df(...) 25. └─rtables::make_row_df(...) 26. └─rtables (local) .local(...) 27. ├─formatters::make_row_df(...) 28. └─rtables::make_row_df(...) 29. └─rtables (local) .local(...) 30. ├─formatters::make_row_df(...) 31. └─rtables::make_row_df(...) 32. └─rtables (local) .local(...) 33. ├─formatters::pagdfrow(...) 34. │ └─base::data.frame(...) 35. ├─formatters::nlines(...) 36. └─rtables::nlines(...) 37. ├─base::as.vector(get_formatted_cells(x)) 38. ├─rtables::get_formatted_cells(x) 39. └─rtables::get_formatted_cells(x) 40. ├─base::matrix(...) 41. ├─base::unlist(...) 42. └─base::Map(...) 43. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 44. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 45. └─rtables::format_rcell(...) 46. └─formatters::format_value(...) 47. └─base::match.arg(round_type) ── Error ('test-fstg02.R:6:3'): fstg02 works as expected ─────────────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(fstg02_main(pre_data, dataset = "adtte")) at test-fstg02.R:6: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. ├─chevron::fstg02_main(pre_data, dataset = "adtte") 10. │ └─basic_table() %>% ... 11. └─tern::tabulate_survival_subgroups(., df, vars = stat_var, time_unit = timeunit) 12. └─rtables::build_table(lyt_survtime, df = df$survtime) 13. └─rtables::update_ref_indexing(tab) 14. ├─formatters::make_row_df(tt) 15. └─rtables::make_row_df(tt) 16. └─rtables (local) .local(...) 17. ├─formatters::make_row_df(...) 18. └─rtables::make_row_df(...) 19. └─rtables (local) .local(...) 20. ├─formatters::make_row_df(...) 21. └─rtables::make_row_df(...) 22. └─rtables (local) .local(...) 23. ├─formatters::make_row_df(...) 24. └─rtables::make_row_df(...) 25. └─rtables (local) .local(...) 26. ├─formatters::make_row_df(...) 27. └─rtables::make_row_df(...) 28. └─rtables (local) .local(...) 29. ├─formatters::pagdfrow(...) 30. │ └─base::data.frame(...) 31. ├─formatters::nlines(...) 32. └─rtables::nlines(...) 33. ├─base::as.vector(get_formatted_cells(x)) 34. ├─rtables::get_formatted_cells(x) 35. └─rtables::get_formatted_cells(x) 36. ├─base::matrix(...) 37. ├─base::unlist(...) 38. └─base::Map(...) 39. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 40. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 41. └─rtables::format_rcell(...) 42. └─formatters::format_value(...) 43. └─base::match.arg(round_type) ── Error ('test-fstg02.R:16:3'): fstg02 works as expected with custom color set ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(...) at test-fstg02.R:16: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. ├─chevron::run(fstg02, proc_data, dataset = "adtte", col = "gray") 10. ├─chevron::run(fstg02, proc_data, dataset = "adtte", col = "gray") 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. ├─chevron (local) ``(adam_db = adam_db, dataset = dataset, col = col) 14. │ └─basic_table() %>% ... 15. └─tern::tabulate_survival_subgroups(., df, vars = stat_var, time_unit = timeunit) 16. └─rtables::build_table(lyt_survtime, df = df$survtime) 17. └─rtables::update_ref_indexing(tab) 18. ├─formatters::make_row_df(tt) 19. └─rtables::make_row_df(tt) 20. └─rtables (local) .local(...) 21. ├─formatters::make_row_df(...) 22. └─rtables::make_row_df(...) 23. └─rtables (local) .local(...) 24. ├─formatters::make_row_df(...) 25. └─rtables::make_row_df(...) 26. └─rtables (local) .local(...) 27. ├─formatters::make_row_df(...) 28. └─rtables::make_row_df(...) 29. └─rtables (local) .local(...) 30. ├─formatters::make_row_df(...) 31. └─rtables::make_row_df(...) 32. └─rtables (local) .local(...) 33. ├─formatters::pagdfrow(...) 34. │ └─base::data.frame(...) 35. ├─formatters::nlines(...) 36. └─rtables::nlines(...) 37. ├─base::as.vector(get_formatted_cells(x)) 38. ├─rtables::get_formatted_cells(x) 39. └─rtables::get_formatted_cells(x) 40. ├─base::matrix(...) 41. ├─base::unlist(...) 42. └─base::Map(...) 43. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 44. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 45. └─rtables::format_rcell(...) 46. └─formatters::format_value(...) 47. └─base::match.arg(round_type) ── Error ('test-fstg02.R:27:3'): fstg02 works if changes are in subgroups, strata_var, conf_level, and label_all ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(...) at test-fstg02.R:27: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. ├─chevron::run(fstg02, proc_data, subgroups = NULL, dataset = "adtte") 10. ├─chevron::run(fstg02, proc_data, subgroups = NULL, dataset = "adtte") 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. ├─chevron (local) ``(adam_db = adam_db, subgroups = subgroups, dataset = dataset) 14. │ └─basic_table() %>% ... 15. └─tern::tabulate_survival_subgroups(., df, vars = stat_var, time_unit = timeunit) 16. └─rtables::build_table(lyt_survtime, df = df$survtime) 17. └─rtables::update_ref_indexing(tab) 18. ├─formatters::make_row_df(tt) 19. └─rtables::make_row_df(tt) 20. └─rtables (local) .local(...) 21. ├─formatters::make_row_df(...) 22. └─rtables::make_row_df(...) 23. └─rtables (local) .local(...) 24. ├─formatters::make_row_df(...) 25. └─rtables::make_row_df(...) 26. └─rtables (local) .local(...) 27. ├─formatters::make_row_df(...) 28. └─rtables::make_row_df(...) 29. └─rtables (local) .local(...) 30. ├─formatters::pagdfrow(...) 31. │ └─base::data.frame(...) 32. ├─formatters::nlines(...) 33. └─rtables::nlines(...) 34. ├─base::as.vector(get_formatted_cells(x)) 35. ├─rtables::get_formatted_cells(x) 36. └─rtables::get_formatted_cells(x) 37. ├─base::matrix(...) 38. ├─base::unlist(...) 39. └─base::Map(...) 40. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 41. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 42. └─rtables::format_rcell(...) 43. └─formatters::format_value(...) 44. └─base::match.arg(round_type) ── Error ('test-fstg02.R:44:3'): fstg02 can handle some NA values in subgroups ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(fstg02, proc_data, dataset = "adtte")) at test-fstg02.R:44: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. ├─chevron::run(fstg02, proc_data, dataset = "adtte") 10. ├─chevron::run(fstg02, proc_data, dataset = "adtte") 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. ├─chevron (local) ``(adam_db = adam_db, dataset = dataset) 14. │ └─basic_table() %>% ... 15. └─tern::tabulate_survival_subgroups(., df, vars = stat_var, time_unit = timeunit) 16. └─rtables::build_table(lyt_survtime, df = df$survtime) 17. └─rtables::update_ref_indexing(tab) 18. ├─formatters::make_row_df(tt) 19. └─rtables::make_row_df(tt) 20. └─rtables (local) .local(...) 21. ├─formatters::make_row_df(...) 22. └─rtables::make_row_df(...) 23. └─rtables (local) .local(...) 24. ├─formatters::make_row_df(...) 25. └─rtables::make_row_df(...) 26. └─rtables (local) .local(...) 27. ├─formatters::make_row_df(...) 28. └─rtables::make_row_df(...) 29. └─rtables (local) .local(...) 30. ├─formatters::make_row_df(...) 31. └─rtables::make_row_df(...) 32. └─rtables (local) .local(...) 33. ├─formatters::pagdfrow(...) 34. │ └─base::data.frame(...) 35. ├─formatters::nlines(...) 36. └─rtables::nlines(...) 37. ├─base::as.vector(get_formatted_cells(x)) 38. ├─rtables::get_formatted_cells(x) 39. └─rtables::get_formatted_cells(x) 40. ├─base::matrix(...) 41. ├─base::unlist(...) 42. └─base::Map(...) 43. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 44. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 45. └─rtables::format_rcell(...) 46. └─formatters::format_value(...) 47. └─base::match.arg(round_type) ── Error ('test-fstg02.R:59:3'): fstg02 can handle customized time units ─────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(fstg02, proc_data, dataset = "adtte")) at test-fstg02.R:59: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. ├─chevron::run(fstg02, proc_data, dataset = "adtte") 10. ├─chevron::run(fstg02, proc_data, dataset = "adtte") 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. ├─chevron (local) ``(adam_db = adam_db, dataset = dataset) 14. │ └─basic_table() %>% ... 15. └─tern::tabulate_survival_subgroups(., df, vars = stat_var, time_unit = timeunit) 16. └─rtables::build_table(lyt_survtime, df = df$survtime) 17. └─rtables::update_ref_indexing(tab) 18. ├─formatters::make_row_df(tt) 19. └─rtables::make_row_df(tt) 20. └─rtables (local) .local(...) 21. ├─formatters::make_row_df(...) 22. └─rtables::make_row_df(...) 23. └─rtables (local) .local(...) 24. ├─formatters::make_row_df(...) 25. └─rtables::make_row_df(...) 26. └─rtables (local) .local(...) 27. ├─formatters::make_row_df(...) 28. └─rtables::make_row_df(...) 29. └─rtables (local) .local(...) 30. ├─formatters::make_row_df(...) 31. └─rtables::make_row_df(...) 32. └─rtables (local) .local(...) 33. ├─formatters::pagdfrow(...) 34. │ └─base::data.frame(...) 35. ├─formatters::nlines(...) 36. └─rtables::nlines(...) 37. ├─base::as.vector(get_formatted_cells(x)) 38. ├─rtables::get_formatted_cells(x) 39. └─rtables::get_formatted_cells(x) 40. ├─base::matrix(...) 41. ├─base::unlist(...) 42. └─base::Map(...) 43. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 44. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 45. └─rtables::format_rcell(...) 46. └─formatters::format_value(...) 47. └─base::match.arg(round_type) ── Error ('test-lbt01.R:9:3'): lbt01 functions with default argument value return expected result with test data ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─chevron::lbt01_main(pre_data) at test-lbt01.R:9:3 2. └─rtables::build_table(lyt, df = adam_db[[dataset]], alt_counts_df = adam_db$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::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::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::pagdfrow(...) 23. │ └─base::data.frame(...) 24. ├─formatters::nlines(...) 25. └─rtables::nlines(...) 26. ├─base::as.vector(get_formatted_cells(x)) 27. ├─rtables::get_formatted_cells(x) 28. └─rtables::get_formatted_cells(x) 29. ├─base::matrix(...) 30. ├─base::unlist(...) 31. └─base::Map(...) 32. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 33. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 34. └─rtables::format_rcell(...) 35. └─formatters::format_value(...) 36. └─base::match.arg(round_type) ── Error ('test-lbt01.R:19:3'): lbt01 functions with row_split_var return expected result with test data ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─chevron::lbt01_main(pre_data, row_split_var = "LBCAT", precision = list(ALT = 0)) at test-lbt01.R:19:3 2. └─rtables::build_table(lyt, df = adam_db[[dataset]], alt_counts_df = adam_db$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::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::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) ``(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-lbt01.R:32:3'): lbt01 can handle n = 0 and outputs NE instead of infs and NAs ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(...) at test-lbt01.R:32: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. ├─chevron::run(lbt01, proc_data, precision = list(ALT = 0, CRP = 1)) 10. ├─chevron::run(lbt01, proc_data, precision = list(ALT = 0, CRP = 1)) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db, precision = precision) 14. └─rtables::build_table(lyt, df = adam_db[[dataset]], alt_counts_df = adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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::make_row_df(...) 29. └─rtables::make_row_df(...) 30. └─rtables (local) .local(...) 31. ├─formatters::make_row_df(...) 32. └─rtables::make_row_df(...) 33. └─rtables (local) .local(...) 34. ├─formatters::pagdfrow(...) 35. │ └─base::data.frame(...) 36. ├─formatters::nlines(...) 37. └─rtables::nlines(...) 38. ├─base::as.vector(get_formatted_cells(x)) 39. ├─rtables::get_formatted_cells(x) 40. └─rtables::get_formatted_cells(x) 41. ├─base::matrix(...) 42. ├─base::unlist(...) 43. └─base::Map(...) 44. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 45. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 46. └─rtables::format_rcell(...) 47. └─formatters::format_value(...) 48. └─base::match.arg(round_type) ── Error ('test-lbt04.R:5:3'): lbt04 functions with default argument value return expected result with test data ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─chevron::lbt04_main(pre_data) at test-lbt04.R:5:3 2. └─rtables::build_table(lyt, adam_db$adlb, alt_counts_df = adam_db$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::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::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::pagdfrow(...) 23. │ └─base::data.frame(...) 24. ├─formatters::nlines(...) 25. └─rtables::nlines(...) 26. ├─base::as.vector(get_formatted_cells(x)) 27. ├─rtables::get_formatted_cells(x) 28. └─rtables::get_formatted_cells(x) 29. ├─base::matrix(...) 30. ├─base::unlist(...) 31. └─base::Map(...) 32. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 33. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 34. └─rtables::format_rcell(...) 35. └─formatters::format_value(...) 36. └─base::match.arg(round_type) ── Error ('test-lbt04.R:21:3'): lbt04 can handle all NA values ───────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─base::cat(export_as_txt(res, lpp = 100)) 2. └─formatters::export_as_txt(res, lpp = 100) 3. └─formatters::paginate_to_mpfs(...) 4. ├─formatters::matrix_form(...) 5. └─rtables::matrix_form(...) 6. └─rtables:::.tbl_header_mat(obj) 7. ├─base::matrix(...) 8. └─base::rapply(...) 9. └─rtables (local) ``(X, ...) 10. ├─rtables::get_formatted_cells(x) 11. └─rtables::get_formatted_cells(x) 12. ├─base::matrix(...) 13. ├─base::unlist(...) 14. └─base::Map(...) 15. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 16. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 17. └─rtables::format_rcell(...) 18. └─formatters::format_value(...) 19. └─base::match.arg(round_type) ── Error ('test-lbt04.R:32:3'): lbt04 can handle missing levels ──────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(lbt04, proc_data)) at test-lbt04.R:32: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. ├─chevron::run(lbt04, proc_data) 10. ├─chevron::run(lbt04, proc_data) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db) 14. └─rtables::build_table(lyt, adam_db$adlb, alt_counts_df = adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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::make_row_df(...) 29. └─rtables::make_row_df(...) 30. └─rtables (local) .local(...) 31. ├─formatters::make_row_df(...) 32. └─rtables::make_row_df(...) 33. └─rtables (local) .local(...) 34. ├─formatters::pagdfrow(...) 35. │ └─base::data.frame(...) 36. ├─formatters::nlines(...) 37. └─rtables::nlines(...) 38. ├─base::as.vector(get_formatted_cells(x)) 39. ├─rtables::get_formatted_cells(x) 40. └─rtables::get_formatted_cells(x) 41. ├─base::matrix(...) 42. ├─base::unlist(...) 43. └─base::Map(...) 44. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 45. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 46. └─rtables::format_rcell(...) 47. └─formatters::format_value(...) 48. └─base::match.arg(round_type) ── Error ('test-lbt04.R:41:3'): lbt04 can handle some NA values ──────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(lbt04, proc_data)) at test-lbt04.R:41: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. ├─chevron::run(lbt04, proc_data) 10. ├─chevron::run(lbt04, proc_data) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db) 14. └─rtables::build_table(lyt, adam_db$adlb, alt_counts_df = adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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::make_row_df(...) 29. └─rtables::make_row_df(...) 30. └─rtables (local) .local(...) 31. ├─formatters::make_row_df(...) 32. └─rtables::make_row_df(...) 33. └─rtables (local) .local(...) 34. ├─formatters::pagdfrow(...) 35. │ └─base::data.frame(...) 36. ├─formatters::nlines(...) 37. └─rtables::nlines(...) 38. ├─base::as.vector(get_formatted_cells(x)) 39. ├─rtables::get_formatted_cells(x) 40. └─rtables::get_formatted_cells(x) 41. ├─base::matrix(...) 42. ├─base::unlist(...) 43. └─base::Map(...) 44. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 45. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 46. └─rtables::format_rcell(...) 47. └─formatters::format_value(...) 48. └─base::match.arg(round_type) ── Error ('test-lbt05.R:5:3'): lbt05 functions with default argument value return expected result with test data ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─chevron::lbt05_main(pre_data) at test-lbt05.R:5:3 2. └─rtables::build_table(lyt, adam_db$adlb, alt_counts_df = adam_db$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::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) ``(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-lbt05.R:22:3'): lbt05 give all 0 count if ANRIND are all missing ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─chevron::run(lbt05, proc_data, map = NULL) at test-lbt05.R:22:3 2. ├─chevron::run(lbt05, proc_data, map = NULL) 3. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 4. │ └─base::do.call(what, new_args, envir = args_env) 5. └─chevron (local) ``(adam_db = adam_db, map = map) 6. └─rtables::build_table(lyt, adam_db$adlb, alt_counts_df = adam_db$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::make_row_df(...) 18. └─rtables::make_row_df(...) 19. └─rtables (local) .local(...) 20. ├─formatters::pagdfrow(...) 21. │ └─base::data.frame(...) 22. ├─formatters::nlines(...) 23. └─rtables::nlines(...) 24. ├─base::as.vector(get_formatted_cells(x)) 25. ├─rtables::get_formatted_cells(x) 26. └─rtables::get_formatted_cells(x) 27. ├─base::matrix(...) 28. ├─base::unlist(...) 29. └─base::Map(...) 30. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 31. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 32. └─rtables::format_rcell(...) 33. └─formatters::format_value(...) 34. └─base::match.arg(round_type) ── Error ('test-lbt05.R:37:3'): lbt05 can handle some NA values ──────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(lbt05, proc_data)) at test-lbt05.R:37: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. ├─chevron::run(lbt05, proc_data) 10. ├─chevron::run(lbt05, proc_data) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db) 14. └─rtables::build_table(lyt, adam_db$adlb, alt_counts_df = adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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) ``(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-lbt05.R:54:3'): lbt05 works with missing levels ──────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(lbt05, proc_data)) at test-lbt05.R:54: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. ├─chevron::run(lbt05, proc_data) 10. ├─chevron::run(lbt05, proc_data) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db) 14. └─rtables::build_table(lyt, adam_db$adlb, alt_counts_df = adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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) ``(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-lbt05.R:61:3'): map argument works as expected ───────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(lbt05, syn_data, map = map)) at test-lbt05.R:61: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. ├─chevron::run(lbt05, syn_data, map = map) 10. ├─chevron::run(lbt05, syn_data, map = map) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db, map = map) 14. └─rtables::build_table(lyt, adam_db$adlb, alt_counts_df = adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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) ``(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-lbt05.R:68:3'): incomplete map argument works as expected ────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(lbt05, syn_data, map = map)) at test-lbt05.R:68: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. ├─chevron::run(lbt05, syn_data, map = map) 10. ├─chevron::run(lbt05, syn_data, map = map) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db, map = map) 14. └─rtables::build_table(lyt, adam_db$adlb, alt_counts_df = adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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) ``(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-lbt05.R:74:3'): prune_0 keeps the `Any Abnormaility` row ─────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(lbt05, syn_data, prune_0 = TRUE)) at test-lbt05.R:74: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. ├─chevron::run(lbt05, syn_data, prune_0 = TRUE) 10. ├─chevron::run(lbt05, syn_data, prune_0 = TRUE) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db, prune_0 = prune_0) 14. └─rtables::build_table(lyt, adam_db$adlb, alt_counts_df = adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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) ``(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-lbt06.R:9:3'): lbt06 gives all 0 count if ANRIND and BNRIND are all missing ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─chevron::lbt06_main(df_pre) at test-lbt06.R:9:3 2. └─rtables::build_table(lyt, adam_db$adlb, alt_counts_df = adam_db$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::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::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::pagdfrow(...) 23. │ └─base::data.frame(...) 24. ├─formatters::nlines(...) 25. └─rtables::nlines(...) 26. ├─base::as.vector(get_formatted_cells(x)) 27. ├─rtables::get_formatted_cells(x) 28. └─rtables::get_formatted_cells(x) 29. ├─base::matrix(...) 30. ├─base::unlist(...) 31. └─base::Map(...) 32. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 33. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 34. └─rtables::format_rcell(...) 35. └─formatters::format_value(...) 36. └─base::match.arg(round_type) ── Error ('test-lbt06.R:19:3'): lbt06 can handle some NA values ──────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─chevron::lbt06_main(df_pre) at test-lbt06.R:19:3 2. └─rtables::build_table(lyt, adam_db$adlb, alt_counts_df = adam_db$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::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::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::pagdfrow(...) 23. │ └─base::data.frame(...) 24. ├─formatters::nlines(...) 25. └─rtables::nlines(...) 26. ├─base::as.vector(get_formatted_cells(x)) 27. ├─rtables::get_formatted_cells(x) 28. └─rtables::get_formatted_cells(x) 29. ├─base::matrix(...) 30. ├─base::unlist(...) 31. └─base::Map(...) 32. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 33. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 34. └─rtables::format_rcell(...) 35. └─formatters::format_value(...) 36. └─base::match.arg(round_type) ── Error ('test-lbt07.R:5:3'): lbt07 functions with default argument value return expected result with test data ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─chevron::lbt07_main(pre_data) at test-lbt07.R:5:3 2. └─rtables::build_table(lyt, adam_db$adlb, alt_counts_df = adam_db$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::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) ``(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-lbt07.R:22:3'): lbt07 can handle some NA values ──────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(lbt07, proc_data)) at test-lbt07.R:22: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. ├─chevron::run(lbt07, proc_data) 10. ├─chevron::run(lbt07, proc_data) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db) 14. └─rtables::build_table(lyt, adam_db$adlb, alt_counts_df = adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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) ``(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-lbt14.R:9:3'): lbt14 functions with default argument value return expected result with test data ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─chevron::lbt14_main(pre_data) at test-lbt14.R:9:3 2. └─rtables::build_table(lyt, adam_db$adlb, alt_counts_df = adam_db$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::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::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::pagdfrow(...) 23. │ └─base::data.frame(...) 24. ├─formatters::nlines(...) 25. └─rtables::nlines(...) 26. ├─base::as.vector(get_formatted_cells(x)) 27. ├─rtables::get_formatted_cells(x) 28. └─rtables::get_formatted_cells(x) 29. ├─base::matrix(...) 30. ├─base::unlist(...) 31. └─base::Map(...) 32. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 33. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 34. └─rtables::format_rcell(...) 35. └─formatters::format_value(...) 36. └─base::match.arg(round_type) ── Error ('test-lbt14.R:17:3'): lbt14 functions with default argument value return expected result with test data when direction = high ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─chevron::lbt14_main(pre_data, direction = "high") at test-lbt14.R:17:3 2. └─rtables::build_table(lyt, adam_db$adlb, alt_counts_df = adam_db$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::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::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::pagdfrow(...) 23. │ └─base::data.frame(...) 24. ├─formatters::nlines(...) 25. └─rtables::nlines(...) 26. ├─base::as.vector(get_formatted_cells(x)) 27. ├─rtables::get_formatted_cells(x) 28. └─rtables::get_formatted_cells(x) 29. ├─base::matrix(...) 30. ├─base::unlist(...) 31. └─base::Map(...) 32. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 33. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 34. └─rtables::format_rcell(...) 35. └─formatters::format_value(...) 36. └─base::match.arg(round_type) ── Error ('test-lbt14.R:25:3'): lbt14 functions with `gr_missing = excl` return expected result with test data ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─chevron::lbt14_main(pre_data) at test-lbt14.R:25:3 2. └─rtables::build_table(lyt, adam_db$adlb, alt_counts_df = adam_db$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::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::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::pagdfrow(...) 23. │ └─base::data.frame(...) 24. ├─formatters::nlines(...) 25. └─rtables::nlines(...) 26. ├─base::as.vector(get_formatted_cells(x)) 27. ├─rtables::get_formatted_cells(x) 28. └─rtables::get_formatted_cells(x) 29. ├─base::matrix(...) 30. ├─base::unlist(...) 31. └─base::Map(...) 32. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 33. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 34. └─rtables::format_rcell(...) 35. └─formatters::format_value(...) 36. └─base::match.arg(round_type) ── Error ('test-lbt14.R:33:3'): lbt14 functions with `gr_missing = gr_0` return expected result with test data ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─chevron::lbt14_main(pre_data) at test-lbt14.R:33:3 2. └─rtables::build_table(lyt, adam_db$adlb, alt_counts_df = adam_db$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::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::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::pagdfrow(...) 23. │ └─base::data.frame(...) 24. ├─formatters::nlines(...) 25. └─rtables::nlines(...) 26. ├─base::as.vector(get_formatted_cells(x)) 27. ├─rtables::get_formatted_cells(x) 28. └─rtables::get_formatted_cells(x) 29. ├─base::matrix(...) 30. ├─base::unlist(...) 31. └─base::Map(...) 32. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 33. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 34. └─rtables::format_rcell(...) 35. └─formatters::format_value(...) 36. └─base::match.arg(round_type) ── Error ('test-lbt14.R:48:3'): lbt14 can handle all NA values ───────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(lbt14, proc_data)) at test-lbt14.R:48: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. ├─chevron::run(lbt14, proc_data) 10. ├─chevron::run(lbt14, proc_data) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db) 14. └─rtables::build_table(lyt, adam_db$adlb, alt_counts_df = adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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::make_row_df(...) 29. └─rtables::make_row_df(...) 30. └─rtables (local) .local(...) 31. ├─formatters::make_row_df(...) 32. └─rtables::make_row_df(...) 33. └─rtables (local) .local(...) 34. ├─formatters::pagdfrow(...) 35. │ └─base::data.frame(...) 36. ├─formatters::nlines(...) 37. └─rtables::nlines(...) 38. ├─base::as.vector(get_formatted_cells(x)) 39. ├─rtables::get_formatted_cells(x) 40. └─rtables::get_formatted_cells(x) 41. ├─base::matrix(...) 42. ├─base::unlist(...) 43. └─base::Map(...) 44. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 45. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 46. └─rtables::format_rcell(...) 47. └─formatters::format_value(...) 48. └─base::match.arg(round_type) ── Error ('test-lbt14.R:68:3'): lbt14 can handle some NA values ──────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(lbt14, proc_data)) at test-lbt14.R:68: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. ├─chevron::run(lbt14, proc_data) 10. ├─chevron::run(lbt14, proc_data) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db) 14. └─rtables::build_table(lyt, adam_db$adlb, alt_counts_df = adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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::make_row_df(...) 29. └─rtables::make_row_df(...) 30. └─rtables (local) .local(...) 31. ├─formatters::make_row_df(...) 32. └─rtables::make_row_df(...) 33. └─rtables (local) .local(...) 34. ├─formatters::pagdfrow(...) 35. │ └─base::data.frame(...) 36. ├─formatters::nlines(...) 37. └─rtables::nlines(...) 38. ├─base::as.vector(get_formatted_cells(x)) 39. ├─rtables::get_formatted_cells(x) 40. └─rtables::get_formatted_cells(x) 41. ├─base::matrix(...) 42. ├─base::unlist(...) 43. └─base::Map(...) 44. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 45. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 46. └─rtables::format_rcell(...) 47. └─formatters::format_value(...) 48. └─base::match.arg(round_type) ── Error ('test-lbt14.R:74:3'): lbt14 can accept different gr_missing ────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─chevron::run(lbt14, syn_lab, gr_missing = "incl") at test-lbt14.R:74:3 2. ├─chevron::run(lbt14, syn_lab, gr_missing = "incl") 3. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 4. │ └─base::do.call(what, new_args, envir = args_env) 5. └─chevron (local) ``(adam_db = adam_db, gr_missing = gr_missing) 6. └─rtables::build_table(lyt, adam_db$adlb, alt_counts_df = adam_db$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::make_row_df(...) 18. └─rtables::make_row_df(...) 19. └─rtables (local) .local(...) 20. ├─formatters::make_row_df(...) 21. └─rtables::make_row_df(...) 22. └─rtables (local) .local(...) 23. ├─formatters::make_row_df(...) 24. └─rtables::make_row_df(...) 25. └─rtables (local) .local(...) 26. ├─formatters::pagdfrow(...) 27. │ └─base::data.frame(...) 28. ├─formatters::nlines(...) 29. └─rtables::nlines(...) 30. ├─base::as.vector(get_formatted_cells(x)) 31. ├─rtables::get_formatted_cells(x) 32. └─rtables::get_formatted_cells(x) 33. ├─base::matrix(...) 34. ├─base::unlist(...) 35. └─base::Map(...) 36. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 37. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 38. └─rtables::format_rcell(...) 39. └─formatters::format_value(...) 40. └─base::match.arg(round_type) ── Error ('test-lbt14.R:103:3'): lbt14 can handle all NA values with direction = high ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(lbt14, proc_data, direction = "high")) at test-lbt14.R:103: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. ├─chevron::run(lbt14, proc_data, direction = "high") 10. ├─chevron::run(lbt14, proc_data, direction = "high") 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db, direction = direction) 14. └─rtables::build_table(lyt, adam_db$adlb, alt_counts_df = adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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::make_row_df(...) 29. └─rtables::make_row_df(...) 30. └─rtables (local) .local(...) 31. ├─formatters::make_row_df(...) 32. └─rtables::make_row_df(...) 33. └─rtables (local) .local(...) 34. ├─formatters::pagdfrow(...) 35. │ └─base::data.frame(...) 36. ├─formatters::nlines(...) 37. └─rtables::nlines(...) 38. ├─base::as.vector(get_formatted_cells(x)) 39. ├─rtables::get_formatted_cells(x) 40. └─rtables::get_formatted_cells(x) 41. ├─base::matrix(...) 42. ├─base::unlist(...) 43. └─base::Map(...) 44. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 45. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 46. └─rtables::format_rcell(...) 47. └─formatters::format_value(...) 48. └─base::match.arg(round_type) ── Error ('test-lbt14.R:123:3'): lbt14 can handle some NA values with direction = high ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(lbt14, proc_data, direction = "high")) at test-lbt14.R:123: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. ├─chevron::run(lbt14, proc_data, direction = "high") 10. ├─chevron::run(lbt14, proc_data, direction = "high") 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db, direction = direction) 14. └─rtables::build_table(lyt, adam_db$adlb, alt_counts_df = adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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::make_row_df(...) 29. └─rtables::make_row_df(...) 30. └─rtables (local) .local(...) 31. ├─formatters::make_row_df(...) 32. └─rtables::make_row_df(...) 33. └─rtables (local) .local(...) 34. ├─formatters::pagdfrow(...) 35. │ └─base::data.frame(...) 36. ├─formatters::nlines(...) 37. └─rtables::nlines(...) 38. ├─base::as.vector(get_formatted_cells(x)) 39. ├─rtables::get_formatted_cells(x) 40. └─rtables::get_formatted_cells(x) 41. ├─base::matrix(...) 42. ├─base::unlist(...) 43. └─base::Map(...) 44. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 45. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 46. └─rtables::format_rcell(...) 47. └─formatters::format_value(...) 48. └─base::match.arg(round_type) ── Error ('test-lbt14.R:130:3'): lbt14 can accept different gr_missing with direction = high ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─chevron::run(lbt14, proc_data, gr_missing = "incl", direction = "high") at test-lbt14.R:130:3 2. ├─chevron::run(lbt14, proc_data, gr_missing = "incl", direction = "high") 3. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 4. │ └─base::do.call(what, new_args, envir = args_env) 5. └─chevron (local) ``(adam_db = adam_db, gr_missing = gr_missing, direction = direction) 6. └─rtables::build_table(lyt, adam_db$adlb, alt_counts_df = adam_db$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::make_row_df(...) 18. └─rtables::make_row_df(...) 19. └─rtables (local) .local(...) 20. ├─formatters::make_row_df(...) 21. └─rtables::make_row_df(...) 22. └─rtables (local) .local(...) 23. ├─formatters::make_row_df(...) 24. └─rtables::make_row_df(...) 25. └─rtables (local) .local(...) 26. ├─formatters::pagdfrow(...) 27. │ └─base::data.frame(...) 28. ├─formatters::nlines(...) 29. └─rtables::nlines(...) 30. ├─base::as.vector(get_formatted_cells(x)) 31. ├─rtables::get_formatted_cells(x) 32. └─rtables::get_formatted_cells(x) 33. ├─base::matrix(...) 34. ├─base::unlist(...) 35. └─base::Map(...) 36. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 37. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 38. └─rtables::format_rcell(...) 39. └─formatters::format_value(...) 40. └─base::match.arg(round_type) ── Error ('test-lbt15.R:5:3'): lbt15 functions with default argument value return expected result with test data ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─chevron::lbt04_main(pre_data) at test-lbt15.R:5:3 2. └─rtables::build_table(lyt, adam_db$adlb, alt_counts_df = adam_db$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::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::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::pagdfrow(...) 23. │ └─base::data.frame(...) 24. ├─formatters::nlines(...) 25. └─rtables::nlines(...) 26. ├─base::as.vector(get_formatted_cells(x)) 27. ├─rtables::get_formatted_cells(x) 28. └─rtables::get_formatted_cells(x) 29. ├─base::matrix(...) 30. ├─base::unlist(...) 31. └─base::Map(...) 32. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 33. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 34. └─rtables::format_rcell(...) 35. └─formatters::format_value(...) 36. └─base::match.arg(round_type) ── Error ('test-lbt15.R:20:3'): lbt15 can handle all NA values ───────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(lbt15, proc_data)) at test-lbt15.R:20: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. ├─chevron::run(lbt15, proc_data) 10. ├─chevron::run(lbt15, proc_data) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db) 14. └─rtables::build_table(lyt, adam_db$adlb, alt_counts_df = adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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::make_row_df(...) 29. └─rtables::make_row_df(...) 30. └─rtables (local) .local(...) 31. ├─formatters::make_row_df(...) 32. └─rtables::make_row_df(...) 33. └─rtables (local) .local(...) 34. ├─formatters::pagdfrow(...) 35. │ └─base::data.frame(...) 36. ├─formatters::nlines(...) 37. └─rtables::nlines(...) 38. ├─base::as.vector(get_formatted_cells(x)) 39. ├─rtables::get_formatted_cells(x) 40. └─rtables::get_formatted_cells(x) 41. ├─base::matrix(...) 42. ├─base::unlist(...) 43. └─base::Map(...) 44. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 45. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 46. └─rtables::format_rcell(...) 47. └─formatters::format_value(...) 48. └─base::match.arg(round_type) ── Error ('test-lbt15.R:32:3'): lbt15 can handle missing levels ──────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(lbt15, proc_data)) at test-lbt15.R:32: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. ├─chevron::run(lbt15, proc_data) 10. ├─chevron::run(lbt15, proc_data) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db) 14. └─rtables::build_table(lyt, adam_db$adlb, alt_counts_df = adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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::make_row_df(...) 29. └─rtables::make_row_df(...) 30. └─rtables (local) .local(...) 31. ├─formatters::make_row_df(...) 32. └─rtables::make_row_df(...) 33. └─rtables (local) .local(...) 34. ├─formatters::pagdfrow(...) 35. │ └─base::data.frame(...) 36. ├─formatters::nlines(...) 37. └─rtables::nlines(...) 38. ├─base::as.vector(get_formatted_cells(x)) 39. ├─rtables::get_formatted_cells(x) 40. └─rtables::get_formatted_cells(x) 41. ├─base::matrix(...) 42. ├─base::unlist(...) 43. └─base::Map(...) 44. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 45. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 46. └─rtables::format_rcell(...) 47. └─formatters::format_value(...) 48. └─base::match.arg(round_type) ── Error ('test-lbt15.R:44:3'): lbt15 can handle missing levels in baseline ──── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(lbt15, proc_data)) at test-lbt15.R:44: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. ├─chevron::run(lbt15, proc_data) 10. ├─chevron::run(lbt15, proc_data) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db) 14. └─rtables::build_table(lyt, adam_db$adlb, alt_counts_df = adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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::make_row_df(...) 29. └─rtables::make_row_df(...) 30. └─rtables (local) .local(...) 31. ├─formatters::make_row_df(...) 32. └─rtables::make_row_df(...) 33. └─rtables (local) .local(...) 34. ├─formatters::pagdfrow(...) 35. │ └─base::data.frame(...) 36. ├─formatters::nlines(...) 37. └─rtables::nlines(...) 38. ├─base::as.vector(get_formatted_cells(x)) 39. ├─rtables::get_formatted_cells(x) 40. └─rtables::get_formatted_cells(x) 41. ├─base::matrix(...) 42. ├─base::unlist(...) 43. └─base::Map(...) 44. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 45. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 46. └─rtables::format_rcell(...) 47. └─formatters::format_value(...) 48. └─base::match.arg(round_type) ── Error ('test-lbt15.R:53:3'): lbt15 can handle some NA values ──────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(lbt15, proc_data)) at test-lbt15.R:53: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. ├─chevron::run(lbt15, proc_data) 10. ├─chevron::run(lbt15, proc_data) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db) 14. └─rtables::build_table(lyt, adam_db$adlb, alt_counts_df = adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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::make_row_df(...) 29. └─rtables::make_row_df(...) 30. └─rtables (local) .local(...) 31. ├─formatters::make_row_df(...) 32. └─rtables::make_row_df(...) 33. └─rtables (local) .local(...) 34. ├─formatters::pagdfrow(...) 35. │ └─base::data.frame(...) 36. ├─formatters::nlines(...) 37. └─rtables::nlines(...) 38. ├─base::as.vector(get_formatted_cells(x)) 39. ├─rtables::get_formatted_cells(x) 40. └─rtables::get_formatted_cells(x) 41. ├─base::matrix(...) 42. ├─base::unlist(...) 43. └─base::Map(...) 44. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 45. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 46. └─rtables::format_rcell(...) 47. └─formatters::format_value(...) 48. └─base::match.arg(round_type) ── Error ('test-lbt15.R:62:3'): lbt15 can handle some NA values in baseline ──── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(lbt15, proc_data)) at test-lbt15.R:62: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. ├─chevron::run(lbt15, proc_data) 10. ├─chevron::run(lbt15, proc_data) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db) 14. └─rtables::build_table(lyt, adam_db$adlb, alt_counts_df = adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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::make_row_df(...) 29. └─rtables::make_row_df(...) 30. └─rtables (local) .local(...) 31. ├─formatters::make_row_df(...) 32. └─rtables::make_row_df(...) 33. └─rtables (local) .local(...) 34. ├─formatters::pagdfrow(...) 35. │ └─base::data.frame(...) 36. ├─formatters::nlines(...) 37. └─rtables::nlines(...) 38. ├─base::as.vector(get_formatted_cells(x)) 39. ├─rtables::get_formatted_cells(x) 40. └─rtables::get_formatted_cells(x) 41. ├─base::matrix(...) 42. ├─base::unlist(...) 43. └─base::Map(...) 44. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 45. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 46. └─rtables::format_rcell(...) 47. └─formatters::format_value(...) 48. └─base::match.arg(round_type) ── Error ('test-mht01.R:5:3'): mht01 functions with default argument value return expected result with test data ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─chevron::mht01_main(pre_data) at test-mht01.R:5:3 2. └─rtables::build_table(lyt, adam_db$admh, alt_counts_df = adam_db$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::make_row_df(...) 11. └─rtables::make_row_df(...) 12. └─rtables (local) .local(...) 13. ├─formatters::pagdfrow(...) 14. │ └─base::data.frame(...) 15. ├─formatters::nlines(...) 16. └─rtables::nlines(...) 17. ├─base::as.vector(get_formatted_cells(x)) 18. ├─rtables::get_formatted_cells(x) 19. └─rtables::get_formatted_cells(x) 20. ├─base::matrix(...) 21. ├─base::unlist(...) 22. └─base::Map(...) 23. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 24. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 25. └─rtables::format_rcell(...) 26. └─formatters::format_value(...) 27. └─base::match.arg(round_type) ── Error ('test-mht01.R:15:3'): mht01 works ──────────────────────────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─chevron::run(mht01, proc_data) at test-mht01.R:15:3 2. ├─chevron::run(mht01, proc_data) 3. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 4. │ └─base::do.call(what, new_args, envir = args_env) 5. └─chevron (local) ``(adam_db = adam_db) 6. └─rtables::build_table(lyt, adam_db$admh, alt_counts_df = adam_db$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) ``(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-mht01.R:22:3'): mht01 works on NULL in lbl_mhbodsys or lbl_mhdecod ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─chevron::run(mht01, proc_data, lbl_mhbodsys = NULL, lbl_mhdecod = NULL) at test-mht01.R:22:3 2. ├─chevron::run(mht01, proc_data, lbl_mhbodsys = NULL, lbl_mhdecod = NULL) 3. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 4. │ └─base::do.call(what, new_args, envir = args_env) 5. └─chevron (local) ``(adam_db = adam_db, lbl_mhbodsys = lbl_mhbodsys, lbl_mhdecod = lbl_mhdecod) 6. └─rtables::build_table(lyt, adam_db$admh, alt_counts_df = adam_db$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) ``(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-mht01.R:29:3'): mht01 works with other row_split_var ─────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─chevron::run(mht01, proc_data, row_split_var = c("SEX", "ETHNIC")) at test-mht01.R:29:3 2. ├─chevron::run(mht01, proc_data, row_split_var = c("SEX", "ETHNIC")) 3. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 4. │ └─base::do.call(what, new_args, envir = args_env) 5. └─chevron (local) ``(adam_db = adam_db, row_split_var = row_split_var) 6. └─rtables::build_table(lyt, adam_db$admh, alt_counts_df = adam_db$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) ``(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-mng01.R:6:5'): mng01 works as expected with default argument values ── Error in `dplyr::summarise(., h_format_row(x = sfun(.data[[y]], ...)[table], format = table_format, labels = table_labels), .groups = "drop")`: i In argument: `h_format_row(...)`. i In group 1: `ACTARM = A: Drug X` `AVISIT = BASELINE`. Caused by error in `match.arg()`: ! 'arg' must be of length 1 Backtrace: ▆ 1. ├─withr::with_options(...) at test-mng01.R:4:3 2. │ └─base::force(code) 3. ├─chevron::mng01_main(pre_data, dataset = "adlb") at test-mng01.R:6:5 4. │ └─base::lapply(...) 5. │ └─tern (local) FUN(X[[i]], ...) 6. │ └─df_grp %>% ... 7. ├─dplyr::summarise(...) 8. ├─dplyr:::summarise.grouped_df(...) 9. │ └─dplyr:::summarise_cols(.data, dplyr_quosures(...), by, "summarise") 10. │ ├─base::withCallingHandlers(...) 11. │ └─dplyr:::map(quosures, summarise_eval_one, mask = mask) 12. │ └─base::lapply(.x, .f, ...) 13. │ └─dplyr (local) FUN(X[[i]], ...) 14. │ └─mask$eval_all_summarise(quo) 15. │ └─dplyr (local) eval() 16. ├─tern::h_format_row(...) 17. │ ├─base::do.call(...) 18. │ └─base::lapply(...) 19. │ └─tern (local) FUN(X[[i]], ...) 20. │ └─tern (local) format_cell(x[[xn]], format = format[[xn]], label = labels[xn]) 21. │ └─rtables::format_rcell(x = x, format = format) 22. │ └─formatters::format_value(...) 23. │ └─base::match.arg(round_type) 24. │ └─base::stop(gettextf("'%s' must be of length 1", "arg"), domain = NA) 25. └─base::.handleSimpleError(...) 26. └─dplyr (local) h(simpleError(msg, call)) 27. └─dplyr (local) handler(cnd) 28. └─rlang::abort(message, class = error_class, parent = parent, call = error_call) ── Error ('test-mng01.R:25:5'): mng01 works as expected with custom argument values ── Error in `dplyr::summarise(., h_format_row(x = sfun(.data[[y]], ...)[table], format = table_format, labels = table_labels), .groups = "drop")`: i In argument: `h_format_row(...)`. i In group 1: `ACTARM = A: Drug X` `AVISIT = BASELINE`. Caused by error in `match.arg()`: ! 'arg' must be of length 1 Backtrace: ▆ 1. ├─withr::with_options(...) at test-mng01.R:16:3 2. │ └─base::force(code) 3. ├─chevron::mng01_main(...) at test-mng01.R:25:5 4. │ └─base::lapply(...) 5. │ └─tern (local) FUN(X[[i]], ...) 6. │ └─df_grp %>% ... 7. ├─dplyr::summarise(...) 8. ├─dplyr:::summarise.grouped_df(...) 9. │ └─dplyr:::summarise_cols(.data, dplyr_quosures(...), by, "summarise") 10. │ ├─base::withCallingHandlers(...) 11. │ └─dplyr:::map(quosures, summarise_eval_one, mask = mask) 12. │ └─base::lapply(.x, .f, ...) 13. │ └─dplyr (local) FUN(X[[i]], ...) 14. │ └─mask$eval_all_summarise(quo) 15. │ └─dplyr (local) eval() 16. ├─tern::h_format_row(...) 17. │ ├─base::do.call(...) 18. │ └─base::lapply(...) 19. │ └─tern (local) FUN(X[[i]], ...) 20. │ └─tern (local) format_cell(x[[xn]], format = format[[xn]], label = labels[xn]) 21. │ └─rtables::format_rcell(x = x, format = format) 22. │ └─formatters::format_value(...) 23. │ └─base::match.arg(round_type) 24. │ └─base::stop(gettextf("'%s' must be of length 1", "arg"), domain = NA) 25. └─base::.handleSimpleError(...) 26. └─dplyr (local) h(simpleError(msg, call)) 27. └─dplyr (local) handler(cnd) 28. └─rlang::abort(message, class = error_class, parent = parent, call = error_call) ── Error ('test-mng01.R:63:5'): mng01 works as expected with custom color set ── Error in `dplyr::summarise(., h_format_row(x = sfun(.data[[y]], ...)[table], format = table_format, labels = table_labels), .groups = "drop")`: i In argument: `h_format_row(...)`. i In group 1: `ACTARM = A: Drug X` `AVISIT = BASELINE`. Caused by error in `match.arg()`: ! 'arg' must be of length 1 Backtrace: ▆ 1. ├─withr::with_options(...) at test-mng01.R:55:3 2. │ └─base::force(code) 3. ├─chevron::run(mng01, proc_data, dataset = "adlb", line_col = col) at test-mng01.R:63:5 4. ├─chevron::run(mng01, proc_data, dataset = "adlb", line_col = col) 5. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 6. │ └─base::do.call(what, new_args, envir = args_env) 7. ├─chevron (local) ``(adam_db = adam_db, dataset = dataset, line_col = line_col) 8. │ └─base::lapply(...) 9. │ └─tern (local) FUN(X[[i]], ...) 10. │ └─df_grp %>% ... 11. ├─dplyr::summarise(...) 12. ├─dplyr:::summarise.grouped_df(...) 13. │ └─dplyr:::summarise_cols(.data, dplyr_quosures(...), by, "summarise") 14. │ ├─base::withCallingHandlers(...) 15. │ └─dplyr:::map(quosures, summarise_eval_one, mask = mask) 16. │ └─base::lapply(.x, .f, ...) 17. │ └─dplyr (local) FUN(X[[i]], ...) 18. │ └─mask$eval_all_summarise(quo) 19. │ └─dplyr (local) eval() 20. ├─tern::h_format_row(...) 21. │ ├─base::do.call(...) 22. │ └─base::lapply(...) 23. │ └─tern (local) FUN(X[[i]], ...) 24. │ └─tern (local) format_cell(x[[xn]], format = format[[xn]], label = labels[xn]) 25. │ └─rtables::format_rcell(x = x, format = format) 26. │ └─formatters::format_value(...) 27. │ └─base::match.arg(round_type) 28. │ └─base::stop(gettextf("'%s' must be of length 1", "arg"), domain = NA) 29. └─base::.handleSimpleError(...) 30. └─dplyr (local) h(simpleError(msg, call)) 31. └─dplyr (local) handler(cnd) 32. └─rlang::abort(message, class = error_class, parent = parent, call = error_call) ── Error ('test-mng01.R:85:5'): mng01 works as expected with custom line type set ── Error in `dplyr::summarise(., h_format_row(x = sfun(.data[[y]], ...)[table], format = table_format, labels = table_labels), .groups = "drop")`: i In argument: `h_format_row(...)`. i In group 1: `ACTARM = A: Drug X` `AVISIT = BASELINE`. Caused by error in `match.arg()`: ! 'arg' must be of length 1 Backtrace: ▆ 1. ├─withr::with_options(...) at test-mng01.R:77:3 2. │ └─base::force(code) 3. ├─chevron::run(mng01, proc_data, dataset = "adlb", line_type = lty) at test-mng01.R:85:5 4. ├─chevron::run(mng01, proc_data, dataset = "adlb", line_type = lty) 5. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 6. │ └─base::do.call(what, new_args, envir = args_env) 7. ├─chevron (local) ``(adam_db = adam_db, dataset = dataset, line_type = line_type) 8. │ └─base::lapply(...) 9. │ └─tern (local) FUN(X[[i]], ...) 10. │ └─df_grp %>% ... 11. ├─dplyr::summarise(...) 12. ├─dplyr:::summarise.grouped_df(...) 13. │ └─dplyr:::summarise_cols(.data, dplyr_quosures(...), by, "summarise") 14. │ ├─base::withCallingHandlers(...) 15. │ └─dplyr:::map(quosures, summarise_eval_one, mask = mask) 16. │ └─base::lapply(.x, .f, ...) 17. │ └─dplyr (local) FUN(X[[i]], ...) 18. │ └─mask$eval_all_summarise(quo) 19. │ └─dplyr (local) eval() 20. ├─tern::h_format_row(...) 21. │ ├─base::do.call(...) 22. │ └─base::lapply(...) 23. │ └─tern (local) FUN(X[[i]], ...) 24. │ └─tern (local) format_cell(x[[xn]], format = format[[xn]], label = labels[xn]) 25. │ └─rtables::format_rcell(x = x, format = format) 26. │ └─formatters::format_value(...) 27. │ └─base::match.arg(round_type) 28. │ └─base::stop(gettextf("'%s' must be of length 1", "arg"), domain = NA) 29. └─base::.handleSimpleError(...) 30. └─dplyr (local) h(simpleError(msg, call)) 31. └─dplyr (local) handler(cnd) 32. └─rlang::abort(message, class = error_class, parent = parent, call = error_call) ── Error ('test-mng01.R:113:5'): mng01 works with combination of x variables ─── Error in `dplyr::summarise(., h_format_row(x = sfun(.data[[y]], ...)[table], format = table_format, labels = table_labels), .groups = "drop")`: i In argument: `h_format_row(...)`. i In group 1: `ACTARM = A: Drug X` `AVISIT_AVISITN = BASELINE_0`. Caused by error in `match.arg()`: ! 'arg' must be of length 1 Backtrace: ▆ 1. ├─withr::with_options(...) at test-mng01.R:111:3 2. │ └─base::force(code) 3. ├─chevron::run(...) at test-mng01.R:113:5 4. ├─chevron::run(...) 5. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 6. │ └─base::do.call(what, new_args, envir = args_env) 7. ├─chevron (local) ``(adam_db = adam_db, dataset = dataset, x_var = x_var) 8. │ └─base::lapply(...) 9. │ └─tern (local) FUN(X[[i]], ...) 10. │ └─df_grp %>% ... 11. ├─dplyr::summarise(...) 12. ├─dplyr:::summarise.grouped_df(...) 13. │ └─dplyr:::summarise_cols(.data, dplyr_quosures(...), by, "summarise") 14. │ ├─base::withCallingHandlers(...) 15. │ └─dplyr:::map(quosures, summarise_eval_one, mask = mask) 16. │ └─base::lapply(.x, .f, ...) 17. │ └─dplyr (local) FUN(X[[i]], ...) 18. │ └─mask$eval_all_summarise(quo) 19. │ └─dplyr (local) eval() 20. ├─tern::h_format_row(...) 21. │ ├─base::do.call(...) 22. │ └─base::lapply(...) 23. │ └─tern (local) FUN(X[[i]], ...) 24. │ └─tern (local) format_cell(x[[xn]], format = format[[xn]], label = labels[xn]) 25. │ └─rtables::format_rcell(x = x, format = format) 26. │ └─formatters::format_value(...) 27. │ └─base::match.arg(round_type) 28. │ └─base::stop(gettextf("'%s' must be of length 1", "arg"), domain = NA) 29. └─base::.handleSimpleError(...) 30. └─dplyr (local) h(simpleError(msg, call)) 31. └─dplyr (local) handler(cnd) 32. └─rlang::abort(message, class = error_class, parent = parent, call = error_call) ── Error ('test-mng01.R:134:5'): mng01 works with numeric x variable ─────────── Error in `dplyr::summarise(., h_format_row(x = sfun(.data[[y]], ...)[table], format = table_format, labels = table_labels), .groups = "drop")`: i In argument: `h_format_row(...)`. i In group 1: `ACTARM = A: Drug X` `AVISITN = -3`. Caused by error in `match.arg()`: ! 'arg' must be of length 1 Backtrace: ▆ 1. ├─withr::with_options(...) at test-mng01.R:129:3 2. │ └─base::force(code) 3. ├─chevron::run(mng01, proc_data, dataset = "adlb", x_var = c("AVISITN")) at test-mng01.R:134:5 4. ├─chevron::run(mng01, proc_data, dataset = "adlb", x_var = c("AVISITN")) 5. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 6. │ └─base::do.call(what, new_args, envir = args_env) 7. ├─chevron (local) ``(adam_db = adam_db, dataset = dataset, x_var = x_var) 8. │ └─base::lapply(...) 9. │ └─tern (local) FUN(X[[i]], ...) 10. │ └─df_grp %>% ... 11. ├─dplyr::summarise(...) 12. ├─dplyr:::summarise.grouped_df(...) 13. │ └─dplyr:::summarise_cols(.data, dplyr_quosures(...), by, "summarise") 14. │ ├─base::withCallingHandlers(...) 15. │ └─dplyr:::map(quosures, summarise_eval_one, mask = mask) 16. │ └─base::lapply(.x, .f, ...) 17. │ └─dplyr (local) FUN(X[[i]], ...) 18. │ └─mask$eval_all_summarise(quo) 19. │ └─dplyr (local) eval() 20. ├─tern::h_format_row(...) 21. │ ├─base::do.call(...) 22. │ └─base::lapply(...) 23. │ └─tern (local) FUN(X[[i]], ...) 24. │ └─tern (local) format_cell(x[[xn]], format = format[[xn]], label = labels[xn]) 25. │ └─rtables::format_rcell(x = x, format = format) 26. │ └─formatters::format_value(...) 27. │ └─base::match.arg(round_type) 28. │ └─base::stop(gettextf("'%s' must be of length 1", "arg"), domain = NA) 29. └─base::.handleSimpleError(...) 30. └─dplyr (local) h(simpleError(msg, call)) 31. └─dplyr (local) handler(cnd) 32. └─rlang::abort(message, class = error_class, parent = parent, call = error_call) ── Error ('test-mng01.R:153:5'): mng01 works with numeric jitter ─────────────── Error in `dplyr::summarise(., h_format_row(x = sfun(.data[[y]], ...)[table], format = table_format, labels = table_labels), .groups = "drop")`: i In argument: `h_format_row(...)`. i In group 1: `ACTARM = A: Drug X` `AVISIT = BASELINE`. Caused by error in `match.arg()`: ! 'arg' must be of length 1 Backtrace: ▆ 1. ├─withr::with_options(...) at test-mng01.R:150:3 2. │ └─base::force(code) 3. ├─chevron::run(mng01, proc_data, dataset = "adlb", jitter = 0.7) at test-mng01.R:153:5 4. ├─chevron::run(mng01, proc_data, dataset = "adlb", jitter = 0.7) 5. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 6. │ └─base::do.call(what, new_args, envir = args_env) 7. ├─chevron (local) ``(adam_db = adam_db, dataset = dataset, jitter = jitter) 8. │ └─base::lapply(...) 9. │ └─tern (local) FUN(X[[i]], ...) 10. │ └─df_grp %>% ... 11. ├─dplyr::summarise(...) 12. ├─dplyr:::summarise.grouped_df(...) 13. │ └─dplyr:::summarise_cols(.data, dplyr_quosures(...), by, "summarise") 14. │ ├─base::withCallingHandlers(...) 15. │ └─dplyr:::map(quosures, summarise_eval_one, mask = mask) 16. │ └─base::lapply(.x, .f, ...) 17. │ └─dplyr (local) FUN(X[[i]], ...) 18. │ └─mask$eval_all_summarise(quo) 19. │ └─dplyr (local) eval() 20. ├─tern::h_format_row(...) 21. │ ├─base::do.call(...) 22. │ └─base::lapply(...) 23. │ └─tern (local) FUN(X[[i]], ...) 24. │ └─tern (local) format_cell(x[[xn]], format = format[[xn]], label = labels[xn]) 25. │ └─rtables::format_rcell(x = x, format = format) 26. │ └─formatters::format_value(...) 27. │ └─base::match.arg(round_type) 28. │ └─base::stop(gettextf("'%s' must be of length 1", "arg"), domain = NA) 29. └─base::.handleSimpleError(...) 30. └─dplyr (local) h(simpleError(msg, call)) 31. └─dplyr (local) handler(cnd) 32. └─rlang::abort(message, class = error_class, parent = parent, call = error_call) ── Error ('test-pdt01.R:5:3'): pdt01 function with default argument value return expected result with test data ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─chevron::pdt01_main(pre_data) at test-pdt01.R:5:3 2. └─rtables::build_table(lyt, adam_db$addv, alt_counts_df = adam_db$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::make_row_df(...) 11. └─rtables::make_row_df(...) 12. └─rtables (local) .local(...) 13. ├─formatters::pagdfrow(...) 14. │ └─base::data.frame(...) 15. ├─formatters::nlines(...) 16. └─rtables::nlines(...) 17. ├─base::as.vector(get_formatted_cells(x)) 18. ├─rtables::get_formatted_cells(x) 19. └─rtables::get_formatted_cells(x) 20. ├─base::matrix(...) 21. ├─base::unlist(...) 22. └─base::Map(...) 23. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 24. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 25. └─rtables::format_rcell(...) 26. └─formatters::format_value(...) 27. └─base::match.arg(round_type) ── Error ('test-pdt01.R:21:3'): pdt01 can handle all NA values ───────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(pdt01, proc_data)) at test-pdt01.R:21: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. ├─chevron::run(pdt01, proc_data) 10. ├─chevron::run(pdt01, proc_data) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db) 14. └─rtables::build_table(lyt, adam_db$addv, alt_counts_df = adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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::pagdfrow(...) 26. │ └─base::data.frame(...) 27. ├─formatters::nlines(...) 28. └─rtables::nlines(...) 29. ├─base::as.vector(get_formatted_cells(x)) 30. ├─rtables::get_formatted_cells(x) 31. └─rtables::get_formatted_cells(x) 32. ├─base::matrix(...) 33. ├─base::unlist(...) 34. └─base::Map(...) 35. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 36. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 37. └─rtables::format_rcell(...) 38. └─formatters::format_value(...) 39. └─base::match.arg(round_type) ── Error ('test-pdt01.R:37:3'): pdt01 can handle some NA values ──────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(pdt01, proc_data)) at test-pdt01.R:37: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. ├─chevron::run(pdt01, proc_data) 10. ├─chevron::run(pdt01, proc_data) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db) 14. └─rtables::build_table(lyt, adam_db$addv, alt_counts_df = adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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::pagdfrow(...) 26. │ └─base::data.frame(...) 27. ├─formatters::nlines(...) 28. └─rtables::nlines(...) 29. ├─base::as.vector(get_formatted_cells(x)) 30. ├─rtables::get_formatted_cells(x) 31. └─rtables::get_formatted_cells(x) 32. ├─base::matrix(...) 33. ├─base::unlist(...) 34. └─base::Map(...) 35. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 36. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 37. └─rtables::format_rcell(...) 38. └─formatters::format_value(...) 39. └─base::match.arg(round_type) ── Error ('test-pdt02.R:5:3'): pdt02 function with default argument value return expected result with test data ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─chevron::pdt02_main(pre_data) at test-pdt02.R:5:3 2. └─rtables::build_table(lyt, adam_db$addv, alt_counts_df = adam_db$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::make_row_df(...) 11. └─rtables::make_row_df(...) 12. └─rtables (local) .local(...) 13. ├─formatters::pagdfrow(...) 14. │ └─base::data.frame(...) 15. ├─formatters::nlines(...) 16. └─rtables::nlines(...) 17. ├─base::as.vector(get_formatted_cells(x)) 18. ├─rtables::get_formatted_cells(x) 19. └─rtables::get_formatted_cells(x) 20. ├─base::matrix(...) 21. ├─base::unlist(...) 22. └─base::Map(...) 23. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 24. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 25. └─rtables::format_rcell(...) 26. └─formatters::format_value(...) 27. └─base::match.arg(round_type) ── Error ('test-pdt02.R:21:3'): pdt02 can handle all NA values ───────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(pdt02, proc_data)) at test-pdt02.R:21: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. ├─chevron::run(pdt02, proc_data) 10. ├─chevron::run(pdt02, proc_data) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db) 14. └─rtables::build_table(lyt, adam_db$addv, alt_counts_df = adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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::pagdfrow(...) 26. │ └─base::data.frame(...) 27. ├─formatters::nlines(...) 28. └─rtables::nlines(...) 29. ├─base::as.vector(get_formatted_cells(x)) 30. ├─rtables::get_formatted_cells(x) 31. └─rtables::get_formatted_cells(x) 32. ├─base::matrix(...) 33. ├─base::unlist(...) 34. └─base::Map(...) 35. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 36. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 37. └─rtables::format_rcell(...) 38. └─formatters::format_value(...) 39. └─base::match.arg(round_type) ── Error ('test-pdt02.R:37:3'): pdt02 can handle some NA values ──────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(pdt02, proc_data)) at test-pdt02.R:37: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. ├─chevron::run(pdt02, proc_data) 10. ├─chevron::run(pdt02, proc_data) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db) 14. └─rtables::build_table(lyt, adam_db$addv, alt_counts_df = adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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::pagdfrow(...) 26. │ └─base::data.frame(...) 27. ├─formatters::nlines(...) 28. └─rtables::nlines(...) 29. ├─base::as.vector(get_formatted_cells(x)) 30. ├─rtables::get_formatted_cells(x) 31. └─rtables::get_formatted_cells(x) 32. ├─base::matrix(...) 33. ├─base::unlist(...) 34. └─base::Map(...) 35. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 36. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 37. └─rtables::format_rcell(...) 38. └─formatters::format_value(...) 39. └─base::match.arg(round_type) ── Error ('test-report_null.R:10:3'): report_null works as expected with `VTableTree` ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─rtables::build_table(lyt, iris) at test-report_null.R:10:3 2. └─rtables::update_ref_indexing(tab) 3. ├─formatters::make_row_df(tt) 4. └─rtables::make_row_df(tt) 5. └─rtables (local) .local(...) 6. ├─formatters::make_row_df(...) 7. └─rtables::make_row_df(...) 8. └─rtables (local) .local(...) 9. ├─formatters::pagdfrow(...) 10. │ └─base::data.frame(...) 11. ├─formatters::nlines(...) 12. └─rtables::nlines(...) 13. ├─base::as.vector(get_formatted_cells(x)) 14. ├─rtables::get_formatted_cells(x) 15. └─rtables::get_formatted_cells(x) 16. ├─base::matrix(...) 17. ├─base::unlist(...) 18. └─base::Map(...) 19. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 20. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 21. └─rtables::format_rcell(...) 22. └─formatters::format_value(...) 23. └─base::match.arg(round_type) ── Error ('test-rmpt01.R:5:3'): rmpt01 function with default argument value return expected result with test data ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─chevron::rmpt01_main(pre_data) at test-rmpt01.R:5:3 2. └─rtables::build_table(lyt, adam_db$adex, alt_counts_df = adam_db$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) ``(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-rmpt01.R:17:3'): rmpt01 can handle NA values ─────────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(rmpt01, proc_data)) at test-rmpt01.R:17: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. ├─chevron::run(rmpt01, proc_data) 10. ├─chevron::run(rmpt01, proc_data) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db) 14. └─rtables::build_table(lyt, adam_db$adex, alt_counts_df = adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 18. └─rtables (local) .local(...) 19. ├─formatters::make_row_df(...) 20. └─rtables::make_row_df(...) 21. └─rtables (local) .local(...) 22. ├─formatters::pagdfrow(...) 23. │ └─base::data.frame(...) 24. ├─formatters::nlines(...) 25. └─rtables::nlines(...) 26. ├─base::as.vector(get_formatted_cells(x)) 27. ├─rtables::get_formatted_cells(x) 28. └─rtables::get_formatted_cells(x) 29. ├─base::matrix(...) 30. ├─base::unlist(...) 31. └─base::Map(...) 32. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 33. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 34. └─rtables::format_rcell(...) 35. └─formatters::format_value(...) 36. └─base::match.arg(round_type) ── Error ('test-rmpt01.R:32:3'): rmpt01 can handle some NA values ────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(rmpt01, proc_data)) at test-rmpt01.R:32: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. ├─chevron::run(rmpt01, proc_data) 10. ├─chevron::run(rmpt01, proc_data) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db) 14. └─rtables::build_table(lyt, adam_db$adex, alt_counts_df = adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 18. └─rtables (local) .local(...) 19. ├─formatters::make_row_df(...) 20. └─rtables::make_row_df(...) 21. └─rtables (local) .local(...) 22. ├─formatters::pagdfrow(...) 23. │ └─base::data.frame(...) 24. ├─formatters::nlines(...) 25. └─rtables::nlines(...) 26. ├─base::as.vector(get_formatted_cells(x)) 27. ├─rtables::get_formatted_cells(x) 28. └─rtables::get_formatted_cells(x) 29. ├─base::matrix(...) 30. ├─base::unlist(...) 31. └─base::Map(...) 32. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 33. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 34. └─rtables::format_rcell(...) 35. └─formatters::format_value(...) 36. └─base::match.arg(round_type) ── Error ('test-rmpt03.R:8:3'): rmpt03 function with default argument value return expected result with test data ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─chevron::rmpt03_main(pre_data) at test-rmpt03.R:8:3 2. └─rtables::build_table(lyt, adam_db$adex, alt_counts_df = adam_db$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) ``(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-rmpt03.R:22:3'): rmpt03 can handle NA values ─────────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(rmpt03, proc_data)) at test-rmpt03.R:22: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. ├─chevron::run(rmpt03, proc_data) 10. ├─chevron::run(rmpt03, proc_data) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db) 14. └─rtables::build_table(lyt, adam_db$adex, alt_counts_df = adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 18. └─rtables (local) .local(...) 19. ├─formatters::make_row_df(...) 20. └─rtables::make_row_df(...) 21. └─rtables (local) .local(...) 22. ├─formatters::pagdfrow(...) 23. │ └─base::data.frame(...) 24. ├─formatters::nlines(...) 25. └─rtables::nlines(...) 26. ├─base::as.vector(get_formatted_cells(x)) 27. ├─rtables::get_formatted_cells(x) 28. └─rtables::get_formatted_cells(x) 29. ├─base::matrix(...) 30. ├─base::unlist(...) 31. └─base::Map(...) 32. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 33. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 34. └─rtables::format_rcell(...) 35. └─formatters::format_value(...) 36. └─base::match.arg(round_type) ── Error ('test-rmpt03.R:39:3'): rmpt03 can handle some NA values ────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(rmpt03, proc_data)) at test-rmpt03.R:39: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. ├─chevron::run(rmpt03, proc_data) 10. ├─chevron::run(rmpt03, proc_data) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db) 14. └─rtables::build_table(lyt, adam_db$adex, alt_counts_df = adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 18. └─rtables (local) .local(...) 19. ├─formatters::make_row_df(...) 20. └─rtables::make_row_df(...) 21. └─rtables (local) .local(...) 22. ├─formatters::pagdfrow(...) 23. │ └─base::data.frame(...) 24. ├─formatters::nlines(...) 25. └─rtables::nlines(...) 26. ├─base::as.vector(get_formatted_cells(x)) 27. ├─rtables::get_formatted_cells(x) 28. └─rtables::get_formatted_cells(x) 29. ├─base::matrix(...) 30. ├─base::unlist(...) 31. └─base::Map(...) 32. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 33. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 34. └─rtables::format_rcell(...) 35. └─formatters::format_value(...) 36. └─base::match.arg(round_type) ── Error ('test-rmpt04.R:5:3'): rmpt04 function with default argument value return expected result with test data ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─chevron::rmpt04_main(pre_data) at test-rmpt04.R:5:3 2. └─rtables::build_table(lyt, adam_db$adex, alt_counts_df = adam_db$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) ``(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-rmpt04.R:17:3'): rmpt04 can handle NA values ─────────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(rmpt04, proc_data)) at test-rmpt04.R:17: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. ├─chevron::run(rmpt04, proc_data) 10. ├─chevron::run(rmpt04, proc_data) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db) 14. └─rtables::build_table(lyt, adam_db$adex, alt_counts_df = adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 18. └─rtables (local) .local(...) 19. ├─formatters::make_row_df(...) 20. └─rtables::make_row_df(...) 21. └─rtables (local) .local(...) 22. ├─formatters::pagdfrow(...) 23. │ └─base::data.frame(...) 24. ├─formatters::nlines(...) 25. └─rtables::nlines(...) 26. ├─base::as.vector(get_formatted_cells(x)) 27. ├─rtables::get_formatted_cells(x) 28. └─rtables::get_formatted_cells(x) 29. ├─base::matrix(...) 30. ├─base::unlist(...) 31. └─base::Map(...) 32. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 33. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 34. └─rtables::format_rcell(...) 35. └─formatters::format_value(...) 36. └─base::match.arg(round_type) ── Error ('test-rmpt04.R:35:3'): rmpt04 can handle some NA values ────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(rmpt04, proc_data)) at test-rmpt04.R:35: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. ├─chevron::run(rmpt04, proc_data) 10. ├─chevron::run(rmpt04, proc_data) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db) 14. └─rtables::build_table(lyt, adam_db$adex, alt_counts_df = adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 18. └─rtables (local) .local(...) 19. ├─formatters::make_row_df(...) 20. └─rtables::make_row_df(...) 21. └─rtables (local) .local(...) 22. ├─formatters::pagdfrow(...) 23. │ └─base::data.frame(...) 24. ├─formatters::nlines(...) 25. └─rtables::nlines(...) 26. ├─base::as.vector(get_formatted_cells(x)) 27. ├─rtables::get_formatted_cells(x) 28. └─rtables::get_formatted_cells(x) 29. ├─base::matrix(...) 30. ├─base::unlist(...) 31. └─base::Map(...) 32. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 33. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 34. └─rtables::format_rcell(...) 35. └─formatters::format_value(...) 36. └─base::match.arg(round_type) ── Error ('test-rmpt05.R:5:3'): rmpt05 function with default argument value return expected result with test data ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─chevron::rmpt05_main(pre_data) at test-rmpt05.R:5:3 2. └─rtables::build_table(lyt, adam_db$adex, alt_counts_df = adam_db$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) ``(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-rmpt05.R:17:3'): rmpt05 can handle NA values ─────────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(rmpt05, proc_data)) at test-rmpt05.R:17: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. ├─chevron::run(rmpt05, proc_data) 10. ├─chevron::run(rmpt05, proc_data) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db) 14. └─rtables::build_table(lyt, adam_db$adex, alt_counts_df = adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 18. └─rtables (local) .local(...) 19. ├─formatters::make_row_df(...) 20. └─rtables::make_row_df(...) 21. └─rtables (local) .local(...) 22. ├─formatters::pagdfrow(...) 23. │ └─base::data.frame(...) 24. ├─formatters::nlines(...) 25. └─rtables::nlines(...) 26. ├─base::as.vector(get_formatted_cells(x)) 27. ├─rtables::get_formatted_cells(x) 28. └─rtables::get_formatted_cells(x) 29. ├─base::matrix(...) 30. ├─base::unlist(...) 31. └─base::Map(...) 32. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 33. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 34. └─rtables::format_rcell(...) 35. └─formatters::format_value(...) 36. └─base::match.arg(round_type) ── Error ('test-rmpt05.R:35:3'): rmpt05 can handle some NA values ────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(rmpt05, proc_data)) at test-rmpt05.R:35: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. ├─chevron::run(rmpt05, proc_data) 10. ├─chevron::run(rmpt05, proc_data) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db) 14. └─rtables::build_table(lyt, adam_db$adex, alt_counts_df = adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 18. └─rtables (local) .local(...) 19. ├─formatters::make_row_df(...) 20. └─rtables::make_row_df(...) 21. └─rtables (local) .local(...) 22. ├─formatters::pagdfrow(...) 23. │ └─base::data.frame(...) 24. ├─formatters::nlines(...) 25. └─rtables::nlines(...) 26. ├─base::as.vector(get_formatted_cells(x)) 27. ├─rtables::get_formatted_cells(x) 28. └─rtables::get_formatted_cells(x) 29. ├─base::matrix(...) 30. ├─base::unlist(...) 31. └─base::Map(...) 32. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 33. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 34. └─rtables::format_rcell(...) 35. └─formatters::format_value(...) 36. └─base::match.arg(round_type) ── Error ('test-rmpt06.R:4:3'): rmpt06 works as expected ─────────────────────── Error in `h(simpleError(msg, call))`: error in evaluating the argument 'tlg' in selecting a method for function 'report_null': 'arg' must be of length 1 Backtrace: ▆ 1. ├─rmpt06_pre(syn_data) %>% rmpt06_main() %>% rmpt01_post() at test-rmpt06.R:4:3 2. ├─chevron::rmpt01_post(.) 3. │ └─chevron::std_postprocessing(tlg) 4. │ └─chevron::report_null(tlg, ...) 5. ├─chevron::rmpt06_main(.) 6. │ └─rtables::build_table(lyt$adsl, adam_db$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::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) ``(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) 29. │ └─base::stop(gettextf("'%s' must be of length 1", "arg"), domain = NA) 30. └─base::.handleSimpleError(...) 31. └─base (local) h(simpleError(msg, call)) ── Error ('test-rmpt06.R:13:3'): rmpt06 works as expected with show_diff = TRUE ── Error in `h(simpleError(msg, call))`: error in evaluating the argument 'tlg' in selecting a method for function 'report_null': 'arg' must be of length 1 Backtrace: ▆ 1. ├─... %>% rmpt01_post() at test-rmpt06.R:13:3 2. ├─chevron::rmpt01_post(.) 3. │ └─chevron::std_postprocessing(tlg) 4. │ └─chevron::report_null(tlg, ...) 5. ├─chevron::rmpt06_main(., show_diff = TRUE) 6. │ └─rtables::build_table(lyt$adsl, adam_db$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) ``(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) 32. │ └─base::stop(gettextf("'%s' must be of length 1", "arg"), domain = NA) 33. └─base::.handleSimpleError(...) 34. └─base (local) h(simpleError(msg, call)) ── Error ('test-rmpt06.R:30:3'): rmpt06 can handle all NA values ─────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(rmpt06, proc_data)) at test-rmpt06.R:30: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. ├─chevron::run(rmpt06, proc_data) 10. ├─chevron::run(rmpt06, proc_data) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db) 14. └─rtables::build_table(lyt$adsl, adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 18. └─rtables (local) .local(...) 19. ├─formatters::make_row_df(...) 20. └─rtables::make_row_df(...) 21. └─rtables (local) .local(...) 22. ├─formatters::pagdfrow(...) 23. │ └─base::data.frame(...) 24. ├─formatters::nlines(...) 25. └─rtables::nlines(...) 26. ├─base::as.vector(get_formatted_cells(x)) 27. ├─rtables::get_formatted_cells(x) 28. └─rtables::get_formatted_cells(x) 29. ├─base::matrix(...) 30. ├─base::unlist(...) 31. └─base::Map(...) 32. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 33. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 34. └─rtables::format_rcell(...) 35. └─formatters::format_value(...) 36. └─base::match.arg(round_type) ── Error ('test-rspt01.R:4:3'): rspt01 works as expected ─────────────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(...) at test-rspt01.R:4: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. └─chevron::rspt01_main(pre_data, dataset = "adrs", methods = list(diff_pval_method = "fisher")) 10. └─rtables::build_table(lyt, adam_db[[dataset]], alt_counts_df = adam_db$adsl) 11. └─rtables::update_ref_indexing(tab) 12. ├─formatters::make_row_df(tt) 13. └─rtables::make_row_df(tt) 14. └─rtables (local) .local(...) 15. ├─formatters::make_row_df(...) 16. └─rtables::make_row_df(...) 17. └─rtables (local) .local(...) 18. ├─formatters::make_row_df(...) 19. └─rtables::make_row_df(...) 20. └─rtables (local) .local(...) 21. ├─formatters::make_row_df(...) 22. └─rtables::make_row_df(...) 23. └─rtables (local) .local(...) 24. ├─formatters::pagdfrow(...) 25. │ └─base::data.frame(...) 26. ├─formatters::nlines(...) 27. └─rtables::nlines(...) 28. ├─base::as.vector(get_formatted_cells(x)) 29. ├─rtables::get_formatted_cells(x) 30. └─rtables::get_formatted_cells(x) 31. ├─base::matrix(...) 32. ├─base::unlist(...) 33. └─base::Map(...) 34. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 35. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 36. └─rtables::format_rcell(...) 37. └─formatters::format_value(...) 38. └─base::match.arg(round_type) ── Error ('test-rspt01.R:11:3'): rspt01 works as expected for stratified and unstratified analysis ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(...) at test-rspt01.R:11: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. ├─chevron::run(...) 10. ├─chevron::run(...) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(...) 14. └─rtables::build_table(lyt, adam_db[[dataset]], alt_counts_df = adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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) ``(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-rspt01.R:32:3'): rspt01 works as expected for unstratified analysis only ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(...) at test-rspt01.R:32: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. ├─chevron::run(...) 10. ├─chevron::run(...) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(...) 14. └─rtables::build_table(lyt, adam_db[[dataset]], alt_counts_df = adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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) ``(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-rspt01.R:51:3'): rspt01 works as expected for stratified analysis only ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(...) at test-rspt01.R:51: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. ├─chevron::run(...) 10. ├─chevron::run(...) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(...) 14. └─rtables::build_table(lyt, adam_db[[dataset]], alt_counts_df = adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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) ``(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-rspt01.R:72:3'): rspt01 works if change reference group ──────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(...) at test-rspt01.R:72: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. ├─chevron::run(...) 10. ├─chevron::run(...) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(...) 14. └─rtables::build_table(lyt, adam_db[[dataset]], alt_counts_df = adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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) ``(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-rspt01.R:93:3'): rspt01 works if change statistic methods ────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(...) at test-rspt01.R:93: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. ├─chevron::run(...) 10. ├─chevron::run(...) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(...) 14. └─rtables::build_table(lyt, adam_db[[dataset]], alt_counts_df = adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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) ``(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-rspt01.R:123:3'): rspt01 works if change confidence interval ─── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(...) at test-rspt01.R:123: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. ├─chevron::run(...) 10. ├─chevron::run(...) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(...) 14. └─rtables::build_table(lyt, adam_db[[dataset]], alt_counts_df = adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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) ``(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-ttet01.R:4:3'): ttet01 works as expected ─────────────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(...) at test-ttet01.R:4: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. └─chevron::ttet01_main(...) 10. └─rtables::build_table(lyt, anl) 11. └─rtables::update_ref_indexing(tab) 12. ├─formatters::make_row_df(tt) 13. └─rtables::make_row_df(tt) 14. └─rtables (local) .local(...) 15. ├─formatters::make_row_df(...) 16. └─rtables::make_row_df(...) 17. └─rtables (local) .local(...) 18. ├─formatters::make_row_df(...) 19. └─rtables::make_row_df(...) 20. └─rtables (local) .local(...) 21. ├─formatters::pagdfrow(...) 22. │ └─base::data.frame(...) 23. ├─formatters::nlines(...) 24. └─rtables::nlines(...) 25. ├─base::as.vector(get_formatted_cells(x)) 26. ├─rtables::get_formatted_cells(x) 27. └─rtables::get_formatted_cells(x) 28. ├─base::matrix(...) 29. ├─base::unlist(...) 30. └─base::Map(...) 31. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 32. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 33. └─rtables::format_rcell(...) 34. └─formatters::format_value(...) 35. └─base::match.arg(round_type) ── Error ('test-ttet01.R:28:3'): ttet01 works as expected for stratified and unstratified analysis ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(...) at test-ttet01.R:28: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. ├─chevron::run(...) 10. ├─chevron::run(...) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(...) 14. └─rtables::build_table(lyt, anl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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::pagdfrow(...) 26. │ └─base::data.frame(...) 27. ├─formatters::nlines(...) 28. └─rtables::nlines(...) 29. ├─base::as.vector(get_formatted_cells(x)) 30. ├─rtables::get_formatted_cells(x) 31. └─rtables::get_formatted_cells(x) 32. ├─base::matrix(...) 33. ├─base::unlist(...) 34. └─base::Map(...) 35. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 36. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 37. └─rtables::format_rcell(...) 38. └─formatters::format_value(...) 39. └─base::match.arg(round_type) ── Error ('test-ttet01.R:50:3'): ttet01 works as expected for stratified analysis only ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(...) at test-ttet01.R:50: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. ├─chevron::run(...) 10. ├─chevron::run(...) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(...) 14. └─rtables::build_table(lyt, anl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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::pagdfrow(...) 26. │ └─base::data.frame(...) 27. ├─formatters::nlines(...) 28. └─rtables::nlines(...) 29. ├─base::as.vector(get_formatted_cells(x)) 30. ├─rtables::get_formatted_cells(x) 31. └─rtables::get_formatted_cells(x) 32. ├─base::matrix(...) 33. ├─base::unlist(...) 34. └─base::Map(...) 35. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 36. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 37. └─rtables::format_rcell(...) 38. └─formatters::format_value(...) 39. └─base::match.arg(round_type) ── Error ('test-ttet01.R:73:3'): ttet01 works if change reference group ──────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(...) at test-ttet01.R:73: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. ├─chevron::run(...) 10. ├─chevron::run(...) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(...) 14. └─rtables::build_table(lyt, anl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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::pagdfrow(...) 26. │ └─base::data.frame(...) 27. ├─formatters::nlines(...) 28. └─rtables::nlines(...) 29. ├─base::as.vector(get_formatted_cells(x)) 30. ├─rtables::get_formatted_cells(x) 31. └─rtables::get_formatted_cells(x) 32. ├─base::matrix(...) 33. ├─base::unlist(...) 34. └─base::Map(...) 35. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 36. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 37. └─rtables::format_rcell(...) 38. └─formatters::format_value(...) 39. └─base::match.arg(round_type) ── Error ('test-utils.R:76:1'): (code run outside of `test_that()`) ──────────── 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(res1) at test-utils.R:76:1 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) ``(``) 25. │ └─rtables (local) ``(``) 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) ``(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) ``(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-vst01.R:9:3'): vst01 functions with default argument value return expected result with test data ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─chevron::vst01_main(pre_data) at test-vst01.R:9:3 2. └─rtables::build_table(lyt, df = adam_db[[dataset]], alt_counts_df = adam_db$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::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::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::pagdfrow(...) 23. │ └─base::data.frame(...) 24. ├─formatters::nlines(...) 25. └─rtables::nlines(...) 26. ├─base::as.vector(get_formatted_cells(x)) 27. ├─rtables::get_formatted_cells(x) 28. └─rtables::get_formatted_cells(x) 29. ├─base::matrix(...) 30. ├─base::unlist(...) 31. └─base::Map(...) 32. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 33. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 34. └─rtables::format_rcell(...) 35. └─formatters::format_value(...) 36. └─base::match.arg(round_type) ── Error ('test-vst01.R:22:3'): run vst01 works as expected ──────────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(run(vst01, proc_data, precision = list(default = 0))) at test-vst01.R:22: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. ├─chevron::run(vst01, proc_data, precision = list(default = 0)) 10. ├─chevron::run(vst01, proc_data, precision = list(default = 0)) 11. │ └─chevron:::do_call(object@main, c(proc_data, user_args)) 12. │ └─base::do.call(what, new_args, envir = args_env) 13. └─chevron (local) ``(adam_db = adam_db, precision = precision) 14. └─rtables::build_table(lyt, df = adam_db[[dataset]], alt_counts_df = adam_db$adsl) 15. └─rtables::update_ref_indexing(tab) 16. ├─formatters::make_row_df(tt) 17. └─rtables::make_row_df(tt) 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::make_row_df(...) 29. └─rtables::make_row_df(...) 30. └─rtables (local) .local(...) 31. ├─formatters::make_row_df(...) 32. └─rtables::make_row_df(...) 33. └─rtables (local) .local(...) 34. ├─formatters::pagdfrow(...) 35. │ └─base::data.frame(...) 36. ├─formatters::nlines(...) 37. └─rtables::nlines(...) 38. ├─base::as.vector(get_formatted_cells(x)) 39. ├─rtables::get_formatted_cells(x) 40. └─rtables::get_formatted_cells(x) 41. ├─base::matrix(...) 42. ├─base::unlist(...) 43. └─base::Map(...) 44. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 45. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 46. └─rtables::format_rcell(...) 47. └─formatters::format_value(...) 48. └─base::match.arg(round_type) ── Error ('test-vst02.R:5:3'): vst02 functions with default argument value return expected result with test data ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─chevron::vst02_1_main(pre_data) at test-vst02.R:5:3 2. └─rtables::build_table(lyt, adam_db$advs, alt_counts_df = adam_db$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::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) ``(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-vst02.R:13:3'): vst02 functions return expected result with test data when excluding subject with baseline abnormality ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─chevron::vst02_2_main(pre_data) at test-vst02.R:13:3 2. └─rtables::build_table(lyt, adam_db$advs, alt_counts_df = adam_db$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::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) ``(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) [ FAIL 198 | WARN 0 | SKIP 10 | PASS 208 ] Deleting unused snapshots: 'mng01/mng01-with-custom-theme.svg', 'mng01/mng01-with-default-value.new.svg', 'mng01/mng01-with-default-value.svg', 'mng01/run-mng01-with-combination-of-x-variables.svg', 'mng01/run-mng01-with-custom-color-set.svg', 'mng01/run-mng01-with-custom-line-type-set.svg', 'mng01/run-mng01-with-custom-unnamed-color-set.svg', 'mng01/run-mng01-with-custom-unnamed-line-type-set.svg', 'mng01/run-mng01-with-jitter.svg', and 'mng01/run-mng01-with-numeric-x-variables.svg' Error: ! Test failures. Execution halted Package: rlistings Check: examples New result: ERROR Running examples in ‘rlistings-Ex.R’ failed The error most likely occurred in: > base::assign(".ptime", proc.time(), pos = "CheckExEnv") > ### Name: as_listing > ### Title: Create a listing from a 'data.frame' or 'tibble' > ### Aliases: as_listing spanning_col_label_df spanning_col_label_df<- > ### as_keycol is_keycol get_keycols listing_dispcols add_listing_dispcol > ### listing_dispcols<- align_colnames align_colnames<- add_listing_col > > ### ** Examples > > dat <- ex_adae > > # This example demonstrates the listing with key_cols (values are grouped by USUBJID) and > # multiple lines in prov_footer > lsting <- as_listing(dat[1:25, ], + key_cols = c("USUBJID", "AESOC"), + main_title = "Example Title for Listing", + subtitles = "This is the subtitle for this Adverse Events Table", + main_footer = "Main footer for the listing", + prov_footer = c( + "You can even add a subfooter", "Second element is place on a new line", + "Third string" + ) + ) %>% + add_listing_col("AETOXGR") %>% + add_listing_col("BMRKR1", format = "xx.x") %>% + add_listing_col("AESER / AREL", fun = function(df) paste(df$AESER, df$AREL, sep = " / ")) > > mat <- matrix_form(lsting) Error in match.arg(round_type) : 'arg' must be of length 1 Calls: matrix_form ... matrix_form -> .local -> vapply -> FUN -> match.arg Execution halted Package: rlistings Check: re-building of vignette outputs New result: ERROR Error(s) in re-building vignettes: ... --- re-building ‘col_formatting.Rmd’ using rmarkdown Quitting from col_formatting.Rmd:76-84 [unnamed-chunk-4] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error in `h()`: ! error in evaluating the argument 'x' in selecting a method for function 'toString': 'arg' must be of length 1 --- Backtrace: ▆ 1. └─tools:::.buildOneVignette(...) 2. ├─base::tryCatch(...) 3. │ └─base (local) tryCatchList(expr, classes, parentenv, handlers) 4. │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]]) 5. │ └─base (local) doTryCatch(return(expr), name, parentenv, handler) 6. └─engine$weave(file, quiet = quiet, encoding = enc) 7. └─knitr:::vweave_rmarkdown(...) 8. └─rmarkdown::render(...) 9. └─knitr::knit(knit_input, knit_output, envir = envir, quiet = quiet) 10. └─knitr:::process_file(text, output) 11. ├─xfun:::handle_error(...) 12. ├─base::withCallingHandlers(...) 13. └─knitr:::process_group(group) 14. └─knitr:::call_block(x) 15. └─knitr:::block_exec(params) 16. └─knitr:::eng_r(options) 17. ├─knitr:::in_input_dir(...) 18. │ └─knitr:::in_dir(input_dir(), expr) 19. └─knitr (local) evaluate(...) 20. └─evaluate::evaluate(...) 21. ├─base::withRestarts(...) 22. │ └─base (local) withRestartList(expr, restarts) 23. │ ├─base (local) withOneRestart(withRestartList(expr, restarts[-nr]), restarts[[nr]]) 24. │ │ └─base (local) doWithOneRestart(return(expr), restart) 25. │ └─base (local) withRestartList(expr, restarts[-nr]) 26. │ └─base (local) withOneRestart(expr, restarts[[1L]]) 27. │ └─base (local) doWithOneRestart(return(expr), restart) 28. ├─evaluate:::with_handlers(...) 29. │ ├─base::eval(call) 30. │ │ └─base::eval(call) 31. │ └─base::withCallingHandlers(...) 32. └─watcher$print_value(ev$value, ev$visible, envir) 33. ├─base::withVisible(handle_value(handler, value, visible, envir)) 34. └─evaluate:::handle_value(handler, value, visible, envir) 35. └─handler$value(value, visible) 36. └─knitr (local) fun(x, options = options) 37. ├─base::withVisible(knit_print(x, ...)) 38. ├─knitr::knit_print(x, ...) 39. └─rmarkdown:::knit_print.data.frame(x, ...) 40. ├─context$df_print(x) 41. └─rlistings:::print.listing_df(x) 42. └─base::tryCatch(...) 43. └─base (local) tryCatchList(expr, classes, parentenv, handlers) 44. └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]]) 45. └─value[[3L]](cond) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error: processing vignette 'col_formatting.Rmd' failed with diagnostics: error in evaluating the argument 'x' in selecting a method for function 'toString': 'arg' must be of length 1 --- failed re-building ‘col_formatting.Rmd’ --- re-building ‘large_list.Rmd’ using rmarkdown [WARNING] Deprecated: --highlight-style. Use --syntax-highlighting instead. --- finished re-building ‘large_list.Rmd’ --- re-building ‘pagination.Rmd’ using rmarkdown Quitting from pagination.Rmd:64-74 [unnamed-chunk-5] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error in `h()`: ! error in evaluating the argument 'x' in selecting a method for function 'toString': 'arg' must be of length 1 --- Backtrace: ▆ 1. └─tools:::.buildOneVignette(...) 2. ├─base::tryCatch(...) 3. │ └─base (local) tryCatchList(expr, classes, parentenv, handlers) 4. │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]]) 5. │ └─base (local) doTryCatch(return(expr), name, parentenv, handler) 6. └─engine$weave(file, quiet = quiet, encoding = enc) 7. └─knitr:::vweave_rmarkdown(...) 8. └─rmarkdown::render(...) 9. └─knitr::knit(knit_input, knit_output, envir = envir, quiet = quiet) 10. └─knitr:::process_file(text, output) 11. ├─xfun:::handle_error(...) 12. ├─base::withCallingHandlers(...) 13. └─knitr:::process_group(group) 14. └─knitr:::call_block(x) 15. └─knitr:::block_exec(params) 16. └─knitr:::eng_r(options) 17. ├─knitr:::in_input_dir(...) 18. │ └─knitr:::in_dir(input_dir(), expr) 19. └─knitr (local) evaluate(...) 20. └─evaluate::evaluate(...) 21. ├─base::withRestarts(...) 22. │ └─base (local) withRestartList(expr, restarts) 23. │ ├─base (local) withOneRestart(withRestartList(expr, restarts[-nr]), restarts[[nr]]) 24. │ │ └─base (local) doWithOneRestart(return(expr), restart) 25. │ └─base (local) withRestartList(expr, restarts[-nr]) 26. │ └─base (local) withOneRestart(expr, restarts[[1L]]) 27. │ └─base (local) doWithOneRestart(return(expr), restart) 28. ├─evaluate:::with_handlers(...) 29. │ ├─base::eval(call) 30. │ │ └─base::eval(call) 31. │ └─base::withCallingHandlers(...) 32. └─watcher$print_value(ev$value, ev$visible, envir) 33. ├─base::withVisible(handle_value(handler, value, visible, envir)) 34. └─evaluate:::handle_value(handler, value, visible, envir) 35. └─handler$value(value, visible) 36. └─knitr (local) fun(x, options = options) 37. ├─base::withVisible(knit_print(x, ...)) 38. ├─knitr::knit_print(x, ...) 39. └─rmarkdown:::knit_print.data.frame(x, ...) 40. ├─context$df_print(x) 41. └─rlistings:::print.listing_df(x) 42. └─base::tryCatch(...) 43. └─base (local) tryCatchList(expr, classes, parentenv, handlers) 44. └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]]) 45. └─value[[3L]](cond) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error: processing vignette 'pagination.Rmd' failed with diagnostics: error in evaluating the argument 'x' in selecting a method for function 'toString': 'arg' must be of length 1 --- failed re-building ‘pagination.Rmd’ --- re-building ‘ref_footnotes.Rmd’ using rmarkdown Quitting from ref_footnotes.Rmd:57-65 [unnamed-chunk-4] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error in `h()`: ! error in evaluating the argument 'x' in selecting a method for function 'toString': 'arg' must be of length 1 --- Backtrace: ▆ 1. └─tools:::.buildOneVignette(...) 2. ├─base::tryCatch(...) 3. │ └─base (local) tryCatchList(expr, classes, parentenv, handlers) 4. │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]]) 5. │ └─base (local) doTryCatch(return(expr), name, parentenv, handler) 6. └─engine$weave(file, quiet = quiet, encoding = enc) 7. └─knitr:::vweave_rmarkdown(...) 8. └─rmarkdown::render(...) 9. └─knitr::knit(knit_input, knit_output, envir = envir, quiet = quiet) 10. └─knitr:::process_file(text, output) 11. ├─xfun:::handle_error(...) 12. ├─base::withCallingHandlers(...) 13. └─knitr:::process_group(group) 14. └─knitr:::call_block(x) 15. └─knitr:::block_exec(params) 16. └─knitr:::eng_r(options) 17. ├─knitr:::in_input_dir(...) 18. │ └─knitr:::in_dir(input_dir(), expr) 19. └─knitr (local) evaluate(...) 20. └─evaluate::evaluate(...) 21. ├─base::withRestarts(...) 22. │ └─base (local) withRestartList(expr, restarts) 23. │ ├─base (local) withOneRestart(withRestartList(expr, restarts[-nr]), restarts[[nr]]) 24. │ │ └─base (local) doWithOneRestart(return(expr), restart) 25. │ └─base (local) withRestartList(expr, restarts[-nr]) 26. │ └─base (local) withOneRestart(expr, restarts[[1L]]) 27. │ └─base (local) doWithOneRestart(return(expr), restart) 28. ├─evaluate:::with_handlers(...) 29. │ ├─base::eval(call) 30. │ │ └─base::eval(call) 31. │ └─base::withCallingHandlers(...) 32. └─watcher$print_value(ev$value, ev$visible, envir) 33. ├─base::withVisible(handle_value(handler, value, visible, envir)) 34. └─evaluate:::handle_value(handler, value, visible, envir) 35. └─handler$value(value, visible) 36. └─knitr (local) fun(x, options = options) 37. ├─base::withVisible(knit_print(x, ...)) 38. ├─knitr::knit_print(x, ...) 39. └─rmarkdown:::knit_print.data.frame(x, ...) 40. ├─context$df_print(x) 41. └─rlistings:::print.listing_df(x) 42. └─base::tryCatch(...) 43. └─base (local) tryCatchList(expr, classes, parentenv, handlers) 44. └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]]) 45. └─value[[3L]](cond) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error: processing vignette 'ref_footnotes.Rmd' failed with diagnostics: error in evaluating the argument 'x' in selecting a method for function 'toString': 'arg' must be of length 1 --- failed re-building ‘ref_footnotes.Rmd’ --- re-building ‘rlistings.Rmd’ using rmarkdown Quitting from rlistings.Rmd:91-98 [unnamed-chunk-4] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error in `h()`: ! error in evaluating the argument 'x' in selecting a method for function 'toString': 'arg' must be of length 1 --- Backtrace: ▆ 1. └─tools:::.buildOneVignette(...) 2. ├─base::tryCatch(...) 3. │ └─base (local) tryCatchList(expr, classes, parentenv, handlers) 4. │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]]) 5. │ └─base (local) doTryCatch(return(expr), name, parentenv, handler) 6. └─engine$weave(file, quiet = quiet, encoding = enc) 7. └─knitr:::vweave_rmarkdown(...) 8. └─rmarkdown::render(...) 9. └─knitr::knit(knit_input, knit_output, envir = envir, quiet = quiet) 10. └─knitr:::process_file(text, output) 11. ├─xfun:::handle_error(...) 12. ├─base::withCallingHandlers(...) 13. └─knitr:::process_group(group) 14. └─knitr:::call_block(x) 15. └─knitr:::block_exec(params) 16. └─knitr:::eng_r(options) 17. ├─knitr:::in_input_dir(...) 18. │ └─knitr:::in_dir(input_dir(), expr) 19. └─knitr (local) evaluate(...) 20. └─evaluate::evaluate(...) 21. ├─base::withRestarts(...) 22. │ └─base (local) withRestartList(expr, restarts) 23. │ ├─base (local) withOneRestart(withRestartList(expr, restarts[-nr]), restarts[[nr]]) 24. │ │ └─base (local) doWithOneRestart(return(expr), restart) 25. │ └─base (local) withRestartList(expr, restarts[-nr]) 26. │ └─base (local) withOneRestart(expr, restarts[[1L]]) 27. │ └─base (local) doWithOneRestart(return(expr), restart) 28. ├─evaluate:::with_handlers(...) 29. │ ├─base::eval(call) 30. │ │ └─base::eval(call) 31. │ └─base::withCallingHandlers(...) 32. └─watcher$print_value(ev$value, ev$visible, envir) 33. ├─base::withVisible(handle_value(handler, value, visible, envir)) 34. └─evaluate:::handle_value(handler, value, visible, envir) 35. └─handler$value(value, visible) 36. └─knitr (local) fun(x, options = options) 37. ├─base::withVisible(knit_print(x, ...)) 38. ├─knitr::knit_print(x, ...) 39. └─rmarkdown:::knit_print.data.frame(x, ...) 40. ├─context$df_print(x) 41. └─rlistings:::print.listing_df(x) 42. └─base::tryCatch(...) 43. └─base (local) tryCatchList(expr, classes, parentenv, handlers) 44. └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]]) 45. └─value[[3L]](cond) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error: processing vignette 'rlistings.Rmd' failed with diagnostics: error in evaluating the argument 'x' in selecting a method for function 'toString': 'arg' must be of length 1 --- failed re-building ‘rlistings.Rmd’ SUMMARY: processing the following files failed: ‘col_formatting.Rmd’ ‘pagination.Rmd’ ‘ref_footnotes.Rmd’ ‘rlistings.Rmd’ Error: Vignette re-building failed. Execution halted Package: rlistings Check: tests New result: ERROR Running ‘testthat.R’ [4s/4s] Running the tests in ‘tests/testthat.R’ failed. Complete output: > library(rlistings) Loading required package: formatters Attaching package: 'formatters' The following object is masked from 'package:base': %||% Loading required package: tibble > library(testthat) > > testthat::test_check("rlistings", reporter = "check") 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 Saving _problems/test-export-24.R Saving _problems/test-export-40.R Saving _problems/test-export-48.R Saving _problems/test-export-68.R Saving _problems/test-export-91.R Saving _problems/test-export-101.R Saving _problems/test-export-113.R Saving _problems/test-listings-8.R Saving _problems/test-listings-36.R Saving _problems/test-listings-106.R Saving _problems/test-listings-142.R Saving _problems/test-listings-225.R Saving _problems/test-listings-259.R Saving _problems/test-listings-281.R Saving _problems/test-listings-386.R Saving _problems/test-matrix_form-13.R Saving _problems/test-matrix_form-56.R Saving _problems/test-matrix_form-85.R Saving _problems/test-paginate_listing-16.R Saving _problems/test-paginate_listing-44.R Saving _problems/test-paginate_listing-107.R Saving _problems/test-paginate_listing-131.R Saving _problems/test-paginate_listing-144.R Saving _problems/test-paginate_listing-151.R Saving _problems/test-paginate_listing-162.R Saving _problems/test-paginate_listing-169.R Saving _problems/test-paginate_listing-176.R Saving _problems/test-paginate_listing-217.R Saving _problems/test-paginate_listing-256.R Saving _problems/test-paginate_listing-269.R Saving _problems/test-paginate_listing-306.R Saving _problems/test-paginate_listing-347.R Saving _problems/test-paginate_listing-401.R Saving _problems/test-print-5.R Saving _problems/test-print-18.R Saving _problems/test-print-37.R Saving _problems/test-print-77.R Saving _problems/test-print-140.R Saving _problems/test-print-158.R Saving _problems/test-print-172.R Saving _problems/test-print-207.R [ FAIL 44 | WARN 0 | SKIP 0 | PASS 24 ] ══ Failed tests ════════════════════════════════════════════════════════════════ ── Error ('test-export.R:6:5'): Listing print correctly ──────────────────────── Error in `obj_round_type(x)`: got a list that doesn't appear to contain (only) tables or listings Backtrace: ▆ 1. ├─testthat::expect_silent(...) at test-export.R:5: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. └─formatters::export_as_txt(lsting, file = NULL) at test-export.R:6:5 10. ├─formatters::paginate_to_mpfs(...) 11. │ ├─formatters::matrix_form(...) 12. │ └─rlistings::matrix_form(...) 13. │ └─rlistings (local) .local(...) 14. │ └─base::vapply(...) 15. │ └─formatters (local) FUN(X[[i]], ...) 16. │ └─base::match.arg(round_type) 17. ├─formatters::obj_round_type(x) 18. └─formatters::obj_round_type(x) ── Error ('test-export.R:24:3'): key columns repeat with export_as_txt ───────── Error in `obj_round_type(x)`: got a list that doesn't appear to contain (only) tables or listings Backtrace: ▆ 1. ├─base::suppressMessages(...) at test-export.R:24:3 2. │ └─base::withCallingHandlers(...) 3. └─formatters::export_as_txt(lsting, lpp = 4, verbose = TRUE, page_break = "\n") 4. ├─formatters::paginate_to_mpfs(...) 5. │ ├─formatters::matrix_form(...) 6. │ └─rlistings::matrix_form(...) 7. │ └─rlistings (local) .local(...) 8. │ └─base::vapply(...) 9. │ └─formatters (local) FUN(X[[i]], ...) 10. │ └─base::match.arg(round_type) 11. ├─formatters::obj_round_type(x) 12. └─formatters::obj_round_type(x) ── Error ('test-export.R:37:3'): key columns repeat with pagination with export_as_txt ── Error in `obj_round_type(x)`: got a list that doesn't appear to contain (only) tables or listings Backtrace: ▆ 1. └─formatters::export_as_txt(...) at test-export.R:37:3 2. ├─formatters::paginate_to_mpfs(...) 3. │ ├─formatters::matrix_form(...) 4. │ └─rlistings::matrix_form(...) 5. │ └─rlistings (local) .local(...) 6. │ └─base::vapply(...) 7. │ └─formatters (local) FUN(X[[i]], ...) 8. │ └─base::match.arg(round_type) 9. ├─formatters::obj_round_type(x) 10. └─formatters::obj_round_type(x) ── Error ('test-export.R:48:3'): Listing print correctly, with paginate ──────── Error in `obj_round_type(x)`: got a list that doesn't appear to contain (only) tables or listings Backtrace: ▆ 1. └─formatters::export_as_txt(...) at test-export.R:48:3 2. ├─formatters::paginate_to_mpfs(...) 3. │ ├─formatters::matrix_form(...) 4. │ └─rlistings::matrix_form(...) 5. │ └─rlistings (local) .local(...) 6. │ └─base::vapply(...) 7. │ └─formatters (local) FUN(X[[i]], ...) 8. │ └─base::match.arg(round_type) 9. ├─formatters::obj_round_type(x) 10. └─formatters::obj_round_type(x) ── Error ('test-export.R:68:3'): export_as_txt works and repeats the correct lines in pagination ── Error in `obj_round_type(obj)`: got a list that doesn't appear to contain (only) tables or listings Backtrace: ▆ 1. └─rlistings::paginate_listing(lsting, lpp = 33, cpp = 550, print_pages = FALSE) at test-export.R:68:3 2. └─formatters::paginate_to_mpfs(...) 3. ├─formatters::matrix_form(...) 4. ├─rlistings::matrix_form(...) 5. │ └─rlistings (local) .local(...) 6. │ └─base::vapply(...) 7. │ └─formatters (local) FUN(X[[i]], ...) 8. │ └─base::match.arg(round_type) 9. ├─formatters::obj_round_type(obj) 10. └─formatters::obj_round_type(obj) ── Error ('test-export.R:91:3'): export_as_txt works with split_into_pages_by_var ── Error in `obj_round_type(obj[[1]])`: got a list that doesn't appear to contain (only) tables or listings Backtrace: ▆ 1. └─formatters::export_as_txt(...) at test-export.R:91:3 2. ├─formatters::paginate_to_mpfs(...) 3. │ ├─base::unlist(...) 4. │ └─base::lapply(...) 5. │ └─formatters (local) FUN(X[[i]], ...) 6. │ └─base::eval(cur_call, envir = parent.frame(3L)) 7. │ └─base::eval(cur_call, envir = parent.frame(3L)) 8. ├─formatters::paginate_to_mpfs(...) 9. │ ├─formatters::matrix_form(...) 10. │ └─rlistings::matrix_form(...) 11. │ └─rlistings (local) .local(...) 12. │ └─base::vapply(...) 13. │ └─formatters (local) FUN(X[[i]], ...) 14. │ └─base::match.arg(round_type) 15. ├─formatters::obj_round_type(x) 16. └─formatters::obj_round_type(x) 17. ├─formatters::obj_round_type(obj[[1]]) 18. └─formatters::obj_round_type(obj[[1]]) ── Error ('test-export.R:101:3'): export_as_txt works with empty listings ────── Error in `obj_round_type(x)`: got a list that doesn't appear to contain (only) tables or listings Backtrace: ▆ 1. └─formatters::export_as_txt(lsting) at test-export.R:101:3 2. ├─formatters::paginate_to_mpfs(...) 3. │ ├─formatters::matrix_form(...) 4. │ └─rlistings::matrix_form(...) 5. │ └─rlistings (local) .local(...) 6. │ └─base::vapply(...) 7. │ └─formatters (local) FUN(X[[i]], ...) 8. │ └─base::match.arg(round_type) 9. ├─formatters::obj_round_type(x) 10. └─formatters::obj_round_type(x) ── Error ('test-export.R:113:3'): export_as_txt works with listings with all key cols ── Error in `obj_round_type(x)`: got a list that doesn't appear to contain (only) tables or listings Backtrace: ▆ 1. └─formatters::export_as_txt(lsting) at test-export.R:113:3 2. ├─formatters::paginate_to_mpfs(...) 3. │ ├─formatters::matrix_form(...) 4. │ └─rlistings::matrix_form(...) 5. │ └─rlistings (local) .local(...) 6. │ └─base::vapply(...) 7. │ └─formatters (local) FUN(X[[i]], ...) 8. │ └─base::match.arg(round_type) 9. ├─formatters::obj_round_type(x) 10. └─formatters::obj_round_type(x) ── Error ('test-listings.R:8:3'): Column labels are the same ─────────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─formatters::matrix_form(lsting) at test-listings.R:8:3 2. └─rlistings::matrix_form(lsting) 3. └─rlistings (local) .local(...) 4. └─base::vapply(...) 5. └─formatters (local) FUN(X[[i]], ...) 6. └─base::match.arg(round_type) ── Error ('test-listings.R:36:3'): listings work well with different formats and attributes ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─formatters::matrix_form(lsting) at test-listings.R:36:3 2. └─rlistings::matrix_form(lsting) 3. └─rlistings (local) .local(...) 4. └─base::vapply(...) 5. └─formatters (local) FUN(X[[i]], ...) 6. └─base::match.arg(round_type) ── Error ('test-listings.R:106:3'): Content of listings supports newlines ────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─formatters::matrix_form(mylst) at test-listings.R:106:3 2. └─rlistings::matrix_form(mylst) 3. └─rlistings (local) .local(...) 4. └─base::vapply(...) 5. └─formatters (local) FUN(X[[i]], ...) 6. └─base::match.arg(round_type) ── Error ('test-listings.R:142:3'): column inclusion and ordering stuff ──────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─formatters::matrix_form(head(lsting)) at test-listings.R:142:3 2. └─rlistings::matrix_form(head(lsting)) 3. └─rlistings (local) .local(...) 4. └─base::vapply(...) 5. └─formatters (local) FUN(X[[i]], ...) 6. └─base::match.arg(round_type) ── Error ('test-listings.R:225:3'): unique_rows removes duplicate rows from listing ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─formatters::matrix_form(lsting) at test-listings.R:225:3 2. └─rlistings::matrix_form(lsting) 3. └─rlistings (local) .local(...) 4. └─base::vapply(...) 5. └─formatters (local) FUN(X[[i]], ...) 6. └─base::match.arg(round_type) ── Error ('test-listings.R:259:3'): as_listing custom format works in key cols ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_identical(...) at test-listings.R:259:3 2. │ └─testthat::quasi_label(enquo(object), label) 3. │ └─rlang::eval_bare(expr, quo_get_env(quo)) 4. ├─formatters::matrix_form(lsting) 5. └─rlistings::matrix_form(lsting) 6. └─rlistings (local) .local(...) 7. └─base::vapply(...) 8. └─formatters (local) FUN(X[[i]], ...) 9. └─base::match.arg(round_type) ── Error ('test-listings.R:273:3'): as_listing works with NA values in key cols ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_identical(...) at test-listings.R:273:3 2. │ └─testthat::quasi_label(enquo(object), label) 3. │ └─rlang::eval_bare(expr, quo_get_env(quo)) 4. ├─formatters::matrix_form(lsting) 5. └─rlistings::matrix_form(lsting) 6. └─rlistings (local) .local(...) 7. └─base::vapply(...) 8. └─formatters (local) FUN(X[[i]], ...) 9. └─base::match.arg(round_type) ── Error ('test-listings.R:383:3'): add_listing_col works with a function when a format is applied ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_identical(...) at test-listings.R:383:3 2. │ └─testthat::quasi_label(enquo(object), label) 3. │ └─rlang::eval_bare(expr, quo_get_env(quo)) 4. ├─formatters::matrix_form(lsting) 5. └─rlistings::matrix_form(lsting) 6. └─rlistings (local) .local(...) 7. └─base::vapply(...) 8. └─formatters (local) FUN(X[[i]], ...) 9. └─base::match.arg(round_type) ── Error ('test-matrix_form.R:13:3'): matrix_form keeps relevant information and structure about the listing ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─formatters::matrix_form(lsting) at test-matrix_form.R:13:3 2. └─rlistings::matrix_form(lsting) 3. └─rlistings (local) .local(...) 4. └─base::vapply(...) 5. └─formatters (local) FUN(X[[i]], ...) 6. └─base::match.arg(round_type) ── Error ('test-matrix_form.R:53:3'): matrix_form detects { or } in labels and sends meaningful error message ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_error(matrix_form(lsting), "Labels cannot contain") at test-matrix_form.R:53:3 2. │ └─testthat:::expect_condition_matching_(...) 3. │ └─testthat:::quasi_capture(...) 4. │ ├─testthat (local) .capture(...) 5. │ │ └─base::withCallingHandlers(...) 6. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo)) 7. ├─formatters::matrix_form(lsting) 8. └─rlistings::matrix_form(lsting) 9. └─rlistings (local) .local(...) 10. └─base::vapply(...) 11. └─formatters (local) FUN(X[[i]], ...) 12. └─base::match.arg(round_type) ── Error ('test-matrix_form.R:85:3'): align_colnames can change alignment for column titles ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─formatters::matrix_form(lsting) at test-matrix_form.R:85:3 2. └─rlistings::matrix_form(lsting) 3. └─rlistings (local) .local(...) 4. └─base::vapply(...) 5. └─formatters (local) FUN(X[[i]], ...) 6. └─base::match.arg(round_type) ── Error ('test-paginate_listing.R:16:3'): pagination works vertically ───────── Error in `obj_round_type(obj)`: got a list that doesn't appear to contain (only) tables or listings Backtrace: ▆ 1. ├─base::suppressMessages(...) at test-paginate_listing.R:16:3 2. │ └─base::withCallingHandlers(...) 3. └─rlistings::paginate_listing(...) 4. └─formatters::paginate_to_mpfs(...) 5. ├─formatters::matrix_form(...) 6. ├─rlistings::matrix_form(...) 7. │ └─rlistings (local) .local(...) 8. │ └─base::vapply(...) 9. │ └─formatters (local) FUN(X[[i]], ...) 10. │ └─base::match.arg(round_type) 11. ├─formatters::obj_round_type(obj) 12. └─formatters::obj_round_type(obj) ── Error ('test-paginate_listing.R:44:3'): horizontal pagination with 0 or 1 key column specified works correctly ── Error in `obj_round_type(obj)`: got a list that doesn't appear to contain (only) tables or listings Backtrace: ▆ 1. └─rlistings::paginate_listing(lsting, cpp = 70, print_pages = FALSE) at test-paginate_listing.R:44:3 2. └─formatters::paginate_to_mpfs(...) 3. ├─formatters::matrix_form(...) 4. ├─rlistings::matrix_form(...) 5. │ └─rlistings (local) .local(...) 6. │ └─base::vapply(...) 7. │ └─formatters (local) FUN(X[[i]], ...) 8. │ └─base::match.arg(round_type) 9. ├─formatters::obj_round_type(obj) 10. └─formatters::obj_round_type(obj) ── Error ('test-paginate_listing.R:107:3'): listing works with no vertical pagination ── Error in `obj_round_type(obj)`: got a list that doesn't appear to contain (only) tables or listings Backtrace: ▆ 1. └─rlistings::paginate_listing(lsting, lpp = NULL, print_pages = FALSE) at test-paginate_listing.R:107:3 2. └─formatters::paginate_to_mpfs(...) 3. ├─formatters::matrix_form(...) 4. ├─rlistings::matrix_form(...) 5. │ └─rlistings (local) .local(...) 6. │ └─base::vapply(...) 7. │ └─formatters (local) FUN(X[[i]], ...) 8. │ └─base::match.arg(round_type) 9. ├─formatters::obj_round_type(obj) 10. └─formatters::obj_round_type(obj) ── Error ('test-paginate_listing.R:131:3'): checking vertical pagination line calculation. ── Error in `obj_round_type(obj)`: got a list that doesn't appear to contain (only) tables or listings Backtrace: ▆ 1. └─rlistings::paginate_listing(lsting, lpp = 8, print_pages = FALSE) at test-paginate_listing.R:131:3 2. └─formatters::paginate_to_mpfs(...) 3. ├─formatters::matrix_form(...) 4. ├─rlistings::matrix_form(...) 5. │ └─rlistings (local) .local(...) 6. │ └─base::vapply(...) 7. │ └─formatters (local) FUN(X[[i]], ...) 8. │ └─base::match.arg(round_type) 9. ├─formatters::obj_round_type(obj) 10. └─formatters::obj_round_type(obj) ── Error ('test-paginate_listing.R:144:3'): pagination: lpp and cpp correctly computed for pg_width and pg_height ── Error in `obj_round_type(obj)`: got a list that doesn't appear to contain (only) tables or listings Backtrace: ▆ 1. └─rlistings::paginate_listing(lsting, lpp = 24, cpp = 135, print_pages = FALSE) at test-paginate_listing.R:144:3 2. └─formatters::paginate_to_mpfs(...) 3. ├─formatters::matrix_form(...) 4. ├─rlistings::matrix_form(...) 5. │ └─rlistings (local) .local(...) 6. │ └─base::vapply(...) 7. │ └─formatters (local) FUN(X[[i]], ...) 8. │ └─base::match.arg(round_type) 9. ├─formatters::obj_round_type(obj) 10. └─formatters::obj_round_type(obj) ── Error ('test-paginate_listing.R:151:3'): pagination: lpp and cpp correctly computed for page_type and font_size ── Error in `obj_round_type(obj)`: got a list that doesn't appear to contain (only) tables or listings Backtrace: ▆ 1. └─rlistings::paginate_listing(lsting, lpp = 69, cpp = 73, print_pages = FALSE) at test-paginate_listing.R:151:3 2. └─formatters::paginate_to_mpfs(...) 3. ├─formatters::matrix_form(...) 4. ├─rlistings::matrix_form(...) 5. │ └─rlistings (local) .local(...) 6. │ └─base::vapply(...) 7. │ └─formatters (local) FUN(X[[i]], ...) 8. │ └─base::match.arg(round_type) 9. ├─formatters::obj_round_type(obj) 10. └─formatters::obj_round_type(obj) ── Error ('test-paginate_listing.R:162:3'): pagination: lpp and cpp correctly computed for lineheight ── Error in `obj_round_type(obj)`: got a list that doesn't appear to contain (only) tables or listings Backtrace: ▆ 1. └─rlistings::paginate_listing(...) at test-paginate_listing.R:162:3 2. └─formatters::paginate_to_mpfs(...) 3. ├─formatters::matrix_form(...) 4. ├─rlistings::matrix_form(...) 5. │ └─rlistings (local) .local(...) 6. │ └─base::vapply(...) 7. │ └─formatters (local) FUN(X[[i]], ...) 8. │ └─base::match.arg(round_type) 9. ├─formatters::obj_round_type(obj) 10. └─formatters::obj_round_type(obj) ── Error ('test-paginate_listing.R:169:3'): pagination: lpp and cpp correctly computed for landscape ── Error in `obj_round_type(obj)`: got a list that doesn't appear to contain (only) tables or listings Backtrace: ▆ 1. └─rlistings::paginate_listing(...) at test-paginate_listing.R:169:3 2. └─formatters::paginate_to_mpfs(...) 3. ├─formatters::matrix_form(...) 4. ├─rlistings::matrix_form(...) 5. │ └─rlistings (local) .local(...) 6. │ └─base::vapply(...) 7. │ └─formatters (local) FUN(X[[i]], ...) 8. │ └─base::match.arg(round_type) 9. ├─formatters::obj_round_type(obj) 10. └─formatters::obj_round_type(obj) ── Error ('test-paginate_listing.R:176:3'): pagination: lpp and cpp correctly computed for margins ── Error in `obj_round_type(obj)`: got a list that doesn't appear to contain (only) tables or listings Backtrace: ▆ 1. └─rlistings::paginate_listing(...) at test-paginate_listing.R:176:3 2. └─formatters::paginate_to_mpfs(...) 3. ├─formatters::matrix_form(...) 4. ├─rlistings::matrix_form(...) 5. │ └─rlistings (local) .local(...) 6. │ └─base::vapply(...) 7. │ └─formatters (local) FUN(X[[i]], ...) 8. │ └─base::match.arg(round_type) 9. ├─formatters::obj_round_type(obj) 10. └─formatters::obj_round_type(obj) ── Error ('test-paginate_listing.R:187:3'): pagination works with col wrapping ── Error in `obj_round_type(obj)`: got a list that doesn't appear to contain (only) tables or listings Backtrace: ▆ 1. ├─testthat::expect_silent(...) at test-paginate_listing.R:187: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. └─rlistings::paginate_listing(...) 10. └─formatters::paginate_to_mpfs(...) 11. ├─formatters::matrix_form(...) 12. ├─rlistings::matrix_form(...) 13. │ └─rlistings (local) .local(...) 14. │ └─base::vapply(...) 15. │ └─formatters (local) FUN(X[[i]], ...) 16. │ └─base::match.arg(round_type) 17. ├─formatters::obj_round_type(obj) 18. └─formatters::obj_round_type(obj) ── Error ('test-paginate_listing.R:214:3'): pagination repeats keycols in other pages ── Error in `obj_round_type(obj)`: got a list that doesn't appear to contain (only) tables or listings Backtrace: ▆ 1. ├─testthat::expect_true(...) at test-paginate_listing.R:214:3 2. │ └─testthat::quasi_label(enquo(object), label) 3. │ └─rlang::eval_bare(expr, quo_get_env(quo)) 4. ├─base::grepl(...) 5. │ └─base::is.factor(x) 6. └─formatters::paginate_to_mpfs(lsting, lpp = 33, cpp = 550) 7. ├─formatters::matrix_form(...) 8. ├─rlistings::matrix_form(...) 9. │ └─rlistings (local) .local(...) 10. │ └─base::vapply(...) 11. │ └─formatters (local) FUN(X[[i]], ...) 12. │ └─base::match.arg(round_type) 13. ├─formatters::obj_round_type(obj) 14. └─formatters::obj_round_type(obj) ── Error ('test-paginate_listing.R:256:3'): pagination repeats keycols in other pages (longer test) ── Error in `obj_round_type(x)`: got a list that doesn't appear to contain (only) tables or listings Backtrace: ▆ 1. ├─lsting %>% ... at test-paginate_listing.R:256:3 2. └─formatters::export_as_txt(., tf_wrap = TRUE, lpp = 30, page_break = "\f") 3. ├─formatters::paginate_to_mpfs(...) 4. │ ├─formatters::matrix_form(...) 5. │ └─rlistings::matrix_form(...) 6. │ └─rlistings (local) .local(...) 7. │ └─base::vapply(...) 8. │ └─formatters (local) FUN(X[[i]], ...) 9. │ └─base::match.arg(round_type) 10. ├─formatters::obj_round_type(x) 11. └─formatters::obj_round_type(x) ── Error ('test-paginate_listing.R:269:3'): paginate_to_mpfs works with wrapping on keycols ── Error in `obj_round_type(obj)`: got a list that doesn't appear to contain (only) tables or listings Backtrace: ▆ 1. └─formatters::paginate_to_mpfs(...) at test-paginate_listing.R:269:3 2. ├─formatters::matrix_form(...) 3. ├─rlistings::matrix_form(...) 4. │ └─rlistings (local) .local(...) 5. │ └─base::vapply(...) 6. │ └─formatters (local) FUN(X[[i]], ...) 7. │ └─base::match.arg(round_type) 8. ├─formatters::obj_round_type(obj) 9. └─formatters::obj_round_type(obj) ── Error ('test-paginate_listing.R:306:3'): paginate_to_mpfs works with wrapping on keycols when doing horizontal pagination ── Error in `obj_round_type(x)`: got a list that doesn't appear to contain (only) tables or listings Backtrace: ▆ 1. └─formatters::propose_column_widths(lst) at test-paginate_listing.R:306:3 2. ├─formatters::matrix_form(...) 3. ├─rlistings::matrix_form(...) 4. │ └─rlistings (local) .local(...) 5. │ └─base::vapply(...) 6. │ └─formatters (local) FUN(X[[i]], ...) 7. │ └─base::match.arg(round_type) 8. ├─formatters::obj_round_type(x) 9. └─formatters::obj_round_type(x) ── Error ('test-paginate_listing.R:347:3'): paginate_listing works with split_into_pages_by_var ── Error in `obj_round_type(obj)`: got a list that doesn't appear to contain (only) tables or listings Backtrace: ▆ 1. └─rlistings::paginate_listing(lsting, lpp = 20, cpp = 65, print_pages = FALSE) at test-paginate_listing.R:347:3 2. ├─formatters::paginate_to_mpfs(...) 3. │ ├─base::unlist(...) 4. │ └─base::lapply(...) 5. │ └─formatters (local) FUN(X[[i]], ...) 6. │ └─base::eval(cur_call, envir = parent.frame(3L)) 7. │ └─base::eval(cur_call, envir = parent.frame(3L)) 8. └─formatters::paginate_to_mpfs(...) 9. ├─formatters::matrix_form(...) 10. ├─rlistings::matrix_form(...) 11. │ └─rlistings (local) .local(...) 12. │ └─base::vapply(...) 13. │ └─formatters (local) FUN(X[[i]], ...) 14. │ └─base::match.arg(round_type) 15. ├─formatters::obj_round_type(obj) 16. └─formatters::obj_round_type(obj) ── Error ('test-paginate_listing.R:401:3'): paginate_listing works with split_into_pages_by_var and trailing_sep ── 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(lsting2) at test-paginate_listing.R:401: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. ├─base (local) ``(x) 25. └─rlistings:::print.listing_df(x) 26. └─base::tryCatch(...) 27. └─base (local) tryCatchList(expr, classes, parentenv, handlers) 28. └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]]) 29. └─value[[3L]](cond) ── Error ('test-print.R:5:3'): Listing print 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. ├─base::strsplit(toString(matrix_form(lsting), hsep = "-"), "\\n") at test-print.R:5:3 2. ├─base::toString(matrix_form(lsting), hsep = "-") 3. ├─formatters::matrix_form(lsting) 4. ├─rlistings::matrix_form(lsting) 5. │ └─rlistings (local) .local(...) 6. │ └─base::vapply(...) 7. │ └─formatters (local) FUN(X[[i]], ...) 8. │ └─base::match.arg(round_type) 9. │ └─base::stop(gettextf("'%s' must be of length 1", "arg"), domain = NA) 10. └─base::.handleSimpleError(...) 11. └─base (local) h(simpleError(msg, call)) ── Error ('test-print.R:18:3'): Listing print correctly with different widths ── 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. ├─base::strsplit(...) at test-print.R:18:3 2. ├─base::toString(matrix_form(lsting), widths = c(7, 8, 9), hsep = "-") 3. ├─formatters::matrix_form(lsting) 4. ├─rlistings::matrix_form(lsting) 5. │ └─rlistings (local) .local(...) 6. │ └─base::vapply(...) 7. │ └─formatters (local) FUN(X[[i]], ...) 8. │ └─base::match.arg(round_type) 9. │ └─base::stop(gettextf("'%s' must be of length 1", "arg"), domain = NA) 10. └─base::.handleSimpleError(...) 11. └─base (local) h(simpleError(msg, call)) ── Error ('test-print.R:37:3'): as_listing produces correct output when default_formatting is specified ── 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. ├─base::strsplit(toString(matrix_form(lsting), hsep = "-"), "\\n") at test-print.R:37:3 2. ├─base::toString(matrix_form(lsting), hsep = "-") 3. ├─formatters::matrix_form(lsting) 4. ├─rlistings::matrix_form(lsting) 5. │ └─rlistings (local) .local(...) 6. │ └─base::vapply(...) 7. │ └─formatters (local) FUN(X[[i]], ...) 8. │ └─base::match.arg(round_type) 9. │ └─base::stop(gettextf("'%s' must be of length 1", "arg"), domain = NA) 10. └─base::.handleSimpleError(...) 11. └─base (local) h(simpleError(msg, call)) ── Error ('test-print.R:77:3'): as_listing produces correct output when col_formatting is specified ── 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. ├─base::strsplit(toString(matrix_form(lsting), hsep = "-"), "\\n") at test-print.R:77:3 2. ├─base::toString(matrix_form(lsting), hsep = "-") 3. ├─formatters::matrix_form(lsting) 4. ├─rlistings::matrix_form(lsting) 5. │ └─rlistings (local) .local(...) 6. │ └─base::vapply(...) 7. │ └─formatters (local) FUN(X[[i]], ...) 8. │ └─base::match.arg(round_type) 9. │ └─base::stop(gettextf("'%s' must be of length 1", "arg"), domain = NA) 10. └─base::.handleSimpleError(...) 11. └─base (local) h(simpleError(msg, call)) ── Error ('test-print.R:140:3'): listings support newline characters ─────────── 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. ├─base::strsplit(toString(matrix_form(lsting), hsep = "-"), "\\n") at test-print.R:140:3 2. ├─base::toString(matrix_form(lsting), hsep = "-") 3. ├─formatters::matrix_form(lsting) 4. ├─rlistings::matrix_form(lsting) 5. │ └─rlistings (local) .local(...) 6. │ └─base::vapply(...) 7. │ └─formatters (local) FUN(X[[i]], ...) 8. │ └─base::match.arg(round_type) 9. │ └─base::stop(gettextf("'%s' must be of length 1", "arg"), domain = NA) 10. └─base::.handleSimpleError(...) 11. └─base (local) h(simpleError(msg, call)) ── Error ('test-print.R:158:3'): listings supports wrapping ──────────────────── 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. ├─base::strsplit(toString(lsting, widths = cw), "\n") at test-print.R:158:3 2. ├─base::toString(lsting, widths = cw) 3. ├─rlistings::toString(lsting, widths = cw) 4. │ └─rlistings (local) .local(x, ...) 5. │ ├─base::toString(...) 6. │ ├─formatters::matrix_form(...) 7. │ └─rlistings::matrix_form(...) 8. │ └─rlistings (local) .local(...) 9. │ └─base::vapply(...) 10. │ └─formatters (local) FUN(X[[i]], ...) 11. │ └─base::match.arg(round_type) 12. │ └─base::stop(gettextf("'%s' must be of length 1", "arg"), domain = NA) 13. └─base::.handleSimpleError(...) 14. └─base (local) h(simpleError(msg, call)) ── Error ('test-print.R:172:3'): sas rounding support ────────────────────────── Error in `obj_round_type(x)`: got a list that doesn't appear to contain (only) tables or listings Backtrace: ▆ 1. └─formatters::export_as_txt(lsting) at test-print.R:172:3 2. ├─formatters::paginate_to_mpfs(...) 3. │ ├─formatters::matrix_form(...) 4. │ └─rlistings::matrix_form(...) 5. │ └─rlistings (local) .local(...) 6. │ └─base::vapply(...) 7. │ └─formatters (local) FUN(X[[i]], ...) 8. │ └─base::match.arg(round_type) 9. ├─formatters::obj_round_type(x) 10. └─formatters::obj_round_type(x) ── Error ('test-print.R:196:3'): listings supports horizontal separators ─────── 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_equal(...) at test-print.R:196:3 2. │ └─testthat::quasi_label(enquo(object), label) 3. │ └─rlang::eval_bare(expr, quo_get_env(quo)) 4. ├─base::sapply(...) 5. │ └─base::lapply(X = X, FUN = FUN, ...) 6. ├─base::strsplit(toString(result), "\n") 7. ├─base::toString(result) 8. ├─rlistings::toString(result) 9. │ └─rlistings (local) .local(x, ...) 10. │ ├─base::toString(...) 11. │ ├─formatters::matrix_form(...) 12. │ └─rlistings::matrix_form(...) 13. │ └─rlistings (local) .local(...) 14. │ └─base::vapply(...) 15. │ └─formatters (local) FUN(X[[i]], ...) 16. │ └─base::match.arg(round_type) 17. │ └─base::stop(gettextf("'%s' must be of length 1", "arg"), domain = NA) 18. └─base::.handleSimpleError(...) 19. └─base (local) h(simpleError(msg, call)) ── Error ('test-print.R:280:3'): spanning column label machinery works ───────── 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. ├─utils::capture.output(print(lsting)) at test-print.R:280:3 2. │ └─base::withVisible(...elt(i)) 3. ├─base::print(lsting) 4. └─rlistings:::print.listing_df(lsting) 5. └─base::tryCatch(...) 6. └─base (local) tryCatchList(expr, classes, parentenv, handlers) 7. └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]]) 8. └─value[[3L]](cond) [ FAIL 44 | WARN 0 | SKIP 0 | PASS 24 ] Error: ! Test failures. Execution halted Package: rtables Check: examples New result: ERROR Running examples in ‘rtables-Ex.R’ failed The error most likely occurred in: > base::assign(".ptime", proc.time(), pos = "CheckExEnv") > ### Name: add_colcounts > ### Title: Add the column population counts to the header > ### Aliases: add_colcounts > > ### ** Examples > > lyt <- basic_table() %>% + split_cols_by("ARM") %>% + add_colcounts() %>% + split_rows_by("RACE", split_fun = drop_split_levels) %>% + analyze("AGE", afun = function(x) list(min = min(x), max = max(x))) > lyt A Pre-data Table Layout Column-Split Structure: ARM (lvls) Row-Split Structure: RACE (lvls) -> AGE (** analysis **) > > tbl <- build_table(lyt, DM) Error in match.arg(round_type) : 'arg' must be of length 1 Calls: build_table ... -> format_rcell -> format_value -> match.arg Execution halted Package: rtables Check: re-building of vignette outputs New result: ERROR Error(s) in re-building vignettes: ... --- re-building ‘advanced_usage.Rmd’ using rmarkdown Quitting from advanced_usage.Rmd:30-38 [unnamed-chunk-2] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error in `match.arg()`: ! 'arg' must be of length 1 --- Backtrace: ▆ 1. └─rtables::build_table(lyt1, d1) 2. └─rtables::update_ref_indexing(tab) 3. ├─formatters::make_row_df(tt) 4. └─rtables::make_row_df(tt) 5. └─rtables (local) .local(...) 6. ├─formatters::make_row_df(...) 7. └─rtables::make_row_df(...) 8. └─rtables (local) .local(...) 9. ├─formatters::pagdfrow(...) 10. │ └─base::data.frame(...) 11. ├─formatters::nlines(...) 12. └─rtables::nlines(...) 13. ├─base::as.vector(get_formatted_cells(x)) 14. ├─rtables::get_formatted_cells(x) 15. └─rtables::get_formatted_cells(x) 16. ├─base::matrix(...) 17. ├─base::unlist(...) 18. └─base::Map(...) 19. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 20. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 21. └─rtables::format_rcell(...) 22. └─formatters::format_value(...) 23. └─base::match.arg(round_type) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error: processing vignette 'advanced_usage.Rmd' failed with diagnostics: 'arg' must be of length 1 --- failed re-building ‘advanced_usage.Rmd’ --- re-building ‘ard_how_to.Rmd’ using rmarkdown Quitting from ard_how_to.Rmd:46-57 [unnamed-chunk-4] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error in `match.arg()`: ! 'arg' must be of length 1 --- Backtrace: ▆ 1. └─rtables::build_table(lyt, ADSL) 2. └─rtables::update_ref_indexing(tab) 3. ├─formatters::make_row_df(tt) 4. └─rtables::make_row_df(tt) 5. └─rtables (local) .local(...) 6. ├─formatters::make_row_df(...) 7. └─rtables::make_row_df(...) 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) ``(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: processing vignette 'ard_how_to.Rmd' failed with diagnostics: 'arg' must be of length 1 --- failed re-building ‘ard_how_to.Rmd’ --- re-building ‘baseline.Rmd’ using rmarkdown Quitting from baseline.Rmd:41-50 [unnamed-chunk-3] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error in `match.arg()`: ! 'arg' must be of length 1 --- Backtrace: ▆ 1. └─rtables::build_table(lyt, DM) 2. └─rtables::update_ref_indexing(tab) 3. ├─formatters::make_row_df(tt) 4. └─rtables::make_row_df(tt) 5. └─rtables (local) .local(...) 6. ├─formatters::make_row_df(...) 7. └─rtables::make_row_df(...) 8. └─rtables (local) .local(...) 9. ├─formatters::pagdfrow(...) 10. │ └─base::data.frame(...) 11. ├─formatters::nlines(...) 12. └─rtables::nlines(...) 13. ├─base::as.vector(get_formatted_cells(x)) 14. ├─rtables::get_formatted_cells(x) 15. └─rtables::get_formatted_cells(x) 16. ├─base::matrix(...) 17. ├─base::unlist(...) 18. └─base::Map(...) 19. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 20. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 21. └─rtables::format_rcell(...) 22. └─formatters::format_value(...) 23. └─base::match.arg(round_type) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error: processing vignette 'baseline.Rmd' failed with diagnostics: 'arg' must be of length 1 --- failed re-building ‘baseline.Rmd’ --- re-building ‘clinical_trials.Rmd’ using rmarkdown Quitting from clinical_trials.Rmd:78-92 [unnamed-chunk-5] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error in `match.arg()`: ! 'arg' must be of length 1 --- Backtrace: ▆ 1. └─rtables::build_table(lyt, ADSL) 2. └─rtables::update_ref_indexing(tab) 3. ├─formatters::make_row_df(tt) 4. └─rtables::make_row_df(tt) 5. └─rtables (local) .local(...) 6. ├─formatters::make_row_df(...) 7. └─rtables::make_row_df(...) 8. └─rtables (local) .local(...) 9. ├─formatters::pagdfrow(...) 10. │ └─base::data.frame(...) 11. ├─formatters::nlines(...) 12. └─rtables::nlines(...) 13. ├─base::as.vector(get_formatted_cells(x)) 14. ├─rtables::get_formatted_cells(x) 15. └─rtables::get_formatted_cells(x) 16. ├─base::matrix(...) 17. ├─base::unlist(...) 18. └─base::Map(...) 19. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 20. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 21. └─rtables::format_rcell(...) 22. └─formatters::format_value(...) 23. └─base::match.arg(round_type) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error: processing vignette 'clinical_trials.Rmd' failed with diagnostics: 'arg' must be of length 1 --- failed re-building ‘clinical_trials.Rmd’ --- re-building ‘col_counts.Rmd’ using rmarkdown Quitting from col_counts.Rmd:45-55 [unnamed-chunk-3] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error in `match.arg()`: ! 'arg' must be of length 1 --- Backtrace: ▆ 1. └─rtables::build_table(lyt, ex_adsl) 2. └─rtables::update_ref_indexing(tab) 3. ├─formatters::make_row_df(tt) 4. └─rtables::make_row_df(tt) 5. └─rtables (local) .local(...) 6. ├─formatters::make_row_df(...) 7. └─rtables::make_row_df(...) 8. └─rtables (local) .local(...) 9. ├─formatters::pagdfrow(...) 10. │ └─base::data.frame(...) 11. ├─formatters::nlines(...) 12. └─rtables::nlines(...) 13. ├─base::as.vector(get_formatted_cells(x)) 14. ├─rtables::get_formatted_cells(x) 15. └─rtables::get_formatted_cells(x) 16. ├─base::matrix(...) 17. ├─base::unlist(...) 18. └─base::Map(...) 19. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 20. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 21. └─rtables::format_rcell(...) 22. └─formatters::format_value(...) 23. └─base::match.arg(round_type) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error: processing vignette 'col_counts.Rmd' failed with diagnostics: 'arg' must be of length 1 --- failed re-building ‘col_counts.Rmd’ --- re-building ‘custom_appearance.Rmd’ using rmarkdown Quitting from custom_appearance.Rmd:72-85 [unnamed-chunk-5] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error in `match.arg()`: ! 'arg' must be of length 1 --- Backtrace: ▆ 1. └─rtables::build_table(lyt, DM) 2. └─rtables::update_ref_indexing(tab) 3. ├─formatters::make_row_df(tt) 4. └─rtables::make_row_df(tt) 5. └─rtables (local) .local(...) 6. ├─formatters::make_row_df(...) 7. └─rtables::make_row_df(...) 8. └─rtables (local) .local(...) 9. ├─formatters::pagdfrow(...) 10. │ └─base::data.frame(...) 11. ├─formatters::nlines(...) 12. └─rtables::nlines(...) 13. ├─base::as.vector(get_formatted_cells(x)) 14. ├─rtables::get_formatted_cells(x) 15. └─rtables::get_formatted_cells(x) 16. ├─base::matrix(...) 17. ├─base::unlist(...) 18. └─base::Map(...) 19. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 20. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 21. └─rtables::format_rcell(...) 22. └─formatters::format_value(...) 23. └─base::match.arg(round_type) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error: processing vignette 'custom_appearance.Rmd' failed with diagnostics: 'arg' must be of length 1 --- failed re-building ‘custom_appearance.Rmd’ --- re-building ‘example_analysis_coxreg.Rmd’ using rmarkdown Quitting from example_analysis_coxreg.Rmd:389-392 [unnamed-chunk-11] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error in `match.arg()`: ! 'arg' must be of length 1 --- Backtrace: ▆ 1. └─rtables::build_table(lyt, anl) 2. └─rtables::update_ref_indexing(tab) 3. ├─formatters::make_row_df(tt) 4. └─rtables::make_row_df(tt) 5. └─rtables (local) .local(...) 6. ├─formatters::make_row_df(...) 7. └─rtables::make_row_df(...) 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) ``(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: processing vignette 'example_analysis_coxreg.Rmd' failed with diagnostics: 'arg' must be of length 1 --- failed re-building ‘example_analysis_coxreg.Rmd’ --- re-building ‘exploratory_analysis.Rmd’ using rmarkdown Quitting from exploratory_analysis.Rmd:68-71 [unnamed-chunk-6] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error in `match.arg()`: ! 'arg' must be of length 1 --- Backtrace: ▆ 1. └─rtables::qtable(ex_adsl, col_vars = "ARM") 2. └─rtables::build_table(lyt, 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::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) ``(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: processing vignette 'exploratory_analysis.Rmd' failed with diagnostics: 'arg' must be of length 1 --- failed re-building ‘exploratory_analysis.Rmd’ --- re-building ‘format_precedence.Rmd’ using rmarkdown Quitting from format_precedence.Rmd:72-81 [unnamed-chunk-4] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error in `match.arg()`: ! 'arg' must be of length 1 --- Backtrace: ▆ 1. └─rtables::build_table(lyt, ADSL) 2. └─rtables::update_ref_indexing(tab) 3. ├─formatters::make_row_df(tt) 4. └─rtables::make_row_df(tt) 5. └─rtables (local) .local(...) 6. ├─formatters::make_row_df(...) 7. └─rtables::make_row_df(...) 8. └─rtables (local) .local(...) 9. ├─formatters::make_row_df(...) 10. └─rtables::make_row_df(...) 11. └─rtables (local) .local(...) 12. ├─formatters::make_row_df(...) 13. └─rtables::make_row_df(...) 14. └─rtables (local) .local(...) 15. ├─formatters::pagdfrow(...) 16. │ └─base::data.frame(...) 17. ├─formatters::nlines(...) 18. └─rtables::nlines(...) 19. ├─base::as.vector(get_formatted_cells(x)) 20. ├─rtables::get_formatted_cells(x) 21. └─rtables::get_formatted_cells(x) 22. ├─base::matrix(...) 23. ├─base::unlist(...) 24. └─base::Map(...) 25. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 26. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 27. └─rtables::format_rcell(...) 28. └─formatters::format_value(...) 29. └─base::match.arg(round_type) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error: processing vignette 'format_precedence.Rmd' failed with diagnostics: 'arg' must be of length 1 --- failed re-building ‘format_precedence.Rmd’ --- re-building ‘guided_intermediate.Rmd’ using rmarkdown [WARNING] Deprecated: --highlight-style. Use --syntax-highlighting instead. --- finished re-building ‘guided_intermediate.Rmd’ --- re-building ‘guided_intermediate_afun_reqs.Rmd’ using rmarkdown Quitting from guided_intermediate_afun_reqs.Rmd:103-118 [unnamed-chunk-3] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error in `match.arg()`: ! 'arg' must be of length 1 --- Backtrace: ▆ 1. └─rtables::build_table(lyt_counts, ex_adae, alt_counts_df = ex_adsl) 2. └─rtables::update_ref_indexing(tab) 3. ├─formatters::make_row_df(tt) 4. └─rtables::make_row_df(tt) 5. └─rtables (local) .local(...) 6. ├─formatters::make_row_df(...) 7. └─rtables::make_row_df(...) 8. └─rtables (local) .local(...) 9. ├─formatters::make_row_df(...) 10. └─rtables::make_row_df(...) 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::make_row_df(...) 19. └─rtables::make_row_df(...) 20. └─rtables (local) .local(...) 21. ├─formatters::pagdfrow(...) 22. │ └─base::data.frame(...) 23. ├─formatters::nlines(...) 24. └─rtables::nlines(...) 25. ├─base::as.vector(get_formatted_cells(x)) 26. ├─rtables::get_formatted_cells(x) 27. └─rtables::get_formatted_cells(x) 28. ├─base::matrix(...) 29. ├─base::unlist(...) 30. └─base::Map(...) 31. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 32. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 33. └─rtables::format_rcell(...) 34. └─formatters::format_value(...) 35. └─base::match.arg(round_type) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error: processing vignette 'guided_intermediate_afun_reqs.Rmd' failed with diagnostics: 'arg' must be of length 1 --- failed re-building ‘guided_intermediate_afun_reqs.Rmd’ --- re-building ‘guided_intermediate_split_reqs.Rmd’ using rmarkdown Quitting from guided_intermediate_split_reqs.Rmd:142-148 [unnamed-chunk-2] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error in `h()`: ! error in evaluating the argument 'x' in selecting a method for function 'toString': 'arg' must be of length 1 --- Backtrace: ▆ 1. ├─tools:::.buildOneVignette(...) 2. │ ├─base::tryCatch(...) 3. │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers) 4. │ │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]]) 5. │ │ └─base (local) doTryCatch(return(expr), name, parentenv, handler) 6. │ └─engine$weave(file, quiet = quiet, encoding = enc) 7. │ └─knitr:::vweave_rmarkdown(...) 8. │ └─rmarkdown::render(...) 9. │ └─knitr::knit(knit_input, knit_output, envir = envir, quiet = quiet) 10. │ └─knitr:::process_file(text, output) 11. │ ├─xfun:::handle_error(...) 12. │ ├─base::withCallingHandlers(...) 13. │ └─knitr:::process_group(group) 14. │ └─knitr:::call_block(x) 15. │ └─knitr:::block_exec(params) 16. │ └─knitr:::eng_r(options) 17. │ ├─knitr:::in_input_dir(...) 18. │ │ └─knitr:::in_dir(input_dir(), expr) 19. │ └─knitr (local) evaluate(...) 20. │ └─evaluate::evaluate(...) 21. │ ├─base::withRestarts(...) 22. │ │ └─base (local) withRestartList(expr, restarts) 23. │ │ ├─base (local) withOneRestart(withRestartList(expr, restarts[-nr]), restarts[[nr]]) 24. │ │ │ └─base (local) doWithOneRestart(return(expr), restart) 25. │ │ └─base (local) withRestartList(expr, restarts[-nr]) 26. │ │ └─base (local) withOneRestart(expr, restarts[[1L]]) 27. │ │ └─base (local) doWithOneRestart(return(expr), restart) 28. │ ├─evaluate:::with_handlers(...) 29. │ │ ├─base::eval(call) 30. │ │ │ └─base::eval(call) 31. │ │ └─base::withCallingHandlers(...) 32. │ └─watcher$print_value(ev$value, ev$visible, envir) 33. │ ├─base::withVisible(handle_value(handler, value, visible, envir)) 34. │ └─evaluate:::handle_value(handler, value, visible, envir) 35. │ └─handler$value(value, visible) 36. │ └─knitr (local) fun(x, options = options) 37. │ ├─base::withVisible(knit_print(x, ...)) 38. │ ├─knitr::knit_print(x, ...) 39. │ └─knitr:::knit_print.default(x, ...) 40. │ └─knitr::normal_print(x) 41. │ ├─methods::show(x) 42. │ └─methods::show(x) 43. │ ├─base::cat(toString(object)) 44. │ ├─base::toString(object) 45. │ └─rtables::toString(object) 46. │ └─rtables (local) .local(x, ...) 47. │ ├─base::toString(...) 48. │ ├─formatters::matrix_form(...) 49. │ └─rtables::matrix_form(...) 50. │ └─rtables:::.tbl_header_mat(obj) 51. │ ├─base::matrix(...) 52. │ └─base::rapply(...) 53. │ └─rtables (local) ``(X, ...) 54. │ ├─rtables::get_formatted_cells(x) 55. │ └─rtables::get_formatted_cells(x) 56. │ ├─base::matrix(...) 57. │ ├─base::unlist(...) 58. │ └─base::Map(...) 59. │ └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 60. │ └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 61. │ └─rtables::format_rcell(...) 62. │ └─formatters::format_value(...) 63. │ └─base::match.arg(round_type) 64. │ └─base::stop(gettextf("'%s' must be of length 1", "arg"), domain = NA) 65. └─base::.handleSimpleError(...) 66. └─base (local) h(simpleError(msg, call)) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error: processing vignette 'guided_intermediate_split_reqs.Rmd' failed with diagnostics: error in evaluating the argument 'x' in selecting a method for function 'toString': 'arg' must be of length 1 --- failed re-building ‘guided_intermediate_split_reqs.Rmd’ --- re-building ‘guided_intermediate_translating_shells.Rmd’ using rmarkdown Quitting from guided_intermediate_translating_shells.Rmd:78-125 [unnamed-chunk-3] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error in `match.arg()`: ! 'arg' must be of length 1 --- Backtrace: ▆ 1. └─rtables::build_table(lyt, adsl) 2. └─rtables::update_ref_indexing(tab) 3. ├─formatters::make_row_df(tt) 4. └─rtables::make_row_df(tt) 5. └─rtables (local) .local(...) 6. ├─formatters::make_row_df(...) 7. └─rtables::make_row_df(...) 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) ``(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: processing vignette 'guided_intermediate_translating_shells.Rmd' failed with diagnostics: 'arg' must be of length 1 --- failed re-building ‘guided_intermediate_translating_shells.Rmd’ --- re-building ‘introspecting_tables.Rmd’ using rmarkdown Quitting from introspecting_tables.Rmd:43-54 [unnamed-chunk-4] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error in `match.arg()`: ! 'arg' must be of length 1 --- Backtrace: ▆ 1. └─rtables::build_table(lyt, ex_adsl) 2. └─rtables::update_ref_indexing(tab) 3. ├─formatters::make_row_df(tt) 4. └─rtables::make_row_df(tt) 5. └─rtables (local) .local(...) 6. ├─formatters::make_row_df(...) 7. └─rtables::make_row_df(...) 8. └─rtables (local) .local(...) 9. ├─formatters::make_row_df(...) 10. └─rtables::make_row_df(...) 11. └─rtables (local) .local(...) 12. ├─formatters::make_row_df(...) 13. └─rtables::make_row_df(...) 14. └─rtables (local) .local(...) 15. ├─formatters::pagdfrow(...) 16. │ └─base::data.frame(...) 17. ├─formatters::nlines(...) 18. └─rtables::nlines(...) 19. ├─base::as.vector(get_formatted_cells(x)) 20. ├─rtables::get_formatted_cells(x) 21. └─rtables::get_formatted_cells(x) 22. ├─base::matrix(...) 23. ├─base::unlist(...) 24. └─base::Map(...) 25. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 26. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 27. └─rtables::format_rcell(...) 28. └─formatters::format_value(...) 29. └─base::match.arg(round_type) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error: processing vignette 'introspecting_tables.Rmd' failed with diagnostics: 'arg' must be of length 1 --- failed re-building ‘introspecting_tables.Rmd’ --- re-building ‘manual_table_construction.Rmd’ using rmarkdown Quitting from manual_table_construction.Rmd:64-66 [unnamed-chunk-5] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error in `match.arg()`: ! 'arg' must be of length 1 --- Backtrace: ▆ 1. └─rtables::as_html(tbl, width = "80%") 2. ├─formatters::matrix_form(x, indent_rownames = TRUE, expand_newlines = expand_newlines) 3. └─rtables::matrix_form(x, indent_rownames = TRUE, expand_newlines = expand_newlines) 4. └─rtables:::.tbl_header_mat(obj) 5. ├─base::matrix(...) 6. └─base::rapply(...) 7. └─rtables (local) ``(X, ...) 8. ├─rtables::get_formatted_cells(x) 9. └─rtables::get_formatted_cells(x) 10. ├─base::matrix(...) 11. ├─base::unlist(...) 12. └─base::Map(...) 13. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 14. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 15. └─rtables::format_rcell(...) 16. └─formatters::format_value(...) 17. └─base::match.arg(round_type) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error: processing vignette 'manual_table_construction.Rmd' failed with diagnostics: 'arg' must be of length 1 --- failed re-building ‘manual_table_construction.Rmd’ --- re-building ‘pathing.Rmd’ using rmarkdown Quitting from pathing.Rmd:25-50 [unnamed-chunk-1] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error in `match.arg()`: ! 'arg' must be of length 1 --- Backtrace: ▆ 1. └─rtables::build_table(lyt, DM) 2. └─rtables::update_ref_indexing(tab) 3. ├─formatters::make_row_df(tt) 4. └─rtables::make_row_df(tt) 5. └─rtables (local) .local(...) 6. ├─formatters::make_row_df(...) 7. └─rtables::make_row_df(...) 8. └─rtables (local) .local(...) 9. ├─formatters::make_row_df(...) 10. └─rtables::make_row_df(...) 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) ``(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) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error: processing vignette 'pathing.Rmd' failed with diagnostics: 'arg' must be of length 1 --- failed re-building ‘pathing.Rmd’ --- re-building ‘rtables.Rmd’ using rmarkdown Quitting from rtables.Rmd:104-116 [unnamed-chunk-5] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error in `match.arg()`: ! 'arg' must be of length 1 --- Backtrace: ▆ 1. └─rtables::build_table(lyt, df) 2. └─rtables::update_ref_indexing(tab) 3. ├─formatters::make_row_df(tt) 4. └─rtables::make_row_df(tt) 5. └─rtables (local) .local(...) 6. ├─formatters::make_row_df(...) 7. └─rtables::make_row_df(...) 8. └─rtables (local) .local(...) 9. ├─formatters::make_row_df(...) 10. └─rtables::make_row_df(...) 11. └─rtables (local) .local(...) 12. ├─formatters::make_row_df(...) 13. └─rtables::make_row_df(...) 14. └─rtables (local) .local(...) 15. ├─formatters::pagdfrow(...) 16. │ └─base::data.frame(...) 17. ├─formatters::nlines(...) 18. └─rtables::nlines(...) 19. ├─base::as.vector(get_formatted_cells(x)) 20. ├─rtables::get_formatted_cells(x) 21. └─rtables::get_formatted_cells(x) 22. ├─base::matrix(...) 23. ├─base::unlist(...) 24. └─base::Map(...) 25. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 26. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 27. └─rtables::format_rcell(...) 28. └─formatters::format_value(...) 29. └─base::match.arg(round_type) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error: processing vignette 'rtables.Rmd' failed with diagnostics: 'arg' must be of length 1 --- failed re-building ‘rtables.Rmd’ --- re-building ‘sorting_pruning.Rmd’ using rmarkdown Quitting from sorting_pruning.Rmd:50-65 [unnamed-chunk-4] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error in `match.arg()`: ! 'arg' must be of length 1 --- Backtrace: ▆ 1. └─rtables::build_table(raw_lyt, DM) 2. └─rtables::update_ref_indexing(tab) 3. ├─formatters::make_row_df(tt) 4. └─rtables::make_row_df(tt) 5. └─rtables (local) .local(...) 6. ├─formatters::make_row_df(...) 7. └─rtables::make_row_df(...) 8. └─rtables (local) .local(...) 9. ├─formatters::make_row_df(...) 10. └─rtables::make_row_df(...) 11. └─rtables (local) .local(...) 12. ├─formatters::make_row_df(...) 13. └─rtables::make_row_df(...) 14. └─rtables (local) .local(...) 15. ├─formatters::pagdfrow(...) 16. │ └─base::data.frame(...) 17. ├─formatters::nlines(...) 18. └─rtables::nlines(...) 19. ├─base::as.vector(get_formatted_cells(x)) 20. ├─rtables::get_formatted_cells(x) 21. └─rtables::get_formatted_cells(x) 22. ├─base::matrix(...) 23. ├─base::unlist(...) 24. └─base::Map(...) 25. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 26. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 27. └─rtables::format_rcell(...) 28. └─formatters::format_value(...) 29. └─base::match.arg(round_type) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error: processing vignette 'sorting_pruning.Rmd' failed with diagnostics: 'arg' must be of length 1 --- failed re-building ‘sorting_pruning.Rmd’ --- re-building ‘split_functions.Rmd’ using rmarkdown Quitting from split_functions.Rmd:130-140 [examples] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error in `match.arg()`: ! 'arg' must be of length 1 --- Backtrace: ▆ 1. └─rtables::build_table(lyt, vehic_data) 2. └─rtables::update_ref_indexing(tab) 3. ├─formatters::make_row_df(tt) 4. └─rtables::make_row_df(tt) 5. └─rtables (local) .local(...) 6. ├─formatters::make_row_df(...) 7. └─rtables::make_row_df(...) 8. └─rtables (local) .local(...) 9. ├─formatters::make_row_df(...) 10. └─rtables::make_row_df(...) 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::make_row_df(...) 19. └─rtables::make_row_df(...) 20. └─rtables (local) .local(...) 21. ├─formatters::pagdfrow(...) 22. │ └─base::data.frame(...) 23. ├─formatters::nlines(...) 24. └─rtables::nlines(...) 25. ├─base::as.vector(get_formatted_cells(x)) 26. ├─rtables::get_formatted_cells(x) 27. └─rtables::get_formatted_cells(x) 28. ├─base::matrix(...) 29. ├─base::unlist(...) 30. └─base::Map(...) 31. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 32. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 33. └─rtables::format_rcell(...) 34. └─formatters::format_value(...) 35. └─base::match.arg(round_type) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error: processing vignette 'split_functions.Rmd' failed with diagnostics: 'arg' must be of length 1 --- failed re-building ‘split_functions.Rmd’ --- re-building ‘subsetting_tables.Rmd’ using rmarkdown Quitting from subsetting_tables.Rmd:51-62 [unnamed-chunk-4] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error in `match.arg()`: ! 'arg' must be of length 1 --- Backtrace: ▆ 1. └─rtables::build_table(...) 2. └─rtables::update_ref_indexing(tab) 3. ├─formatters::make_row_df(tt) 4. └─rtables::make_row_df(tt) 5. └─rtables (local) .local(...) 6. ├─formatters::make_row_df(...) 7. └─rtables::make_row_df(...) 8. └─rtables (local) .local(...) 9. ├─formatters::make_row_df(...) 10. └─rtables::make_row_df(...) 11. └─rtables (local) .local(...) 12. ├─formatters::make_row_df(...) 13. └─rtables::make_row_df(...) 14. └─rtables (local) .local(...) 15. ├─formatters::pagdfrow(...) 16. │ └─base::data.frame(...) 17. ├─formatters::nlines(...) 18. └─rtables::nlines(...) 19. ├─base::as.vector(get_formatted_cells(x)) 20. ├─rtables::get_formatted_cells(x) 21. └─rtables::get_formatted_cells(x) 22. ├─base::matrix(...) 23. ├─base::unlist(...) 24. └─base::Map(...) 25. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 26. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 27. └─rtables::format_rcell(...) 28. └─formatters::format_value(...) 29. └─base::match.arg(round_type) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error: processing vignette 'subsetting_tables.Rmd' failed with diagnostics: 'arg' must be of length 1 --- failed re-building ‘subsetting_tables.Rmd’ --- re-building ‘tabulation_concepts.Rmd’ using rmarkdown Quitting from tabulation_concepts.Rmd:103-116 [unnamed-chunk-7] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error in `match.arg()`: ! 'arg' must be of length 1 --- Backtrace: ▆ 1. └─rtables::build_table(lyt, df) 2. └─rtables::update_ref_indexing(tab) 3. ├─formatters::make_row_df(tt) 4. └─rtables::make_row_df(tt) 5. └─rtables (local) .local(...) 6. ├─formatters::make_row_df(...) 7. └─rtables::make_row_df(...) 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) ``(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: processing vignette 'tabulation_concepts.Rmd' failed with diagnostics: 'arg' must be of length 1 --- failed re-building ‘tabulation_concepts.Rmd’ --- re-building ‘tabulation_dplyr.Rmd’ using rmarkdown Quitting from tabulation_dplyr.Rmd:56-82 [unnamed-chunk-5] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error in `match.arg()`: ! 'arg' must be of length 1 --- Backtrace: ▆ 1. └─rtables::build_table(lyt, df) 2. └─rtables::update_ref_indexing(tab) 3. ├─formatters::make_row_df(tt) 4. └─rtables::make_row_df(tt) 5. └─rtables (local) .local(...) 6. ├─formatters::make_row_df(...) 7. └─rtables::make_row_df(...) 8. └─rtables (local) .local(...) 9. ├─formatters::make_row_df(...) 10. └─rtables::make_row_df(...) 11. └─rtables (local) .local(...) 12. ├─formatters::make_row_df(...) 13. └─rtables::make_row_df(...) 14. └─rtables (local) .local(...) 15. ├─formatters::pagdfrow(...) 16. │ └─base::data.frame(...) 17. ├─formatters::nlines(...) 18. └─rtables::nlines(...) 19. ├─base::as.vector(get_formatted_cells(x)) 20. ├─rtables::get_formatted_cells(x) 21. └─rtables::get_formatted_cells(x) 22. ├─base::matrix(...) 23. ├─base::unlist(...) 24. └─base::Map(...) 25. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 26. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 27. └─rtables::format_rcell(...) 28. └─formatters::format_value(...) 29. └─base::match.arg(round_type) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error: processing vignette 'tabulation_dplyr.Rmd' failed with diagnostics: 'arg' must be of length 1 --- failed re-building ‘tabulation_dplyr.Rmd’ --- re-building ‘title_footer.Rmd’ using rmarkdown Quitting from title_footer.Rmd:59-75 [unnamed-chunk-4] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error in `match.arg()`: ! 'arg' must be of length 1 --- Backtrace: ▆ 1. └─rtables::build_table(lyt, DM) 2. └─rtables::update_ref_indexing(tab) 3. ├─formatters::make_row_df(tt) 4. └─rtables::make_row_df(tt) 5. └─rtables (local) .local(...) 6. ├─formatters::make_row_df(...) 7. └─rtables::make_row_df(...) 8. └─rtables (local) .local(...) 9. ├─formatters::make_row_df(...) 10. └─rtables::make_row_df(...) 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::make_row_df(...) 19. └─rtables::make_row_df(...) 20. └─rtables (local) .local(...) 21. ├─formatters::pagdfrow(...) 22. │ └─base::data.frame(...) 23. ├─formatters::nlines(...) 24. └─rtables::nlines(...) 25. ├─base::as.vector(get_formatted_cells(x)) 26. ├─rtables::get_formatted_cells(x) 27. └─rtables::get_formatted_cells(x) 28. ├─base::matrix(...) 29. ├─base::unlist(...) 30. └─base::Map(...) 31. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 32. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 33. └─rtables::format_rcell(...) 34. └─formatters::format_value(...) 35. └─base::match.arg(round_type) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error: processing vignette 'title_footer.Rmd' failed with diagnostics: 'arg' must be of length 1 --- failed re-building ‘title_footer.Rmd’ SUMMARY: processing the following files failed: ‘advanced_usage.Rmd’ ‘ard_how_to.Rmd’ ‘baseline.Rmd’ ‘clinical_trials.Rmd’ ‘col_counts.Rmd’ ‘custom_appearance.Rmd’ ‘example_analysis_coxreg.Rmd’ ‘exploratory_analysis.Rmd’ ‘format_precedence.Rmd’ ‘guided_intermediate_afun_reqs.Rmd’ ‘guided_intermediate_split_reqs.Rmd’ ‘guided_intermediate_translating_shells.Rmd’ ‘introspecting_tables.Rmd’ ‘manual_table_construction.Rmd’ ‘pathing.Rmd’ ‘rtables.Rmd’ ‘sorting_pruning.Rmd’ ‘split_functions.Rmd’ ‘subsetting_tables.Rmd’ ‘tabulation_concepts.Rmd’ ‘tabulation_dplyr.Rmd’ ‘title_footer.Rmd’ Error: Vignette re-building failed. Execution halted Package: rtables Check: tests New result: ERROR Running ‘testthat.R’ [2s/2s] Running the tests in ‘tests/testthat.R’ failed. Complete output: > if (requireNamespace("testthat", quietly = TRUE)) { + library(testthat) + library(rtables) + test_check("rtables", reporter = "check") + } 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: 'dplyr' The following objects are masked from 'package:stats': filter, lag The following objects are masked from 'package:base': intersect, setdiff, setequal, union Error in `source_dir()`: ! Failed to evaluate './setup-fakedata.R'. Caused by error in `match.arg()`: ! 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::test_check("rtables", reporter = "check") 2. │ └─testthat::test_dir(...) 3. │ └─testthat:::test_files(...) 4. │ └─testthat:::test_files_serial(...) 5. │ └─testthat:::test_files_setup_state(...) 6. │ └─testthat::source_test_setup(".", env) 7. │ └─testthat::source_dir(path, "^setup.*\\.[rR]$", env = env, wrap = FALSE) 8. │ └─base::lapply(...) 9. │ └─testthat (local) FUN(X[[i]], ...) 10. │ └─testthat::source_file(...) 11. │ ├─base::withCallingHandlers(...) 12. │ └─base::eval(exprs, env) 13. │ └─base::eval(exprs, env) 14. │ └─rtables:::tt_to_test_wrapping() at ./setup-fakedata.R:182:1 15. │ └─... %>% build_table(trimmed_data) at ./setup-fakedata.R:169:3 16. ├─rtables::build_table(., trimmed_data) 17. │ └─rtables::update_ref_indexing(tab) 18. │ ├─formatters::make_row_df(tt) 19. │ └─rtables::make_row_df(tt) 20. │ └─rtables (local) .local(...) 21. │ ├─formatters::make_row_df(...) 22. │ └─rtables::make_row_df(...) 23. │ └─rtables (local) .local(...) 24. │ ├─formatters::make_row_df(...) 25. │ └─rtables::make_row_df(...) 26. │ └─rtables (local) .local(...) 27. │ ├─formatters::make_row_df(...) 28. │ └─rtables::make_row_df(...) 29. │ └─rtables (local) .local(...) 30. │ ├─formatters::pagdfrow(...) 31. │ │ └─base::data.frame(...) 32. │ ├─formatters::nlines(...) 33. │ └─rtables::nlines(...) 34. │ ├─base::as.vector(get_formatted_cells(x)) 35. │ ├─rtables::get_formatted_cells(x) 36. │ └─rtables::get_formatted_cells(x) 37. │ ├─base::matrix(...) 38. │ ├─base::unlist(...) 39. │ └─base::Map(...) 40. │ └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 41. │ └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 42. │ └─rtables::format_rcell(...) 43. │ └─formatters::format_value(...) 44. │ └─base::match.arg(round_type) 45. │ └─base::stop(gettextf("'%s' must be of length 1", "arg"), domain = NA) 46. └─base::.handleSimpleError(...) 47. └─testthat (local) h(simpleError(msg, call)) 48. └─cli::cli_abort(...) 49. └─rlang::abort(...) Execution halted Package: rtables.officer Check: examples New result: ERROR Running examples in ‘rtables.officer-Ex.R’ failed The error most likely occurred in: > base::assign(".ptime", proc.time(), pos = "CheckExEnv") > ### Name: export_as_docx > ### Title: Export to a Word document > ### Aliases: export_as_docx section_properties_default margins_potrait > ### margins_landscape > > ### ** Examples > > lyt <- basic_table() %>% + split_cols_by("ARM") %>% + analyze(c("AGE", "BMRKR2", "COUNTRY")) > > tbl <- build_table(lyt, ex_adsl) Error in match.arg(round_type) : 'arg' must be of length 1 Calls: build_table ... -> format_rcell -> format_value -> match.arg Execution halted Package: rtables.officer Check: re-building of vignette outputs New result: ERROR Error(s) in re-building vignettes: ... --- re-building ‘dev_guide_ph.Rmd’ using rmarkdown [WARNING] Deprecated: --highlight-style. Use --syntax-highlighting instead. --- finished re-building ‘dev_guide_ph.Rmd’ --- re-building ‘export_rlistings.Rmd’ using rmarkdown Quitting from export_rlistings.Rmd:72-83 [unnamed-chunk-5] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error in `match.arg()`: ! 'arg' must be of length 1 --- Backtrace: ▆ 1. └─rtables.officer::tt_to_flextable(lsting) 2. ├─rtables::matrix_form(tt, fontspec = fontspec, indent_rownames = FALSE) 3. └─rtables::matrix_form(tt, fontspec = fontspec, indent_rownames = FALSE) 4. └─rlistings (local) .local(...) 5. └─base::vapply(...) 6. └─formatters (local) FUN(X[[i]], ...) 7. └─base::match.arg(round_type) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error: processing vignette 'export_rlistings.Rmd' failed with diagnostics: 'arg' must be of length 1 --- failed re-building ‘export_rlistings.Rmd’ --- re-building ‘rtables.officer.Rmd’ using rmarkdown Quitting from rtables.officer.Rmd:112-115 [unnamed-chunk-7] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error in `match.arg()`: ! 'arg' must be of length 1 --- Backtrace: ▆ 1. └─rtables::build_table(lyt, adlb_f) 2. └─rtables::update_ref_indexing(tab) 3. ├─formatters::make_row_df(tt) 4. └─rtables::make_row_df(tt) 5. └─rtables (local) .local(...) 6. ├─formatters::make_row_df(...) 7. └─rtables::make_row_df(...) 8. └─rtables (local) .local(...) 9. ├─formatters::make_row_df(...) 10. └─rtables::make_row_df(...) 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::make_row_df(...) 19. └─rtables::make_row_df(...) 20. └─rtables (local) .local(...) 21. ├─formatters::pagdfrow(...) 22. │ └─base::data.frame(...) 23. ├─formatters::nlines(...) 24. └─rtables::nlines(...) 25. ├─base::as.vector(get_formatted_cells(x)) 26. ├─rtables::get_formatted_cells(x) 27. └─rtables::get_formatted_cells(x) 28. ├─base::matrix(...) 29. ├─base::unlist(...) 30. └─base::Map(...) 31. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 32. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 33. └─rtables::format_rcell(...) 34. └─formatters::format_value(...) 35. └─base::match.arg(round_type) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error: processing vignette 'rtables.officer.Rmd' failed with diagnostics: 'arg' must be of length 1 --- failed re-building ‘rtables.officer.Rmd’ SUMMARY: processing the following files failed: ‘export_rlistings.Rmd’ ‘rtables.officer.Rmd’ Error: Vignette re-building failed. Execution halted Package: rtables.officer Check: tests New result: ERROR Running ‘testthat.R’ [5s/5s] Running the tests in ‘tests/testthat.R’ failed. Complete output: > library(testthat) > library(rtables.officer) 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 Loading required package: rlistings Loading required package: tibble Loading required package: rtables Attaching package: 'rtables' The following object is masked from 'package:utils': str > test_check("rtables.officer", reporter = "check") Saving _problems/test-as_flextable-20.R Saving _problems/test-as_flextable-84.R Saving _problems/test-as_flextable-100.R Saving _problems/test-as_flextable-119.R Saving _problems/test-as_flextable-139.R Saving _problems/test-as_flextable-171.R Saving _problems/test-as_flextable-172.R Saving _problems/test-as_flextable-200.R Saving _problems/test-as_flextable-204.R Saving _problems/test-as_flextable-209.R Saving _problems/test-as_flextable-254.R Saving _problems/test-as_flextable-255.R Saving _problems/test-as_flextable-263.R Saving _problems/test-export_as_docx-3.R Saving _problems/test-export_as_docx-44.R Saving _problems/test-export_as_docx-71.R Saving _problems/test-pagination-38.R Saving _problems/test-pagination-91.R Saving _problems/test-pagination-121.R Saving _problems/test-pagination-153.R [ FAIL 20 | WARN 0 | SKIP 0 | PASS 23 ] ══ Failed tests ════════════════════════════════════════════════════════════════ ── Error ('test-as_flextable.R:20:3'): Can create flextable object that works with different styles ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─rtables::build_table(lyt, ex_adsl) at test-as_flextable.R:20:3 2. └─rtables::update_ref_indexing(tab) 3. ├─formatters::make_row_df(tt) 4. └─rtables::make_row_df(tt) 5. └─rtables (local) .local(...) 6. ├─formatters::make_row_df(...) 7. └─rtables::make_row_df(...) 8. └─rtables (local) .local(...) 9. ├─formatters::make_row_df(...) 10. └─rtables::make_row_df(...) 11. └─rtables (local) .local(...) 12. ├─formatters::make_row_df(...) 13. └─rtables::make_row_df(...) 14. └─rtables (local) .local(...) 15. ├─formatters::pagdfrow(...) 16. │ └─base::data.frame(...) 17. ├─formatters::nlines(...) 18. └─rtables::nlines(...) 19. ├─base::as.vector(get_formatted_cells(x)) 20. ├─rtables::get_formatted_cells(x) 21. └─rtables::get_formatted_cells(x) 22. ├─base::matrix(...) 23. ├─base::unlist(...) 24. └─base::Map(...) 25. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 26. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 27. └─rtables::format_rcell(...) 28. └─formatters::format_value(...) 29. └─base::match.arg(round_type) ── Error ('test-as_flextable.R:84:3'): tt_to_flextable does not create different cells when colcounts (or multiple) on different lines ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─rtables::build_table(lyt, ex_adsl) at test-as_flextable.R:84:3 2. └─rtables::update_ref_indexing(tab) 3. ├─formatters::make_row_df(tt) 4. └─rtables::make_row_df(tt) 5. └─rtables (local) .local(...) 6. ├─formatters::make_row_df(...) 7. └─rtables::make_row_df(...) 8. └─rtables (local) .local(...) 9. ├─formatters::make_row_df(...) 10. └─rtables::make_row_df(...) 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::make_row_df(...) 19. └─rtables::make_row_df(...) 20. └─rtables (local) .local(...) 21. ├─formatters::pagdfrow(...) 22. │ └─base::data.frame(...) 23. ├─formatters::nlines(...) 24. └─rtables::nlines(...) 25. ├─base::as.vector(get_formatted_cells(x)) 26. ├─rtables::get_formatted_cells(x) 27. └─rtables::get_formatted_cells(x) 28. ├─base::matrix(...) 29. ├─base::unlist(...) 30. └─base::Map(...) 31. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 32. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 33. └─rtables::format_rcell(...) 34. └─formatters::format_value(...) 35. └─base::match.arg(round_type) ── Error ('test-as_flextable.R:100:3'): check titles bold and html theme ─────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─rtables::build_table(lyt, ex_adsl) at test-as_flextable.R:100:3 2. └─rtables::update_ref_indexing(tab) 3. ├─formatters::make_row_df(tt) 4. └─rtables::make_row_df(tt) 5. └─rtables (local) .local(...) 6. ├─formatters::make_row_df(...) 7. └─rtables::make_row_df(...) 8. └─rtables (local) .local(...) 9. ├─formatters::make_row_df(...) 10. └─rtables::make_row_df(...) 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::make_row_df(...) 19. └─rtables::make_row_df(...) 20. └─rtables (local) .local(...) 21. ├─formatters::pagdfrow(...) 22. │ └─base::data.frame(...) 23. ├─formatters::nlines(...) 24. └─rtables::nlines(...) 25. ├─base::as.vector(get_formatted_cells(x)) 26. ├─rtables::get_formatted_cells(x) 27. └─rtables::get_formatted_cells(x) 28. ├─base::matrix(...) 29. ├─base::unlist(...) 30. └─base::Map(...) 31. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 32. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 33. └─rtables::format_rcell(...) 34. └─formatters::format_value(...) 35. └─base::match.arg(round_type) ── Error ('test-as_flextable.R:119:3'): check pagination ─────────────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─rtables::build_table(lyt, ex_adsl) at test-as_flextable.R:119:3 2. └─rtables::update_ref_indexing(tab) 3. ├─formatters::make_row_df(tt) 4. └─rtables::make_row_df(tt) 5. └─rtables (local) .local(...) 6. ├─formatters::make_row_df(...) 7. └─rtables::make_row_df(...) 8. └─rtables (local) .local(...) 9. ├─formatters::make_row_df(...) 10. └─rtables::make_row_df(...) 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::make_row_df(...) 19. └─rtables::make_row_df(...) 20. └─rtables (local) .local(...) 21. ├─formatters::pagdfrow(...) 22. │ └─base::data.frame(...) 23. ├─formatters::nlines(...) 24. └─rtables::nlines(...) 25. ├─base::as.vector(get_formatted_cells(x)) 26. ├─rtables::get_formatted_cells(x) 27. └─rtables::get_formatted_cells(x) 28. ├─base::matrix(...) 29. ├─base::unlist(...) 30. └─base::Map(...) 31. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 32. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 33. └─rtables::format_rcell(...) 34. └─formatters::format_value(...) 35. └─base::match.arg(round_type) ── Error ('test-as_flextable.R:139:3'): check colwidths in flextable object ──── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─rtables::build_table(lyt, ex_adsl) at test-as_flextable.R:139:3 2. └─rtables::update_ref_indexing(tab) 3. ├─formatters::make_row_df(tt) 4. └─rtables::make_row_df(tt) 5. └─rtables (local) .local(...) 6. ├─formatters::make_row_df(...) 7. └─rtables::make_row_df(...) 8. └─rtables (local) .local(...) 9. ├─formatters::make_row_df(...) 10. └─rtables::make_row_df(...) 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::make_row_df(...) 19. └─rtables::make_row_df(...) 20. └─rtables (local) .local(...) 21. ├─formatters::pagdfrow(...) 22. │ └─base::data.frame(...) 23. ├─formatters::nlines(...) 24. └─rtables::nlines(...) 25. ├─base::as.vector(get_formatted_cells(x)) 26. ├─rtables::get_formatted_cells(x) 27. └─rtables::get_formatted_cells(x) 28. ├─base::matrix(...) 29. ├─base::unlist(...) 30. └─base::Map(...) 31. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 32. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 33. └─rtables::format_rcell(...) 34. └─formatters::format_value(...) 35. └─base::match.arg(round_type) ── Failure ('test-as_flextable.R:171:3'): tt_to_flextable works with {rlistings}' objects ── Expected `out <- tt_to_flextable(lsting)` not to throw any errors. Actually got a with message: 'arg' must be of length 1 ── Error ('test-as_flextable.R:172:3'): tt_to_flextable works with {rlistings}' objects ── Error in `eval(code, test_env)`: object 'out' not found Backtrace: ▆ 1. ├─testthat::expect_equal(flextable::nrow_part(out), nrow(lsting)) at test-as_flextable.R:172:3 2. │ └─testthat::quasi_label(enquo(object), label) 3. │ └─rlang::eval_bare(expr, quo_get_env(quo)) 4. └─flextable::nrow_part(out) ── Failure ('test-as_flextable.R:200:3'): tt_to_flextable handles basic rlistings object correctly ── Expected `out <- tt_to_flextable(lsting)` not to throw any errors. Actually got a with message: 'arg' must be of length 1 ── Failure ('test-as_flextable.R:204:3'): tt_to_flextable handles basic rlistings object correctly ── Expected `out` to be an S3 object. Actual OO type: none. ── Error ('test-as_flextable.R:207:3'): tt_to_flextable handles basic rlistings object correctly ── Error in `flextable::nrow_part(out, part = "body")`: Function `nrow_part()` supports only flextable objects. Backtrace: ▆ 1. ├─testthat::expect_equal(...) at test-as_flextable.R:207:3 2. │ └─testthat::quasi_label(enquo(object), label) 3. │ └─rlang::eval_bare(expr, quo_get_env(quo)) 4. └─flextable::nrow_part(out, part = "body") ── Failure ('test-as_flextable.R:254:3'): tt_to_flextable handles rlistings with active separators ── Expected `out_sep <- tt_to_flextable(lsting_sep)` not to throw any errors. Actually got a with message: 'arg' must be of length 1 ── Failure ('test-as_flextable.R:255:3'): tt_to_flextable handles rlistings with active separators ── Expected `out_sep` to be an S3 object. Actual OO type: none. ── Error ('test-as_flextable.R:259:3'): tt_to_flextable handles rlistings with active separators ── Error in `flextable::nrow_part(out_sep, part = "body")`: Function `nrow_part()` supports only flextable objects. Backtrace: ▆ 1. ├─testthat::expect_equal(...) at test-as_flextable.R:259:3 2. │ └─testthat::quasi_label(enquo(object), label) 3. │ └─rlang::eval_bare(expr, quo_get_env(quo)) 4. └─flextable::nrow_part(out_sep, part = "body") ── Error ('test-export_as_docx.R:3:3'): export_as_docx works thanks to tt_to_flextable ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─rtables::build_table(lyt, rawdat) at test-export_as_docx.R:3:3 2. └─rtables::update_ref_indexing(tab) 3. ├─formatters::make_row_df(tt) 4. └─rtables::make_row_df(tt) 5. └─rtables (local) .local(...) 6. ├─formatters::make_row_df(...) 7. └─rtables::make_row_df(...) 8. └─rtables (local) .local(...) 9. ├─formatters::make_row_df(...) 10. └─rtables::make_row_df(...) 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) ``(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) ── Error ('test-export_as_docx.R:44:3'): export_as_docx produces a warning if manual column widths are used ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─rtables::build_table(lyt, iris) at test-export_as_docx.R:44:3 2. └─rtables::update_ref_indexing(tab) 3. ├─formatters::make_row_df(tt) 4. └─rtables::make_row_df(tt) 5. └─rtables (local) .local(...) 6. ├─formatters::make_row_df(...) 7. └─rtables::make_row_df(...) 8. └─rtables (local) .local(...) 9. ├─formatters::make_row_df(...) 10. └─rtables::make_row_df(...) 11. └─rtables (local) .local(...) 12. ├─formatters::make_row_df(...) 13. └─rtables::make_row_df(...) 14. └─rtables (local) .local(...) 15. ├─formatters::pagdfrow(...) 16. │ └─base::data.frame(...) 17. ├─formatters::nlines(...) 18. └─rtables::nlines(...) 19. ├─base::as.vector(get_formatted_cells(x)) 20. ├─rtables::get_formatted_cells(x) 21. └─rtables::get_formatted_cells(x) 22. ├─base::matrix(...) 23. ├─base::unlist(...) 24. └─base::Map(...) 25. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 26. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 27. └─rtables::format_rcell(...) 28. └─formatters::format_value(...) 29. └─base::match.arg(round_type) ── Failure ('test-export_as_docx.R:69:3'): export_as_docx works thanks to tt_to_flextable ── Expected `... <- NULL` not to throw any errors. Actually got a with message: 'arg' must be of length 1 ── Error ('test-pagination.R:38:3'): export_as_docx handles list generated by tt_to_flextable(paginate=TRUE) ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─rtables::build_table(lyt_paged, test_data_rt) at test-pagination.R:38:3 2. └─rtables::update_ref_indexing(tab) 3. ├─formatters::make_row_df(tt) 4. └─rtables::make_row_df(tt) 5. └─rtables (local) .local(...) 6. ├─formatters::make_row_df(...) 7. └─rtables::make_row_df(...) 8. └─rtables (local) .local(...) 9. ├─formatters::make_row_df(...) 10. └─rtables::make_row_df(...) 11. └─rtables (local) .local(...) 12. ├─formatters::make_row_df(...) 13. └─rtables::make_row_df(...) 14. └─rtables (local) .local(...) 15. ├─formatters::pagdfrow(...) 16. │ └─base::data.frame(...) 17. ├─formatters::nlines(...) 18. └─rtables::nlines(...) 19. ├─base::as.vector(get_formatted_cells(x)) 20. ├─rtables::get_formatted_cells(x) 21. └─rtables::get_formatted_cells(x) 22. ├─base::matrix(...) 23. ├─base::unlist(...) 24. └─base::Map(...) 25. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 26. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 27. └─rtables::format_rcell(...) 28. └─formatters::format_value(...) 29. └─base::match.arg(round_type) ── Error ('test-pagination.R:91:3'): export_as_docx works with explicit list of rlistings/rtables objects ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─rtables::build_table(lyt_rt, test_data_rt) at test-pagination.R:91:3 2. └─rtables::update_ref_indexing(tab) 3. ├─formatters::make_row_df(tt) 4. └─rtables::make_row_df(tt) 5. └─rtables (local) .local(...) 6. ├─formatters::make_row_df(...) 7. └─rtables::make_row_df(...) 8. └─rtables (local) .local(...) 9. ├─formatters::pagdfrow(...) 10. │ └─base::data.frame(...) 11. ├─formatters::nlines(...) 12. └─rtables::nlines(...) 13. ├─base::as.vector(get_formatted_cells(x)) 14. ├─rtables::get_formatted_cells(x) 15. └─rtables::get_formatted_cells(x) 16. ├─base::matrix(...) 17. ├─base::unlist(...) 18. └─base::Map(...) 19. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 20. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 21. └─rtables::format_rcell(...) 22. └─formatters::format_value(...) 23. └─base::match.arg(round_type) ── Error ('test-pagination.R:121:3'): export_as_docx works with pagination via lpp/cpp arguments ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─rtables::build_table(lyt_long, test_data_rt) at test-pagination.R:121:3 2. └─rtables::update_ref_indexing(tab) 3. ├─formatters::make_row_df(tt) 4. └─rtables::make_row_df(tt) 5. └─rtables (local) .local(...) 6. ├─formatters::make_row_df(...) 7. └─rtables::make_row_df(...) 8. └─rtables (local) .local(...) 9. ├─formatters::make_row_df(...) 10. └─rtables::make_row_df(...) 11. └─rtables (local) .local(...) 12. ├─formatters::make_row_df(...) 13. └─rtables::make_row_df(...) 14. └─rtables (local) .local(...) 15. ├─formatters::pagdfrow(...) 16. │ └─base::data.frame(...) 17. ├─formatters::nlines(...) 18. └─rtables::nlines(...) 19. ├─base::as.vector(get_formatted_cells(x)) 20. ├─rtables::get_formatted_cells(x) 21. └─rtables::get_formatted_cells(x) 22. ├─base::matrix(...) 23. ├─base::unlist(...) 24. └─base::Map(...) 25. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 26. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 27. └─rtables::format_rcell(...) 28. └─formatters::format_value(...) 29. └─base::match.arg(round_type) ── Error ('test-pagination.R:153:3'): export_as_docx works with column widths and autofit settings ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─rtables::build_table(lyt_rt, test_data_rt) at test-pagination.R:153:3 2. └─rtables::update_ref_indexing(tab) 3. ├─formatters::make_row_df(tt) 4. └─rtables::make_row_df(tt) 5. └─rtables (local) .local(...) 6. ├─formatters::make_row_df(...) 7. └─rtables::make_row_df(...) 8. └─rtables (local) .local(...) 9. ├─formatters::pagdfrow(...) 10. │ └─base::data.frame(...) 11. ├─formatters::nlines(...) 12. └─rtables::nlines(...) 13. ├─base::as.vector(get_formatted_cells(x)) 14. ├─rtables::get_formatted_cells(x) 15. └─rtables::get_formatted_cells(x) 16. ├─base::matrix(...) 17. ├─base::unlist(...) 18. └─base::Map(...) 19. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 20. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 21. └─rtables::format_rcell(...) 22. └─formatters::format_value(...) 23. └─base::match.arg(round_type) [ FAIL 20 | WARN 0 | SKIP 0 | PASS 23 ] Error: ! Test failures. Execution halted Package: teal.modules.clinical Check: re-building of vignette outputs New result: ERROR Error(s) in re-building vignettes: ... --- re-building ‘decorate-module-output.Rmd’ using rmarkdown [WARNING] Deprecated: --highlight-style. Use --syntax-highlighting instead. --- finished re-building ‘decorate-module-output.Rmd’ --- re-building ‘generate_tmc_test_data.Rmd’ using rmarkdown [WARNING] Deprecated: --highlight-style. Use --syntax-highlighting instead. --- finished re-building ‘generate_tmc_test_data.Rmd’ --- re-building ‘quickstart_substitute.Rmd’ using rmarkdown Quitting from quickstart_substitute.Rmd:304-306 [unnamed-chunk-14] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error in `match.arg()`: ! 'arg' must be of length 1 --- Backtrace: ▆ 1. ├─... %>% build_table(df = adlb_f) 2. └─rtables::build_table(., df = adlb_f) 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) ``(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: processing vignette 'quickstart_substitute.Rmd' failed with diagnostics: 'arg' must be of length 1 --- failed re-building ‘quickstart_substitute.Rmd’ --- re-building ‘teal-modules-clinical.Rmd’ using rmarkdown --- finished re-building ‘teal-modules-clinical.Rmd’ SUMMARY: processing the following file failed: ‘quickstart_substitute.Rmd’ Error: Vignette re-building failed. Execution halted Package: teal.reporter Check: examples New result: ERROR Running examples in ‘teal.reporter-Ex.R’ failed The error most likely occurred in: > base::assign(".ptime", proc.time(), pos = "CheckExEnv") > ### Name: Reporter > ### Title: 'Reporter': An 'R6' class for managing reports > ### Aliases: Reporter > > ### ** Examples > > ## Don't show: > if (require("ggplot2")) withAutoprint({ # examplesIf + ## End(Don't show) + library(ggplot2) + + card1 <- teal_card("## Header 2 text", "A paragraph of default text") + card1 <- c(card1, ggplot(iris, aes(x = Petal.Length)) + geom_histogram()) + metadata(card1, "title") <- "Card1" + + card2 <- teal_card("Document introduction") + metadata(card2, "title") <- "Card2" + + reporter <- Reporter$new() + reporter$append_cards(list(card1, card2)) + ## Don't show: + }) # examplesIf Loading required package: ggplot2 > library(ggplot2) > card1 <- teal_card("## Header 2 text", "A paragraph of default text") > card1 <- c(card1, ggplot(iris, aes(x = Petal.Length)) + geom_histogram()) `stat_bin()` using `bins = 30`. Pick better value `binwidth`. > metadata(card1, "title") <- "Card1" > card2 <- teal_card("Document introduction") > metadata(card2, "title") <- "Card2" > reporter <- Reporter$new() > reporter$append_cards(list(card1, card2)) > ## End(Don't show) > ## Don't show: > if (require("ggplot2") && require("rtables")) withAutoprint({ # examplesIf + ## End(Don't show) + library(rtables) + # With the card1 from above + lyt <- analyze(split_rows_by(basic_table(), "Day"), "Ozone", afun = mean) + table_res2 <- build_table(lyt, airquality) + card2 <- teal_card( + "## Header 2 text", + "A paragraph of default text", + table_res2 + ) + metadata(card2, "title") <- "Card2" + + reporter <- Reporter$new() + reporter$append_cards(list(card1, card2)) + + names(reporter$get_cards()) + reporter$reorder_cards(c("Card2", "Card1")) + names(reporter$get_cards()) + ## Don't show: + }) # examplesIf 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 > library(rtables) > lyt <- analyze(split_rows_by(basic_table(), "Day"), "Ozone", afun = mean) > table_res2 <- build_table(lyt, airquality) Split var [Day] was not character or factor. Converting to factor Error in match.arg(round_type) : 'arg' must be of length 1 Calls: withAutoprint ... -> format_rcell -> format_value -> match.arg Execution halted Package: teal.reporter Check: tests New result: ERROR Running ‘testthat.R’ [33s/34s] Running the tests in ‘tests/testthat.R’ failed. Complete output: > pkg_name <- "teal.reporter" > library(pkg_name, character.only = TRUE) > testthat::test_check(pkg_name) Attaching package: 'testthat' The following object is masked from 'package:teal.reporter': Reporter Loading required package: shiny Saving _problems/test-Reporter-14.R Saving _problems/test-Reporter-21.R Saving _problems/test-Reporter-77.R Saving _problems/test-Reporter-82.R Saving _problems/test-Reporter-97.R Saving _problems/test-Reporter-162.R Saving _problems/test-Reporter-169.R Saving _problems/test-Reporter-177.R Saving _problems/test-Reporter-209.R Saving _problems/test-Reporter-216.R Saving _problems/test-Reporter-225.R Saving _problems/test-Reporter-238.R Saving _problems/test-Reporter-253.R Saving _problems/test-Reporter-266.R Saving _problems/test-Reporter-277.R Saving _problems/test-Reporter-284.R Saving _problems/test-Reporter-295.R Saving _problems/test-Reporter-309.R Saving _problems/test-Reporter-316.R Saving _problems/test-Reporter-322.R Saving _problems/test-Reporter-329.R Saving _problems/test-Reporter-386.R Saving _problems/test-SimpleReporter-22.R Error in (function (card) : ARTIFICIAL ERROR Error in (function (card, comment) : ARTIFICIAL ERROR Error in (function (card) : ARTIFICIAL ERROR Saving _problems/test-utils-3.R Saving _problems/test-utils-10.R Saving _problems/test-utils-17.R [ FAIL 27 | WARN 1 | SKIP 6 | PASS 348 ] ══ Skipped tests (6) ═══════════════════════════════════════════════════════════ • testing depth 3 is below current testing specification 5 (4): 'test-PreviewerReportModule-shinytest2.R:3:5', 'test-PreviewerReportModule-shinytest2.R:9:5', 'test-PreviewerReportModule-shinytest2.R:16:5', 'test-PreviewerReportModule-shinytest2.R:34:5' • too complicated as table contains random elements - possible to test with webshot (2): 'test-toHTML.R:77:5', 'test-toHTML.R:82:5' ══ Failed tests ════════════════════════════════════════════════════════════════ ── Error ('test-Reporter.R:14:3'): set_id sets the reporter id and returns reporter ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─teal.reporter:::test_reporter() at test-Reporter.R:14:3 2. ├─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 3. └─teal.reporter:::test_card2() 4. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 5. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 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::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 31. └─rtables::format_rcell(...) 32. └─formatters::format_value(...) 33. └─base::match.arg(round_type) ── Error ('test-Reporter.R:21:3'): Reporter with ReportCard ──────────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─teal.reporter:::test_card2.ReportCard() at test-Reporter.R:21:3 2. └─teal.reporter:::test_card2(card) at ./helper-Reporter.R:42:3 3. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 4. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 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::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) ``(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) ── Error ('test-Reporter.R:77:3'): get_cards returns the same cards which was added to reporter ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─teal.reporter:::test_reporter(card1 <- test_card1(), card2 <- test_card2()) at test-Reporter.R:77:3 2. │ └─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 3. └─teal.reporter:::test_card2() 4. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 5. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 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::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 31. └─rtables::format_rcell(...) 32. └─formatters::format_value(...) 33. └─base::match.arg(round_type) ── Error ('test-Reporter.R:82:3'): get_blocks returns the same blocks which was added to reporter, sep = NULL ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─teal.reporter:::test_reporter(...) at test-Reporter.R:82:3 2. │ └─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 3. └─teal.reporter:::test_card2("Another title") 4. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 5. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 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::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 31. └─rtables::format_rcell(...) 32. └─formatters::format_value(...) 33. └─base::match.arg(round_type) ── Error ('test-Reporter.R:97:3'): get_blocks by default adds 'newpage' between cards ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─teal.reporter:::test_card2("Another title") at test-Reporter.R:97:3 2. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 3. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 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::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) ``(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-Reporter.R:162:3'): from_reporter returns identical/equal object from the same reporter ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─teal.reporter:::test_reporter(card1 <- test_card1(), card2 <- test_card2()) at test-Reporter.R:162:3 2. │ └─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 3. └─teal.reporter:::test_card2() 4. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 5. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 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::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 31. └─rtables::format_rcell(...) 32. └─formatters::format_value(...) 33. └─base::match.arg(round_type) ── Error ('test-Reporter.R:169:3'): from_reporter does not return identical/equal object form other reporter ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─teal.reporter:::test_reporter(card1 <- test_card1(), card2 <- test_card2()) at test-Reporter.R:169:3 2. │ └─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 3. └─teal.reporter:::test_card2() 4. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 5. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 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::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 31. └─rtables::format_rcell(...) 32. └─formatters::format_value(...) 33. └─base::match.arg(round_type) ── Error ('test-Reporter.R:177:3'): from_reporter persists the cards structure ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─teal.reporter:::test_reporter(card1 <- test_card1(), card2 <- test_card2()) at test-Reporter.R:177:3 2. │ └─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 3. └─teal.reporter:::test_card2() 4. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 5. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 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::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 31. └─rtables::format_rcell(...) 32. └─formatters::format_value(...) 33. └─base::match.arg(round_type) ── Error ('test-Reporter.R:209:5'): from_reporter / from_reporter returns identical/equal object from the same reporter ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─teal.reporter:::test_reporter() at test-Reporter.R:209:5 2. ├─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 3. └─teal.reporter:::test_card2() 4. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 5. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 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::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 31. └─rtables::format_rcell(...) 32. └─formatters::format_value(...) 33. └─base::match.arg(round_type) ── Error ('test-Reporter.R:216:5'): from_reporter / from_reporter does not return identical/equal object form other reporter ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─teal.reporter:::test_reporter(test_card1(), test_card2()) at test-Reporter.R:216:5 2. │ └─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 3. └─teal.reporter:::test_card2() 4. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 5. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 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::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 31. └─rtables::format_rcell(...) 32. └─formatters::format_value(...) 33. └─base::match.arg(round_type) ── Error ('test-Reporter.R:225:5'): from_reporter / from_reporter persists the cards structure, but not the name ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─teal.reporter:::test_reporter(test_card1(), test_card2()) at test-Reporter.R:225:5 2. │ └─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 3. └─teal.reporter:::test_card2() 4. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 5. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 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::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 31. └─rtables::format_rcell(...) 32. └─formatters::format_value(...) 33. └─base::match.arg(round_type) ── Error ('test-Reporter.R:238:5'): to_list / require the existing directory path ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─teal.reporter:::test_reporter(test_card1(), test_card2()) at test-Reporter.R:238:5 2. │ └─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 3. └─teal.reporter:::test_card2() 4. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 5. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 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::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 31. └─rtables::format_rcell(...) 32. └─formatters::format_value(...) 33. └─base::match.arg(round_type) ── Error ('test-Reporter.R:253:5'): to_list / to_list and from_list could be used to save and retrieve a Reporter card ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─teal.reporter:::test_reporter(test_card1(), test_card2()) at test-Reporter.R:253:5 2. │ └─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 3. └─teal.reporter:::test_card2() 4. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 5. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 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::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 31. └─rtables::format_rcell(...) 32. └─formatters::format_value(...) 33. └─base::match.arg(round_type) ── Error ('test-Reporter.R:266:5'): to_list / to_list and from_list could be used to save and retrieve a Reporter blocks ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─teal.reporter:::test_reporter(test_card1(), test_card2()) at test-Reporter.R:266:5 2. │ └─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 3. └─teal.reporter:::test_card2() 4. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 5. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 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::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 31. └─rtables::format_rcell(...) 32. └─formatters::format_value(...) 33. └─base::match.arg(round_type) ── Error ('test-Reporter.R:277:5'): from_reporter / returns same object from the same reporter ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─teal.reporter:::test_reporter(card1 <- test_card1(), card2 <- test_card2()) at test-Reporter.R:277:5 2. │ └─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 3. └─teal.reporter:::test_card2() 4. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 5. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 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::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 31. └─rtables::format_rcell(...) 32. └─formatters::format_value(...) 33. └─base::match.arg(round_type) ── Error ('test-Reporter.R:284:5'): from_reporter / returns different object if id has already been set ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─teal.reporter:::test_reporter(test_card1(), test_card2()) at test-Reporter.R:284:5 2. │ └─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 3. └─teal.reporter:::test_card2() 4. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 5. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 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::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 31. └─rtables::format_rcell(...) 32. └─formatters::format_value(...) 33. └─base::match.arg(round_type) ── Error ('test-Reporter.R:295:5'): from_reporter / from_reporter persists the cards structure ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─teal.reporter:::test_reporter(test_card1(), test_card2()) at test-Reporter.R:295:5 2. │ └─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 3. └─teal.reporter:::test_card2() 4. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 5. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 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::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 31. └─rtables::format_rcell(...) 32. └─formatters::format_value(...) 33. └─base::match.arg(round_type) ── Error ('test-Reporter.R:309:5'): to_jsondir / to_jsondir require the existing directory path ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─teal.reporter:::test_reporter(test_card1(), test_card2()) at test-Reporter.R:309:5 2. │ └─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 3. └─teal.reporter:::test_card2() 4. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 5. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 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::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 31. └─rtables::format_rcell(...) 32. └─formatters::format_value(...) 33. └─base::match.arg(round_type) ── Error ('test-Reporter.R:316:5'): to_jsondir / to_jsondir returns the same dir it was provided to it ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─teal.reporter:::test_reporter(test_card1(), test_card2()) at test-Reporter.R:316:5 2. │ └─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 3. └─teal.reporter:::test_card2() 4. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 5. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 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::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 31. └─rtables::format_rcell(...) 32. └─formatters::format_value(...) 33. └─base::match.arg(round_type) ── Error ('test-Reporter.R:322:5'): to_jsondir / from_jsondir returns identical/equal object ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─teal.reporter:::test_reporter(test_card1(), test_card2()) at test-Reporter.R:322:5 2. │ └─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 3. └─teal.reporter:::test_card2() 4. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 5. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 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::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 31. └─rtables::format_rcell(...) 32. └─formatters::format_value(...) 33. └─base::match.arg(round_type) ── Error ('test-Reporter.R:329:5'): to_jsondir / to_jsondir and from_jsondir could be used to save and retrive a Reporter ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─teal.reporter:::test_reporter(test_card1(), test_card2()) at test-Reporter.R:329:5 2. │ └─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 3. └─teal.reporter:::test_card2() 4. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 5. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 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::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 31. └─rtables::format_rcell(...) 32. └─formatters::format_value(...) 33. └─base::match.arg(round_type) ── Error ('test-Reporter.R:386:3'): from_reporter persists the cards structure ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─teal.reporter:::test_card2("Another title") at test-Reporter.R:386:3 2. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 3. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 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::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) ``(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-SimpleReporter.R:2:3'): simple_reporter_srv - render and downlaod a document ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─shiny::testServer(...) at test-SimpleReporter.R:2:3 2. │ └─"id" %in% names(args) 3. └─teal.reporter:::test_reporter() 4. ├─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 5. └─teal.reporter:::test_card2() 6. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 7. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 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::make_row_df(...) 19. └─rtables::make_row_df(...) 20. └─rtables (local) .local(...) 21. ├─formatters::pagdfrow(...) 22. │ └─base::data.frame(...) 23. ├─formatters::nlines(...) 24. └─rtables::nlines(...) 25. ├─base::as.vector(get_formatted_cells(x)) 26. ├─rtables::get_formatted_cells(x) 27. └─rtables::get_formatted_cells(x) 28. ├─base::matrix(...) 29. ├─base::unlist(...) 30. └─base::Map(...) 31. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 32. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 33. └─rtables::format_rcell(...) 34. └─formatters::format_value(...) 35. └─base::match.arg(round_type) ── Error ('test-to_rmd.R:78:5'): to_rmd generating blocks with rds auxiliary files / data frames are converted to code chunks with readRDS ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─teal.reporter (local) expect_rds_generation(to_rmd(data.frame(x = 1:5, y = letters[1:5]))) at test-to_rmd.R:78:5 2. │ └─testthat::expect_match(result, "^```[{][rR].*[}].*readRDS[(].*[)].*```[ \n]*$") at test-to_rmd.R:59:5 3. │ └─testthat::quasi_label(enquo(object), label) 4. │ └─rlang::eval_bare(expr, quo_get_env(quo)) 5. ├─teal.reporter::to_rmd(data.frame(x = 1:5, y = letters[1:5])) 6. └─teal.reporter:::to_rmd.default(data.frame(x = 1:5, y = letters[1:5])) 7. ├─teal.reporter:::.to_rmd(block, ...) 8. └─teal.reporter:::.to_rmd.data.frame(block, ...) 9. └─teal.reporter:::to_flextable(block) 10. └─rtables.officer::tt_to_flextable(rtables::df_to_tt(content)) 11. ├─rtables::matrix_form(tt, fontspec = fontspec, indent_rownames = FALSE) 12. └─rtables::matrix_form(tt, fontspec = fontspec, indent_rownames = FALSE) 13. └─rtables:::.tbl_header_mat(obj) 14. ├─base::matrix(...) 15. └─base::rapply(...) 16. └─rtables (local) ``(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) ``(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-utils.R:3:3'): to_flextable: supported class `data.frame` ────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─teal.reporter:::to_flextable(data_frame) at test-utils.R:3:3 2. └─rtables.officer::tt_to_flextable(rtables::df_to_tt(content)) 3. ├─rtables::matrix_form(tt, fontspec = fontspec, indent_rownames = FALSE) 4. └─rtables::matrix_form(tt, fontspec = fontspec, indent_rownames = FALSE) 5. └─rtables:::.tbl_header_mat(obj) 6. ├─base::matrix(...) 7. └─base::rapply(...) 8. └─rtables (local) ``(X, ...) 9. ├─rtables::get_formatted_cells(x) 10. └─rtables::get_formatted_cells(x) 11. ├─base::matrix(...) 12. ├─base::unlist(...) 13. └─base::Map(...) 14. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 15. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 16. └─rtables::format_rcell(...) 17. └─formatters::format_value(...) 18. └─base::match.arg(round_type) ── Error ('test-utils.R:8:3'): to_flextable: supported class `rtables` ───────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─... %>% rtables::build_table(formatters::DM) at test-utils.R:8:3 2. └─rtables::build_table(., formatters::DM) 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) ``(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-utils.R:17:3'): to_flextable: supported class `listing_df` ───── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─teal.reporter:::to_flextable(lsting) at test-utils.R:17:3 2. ├─rlistings::matrix_form(content) 3. └─rlistings::matrix_form(content) 4. └─rlistings (local) .local(...) 5. └─base::vapply(...) 6. └─formatters (local) FUN(X[[i]], ...) 7. └─base::match.arg(round_type) [ FAIL 27 | WARN 1 | SKIP 6 | PASS 348 ] Error: ! Test failures. Execution halted Package: tern Check: examples New result: ERROR Running examples in ‘tern-Ex.R’ failed The error most likely occurred in: > base::assign(".ptime", proc.time(), pos = "CheckExEnv") > ### Name: abnormal > ### Title: Count patients with abnormal range values > ### Aliases: abnormal count_abnormal s_count_abnormal a_count_abnormal > ### Keywords: internal > > ### ** Examples > > library(dplyr) 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 > > df <- data.frame( + USUBJID = as.character(c(1, 1, 2, 2)), + ANRIND = factor(c("NORMAL", "LOW", "HIGH", "HIGH")), + BNRIND = factor(c("NORMAL", "NORMAL", "HIGH", "HIGH")), + ONTRTFL = c("", "Y", "", "Y"), + stringsAsFactors = FALSE + ) > > # Select only post-baseline records. > df <- df %>% + filter(ONTRTFL == "Y") > > # Layout creating function. > basic_table() %>% + count_abnormal(var = "ANRIND", abnormal = list(high = "HIGH", low = "LOW")) %>% + build_table(df) Error in match.arg(round_type) : 'arg' must be of length 1 Calls: %>% ... -> format_rcell -> format_value -> match.arg Execution halted Package: tern Check: re-building of vignette outputs New result: ERROR Error(s) in re-building vignettes: ... --- re-building ‘missing_values.Rmd’ using rmarkdown Quitting from missing_values.Rmd:42-63 [unnamed-chunk-3] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error in `match.arg()`: ! 'arg' must be of length 1 --- Backtrace: ▆ 1. ├─... %>% build_table(adsl) 2. └─rtables::build_table(., 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::make_row_df(...) 11. └─rtables::make_row_df(...) 12. └─rtables (local) .local(...) 13. ├─formatters::pagdfrow(...) 14. │ └─base::data.frame(...) 15. ├─formatters::nlines(...) 16. └─rtables::nlines(...) 17. ├─base::as.vector(get_formatted_cells(x)) 18. ├─rtables::get_formatted_cells(x) 19. └─rtables::get_formatted_cells(x) 20. ├─base::matrix(...) 21. ├─base::unlist(...) 22. └─base::Map(...) 23. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 24. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 25. └─rtables::format_rcell(...) 26. └─formatters::format_value(...) 27. └─base::match.arg(round_type) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error: processing vignette 'missing_values.Rmd' failed with diagnostics: 'arg' must be of length 1 --- failed re-building ‘missing_values.Rmd’ --- re-building ‘tables.Rmd’ using rmarkdown Quitting from tables.Rmd:107-121 [unnamed-chunk-4] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error in `match.arg()`: ! 'arg' must be of length 1 --- Backtrace: ▆ 1. ├─... %>% build_table(adsl) 2. └─rtables::build_table(., 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::make_row_df(...) 11. └─rtables::make_row_df(...) 12. └─rtables (local) .local(...) 13. ├─formatters::pagdfrow(...) 14. │ └─base::data.frame(...) 15. ├─formatters::nlines(...) 16. └─rtables::nlines(...) 17. ├─base::as.vector(get_formatted_cells(x)) 18. ├─rtables::get_formatted_cells(x) 19. └─rtables::get_formatted_cells(x) 20. ├─base::matrix(...) 21. ├─base::unlist(...) 22. └─base::Map(...) 23. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 24. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 25. └─rtables::format_rcell(...) 26. └─formatters::format_value(...) 27. └─base::match.arg(round_type) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error: processing vignette 'tables.Rmd' failed with diagnostics: 'arg' must be of length 1 --- failed re-building ‘tables.Rmd’ --- re-building ‘tern.Rmd’ using rmarkdown Quitting from tern.Rmd:111-118 [unnamed-chunk-5] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error in `match.arg()`: ! 'arg' must be of length 1 --- Backtrace: ▆ 1. └─rtables::build_table(lyt, df = adrs) 2. └─rtables::update_ref_indexing(tab) 3. ├─formatters::make_row_df(tt) 4. └─rtables::make_row_df(tt) 5. └─rtables (local) .local(...) 6. ├─formatters::make_row_df(...) 7. └─rtables::make_row_df(...) 8. └─rtables (local) .local(...) 9. ├─formatters::make_row_df(...) 10. └─rtables::make_row_df(...) 11. └─rtables (local) .local(...) 12. ├─formatters::make_row_df(...) 13. └─rtables::make_row_df(...) 14. └─rtables (local) .local(...) 15. ├─formatters::pagdfrow(...) 16. │ └─base::data.frame(...) 17. ├─formatters::nlines(...) 18. └─rtables::nlines(...) 19. ├─base::as.vector(get_formatted_cells(x)) 20. ├─rtables::get_formatted_cells(x) 21. └─rtables::get_formatted_cells(x) 22. ├─base::matrix(...) 23. ├─base::unlist(...) 24. └─base::Map(...) 25. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 26. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 27. └─rtables::format_rcell(...) 28. └─formatters::format_value(...) 29. └─base::match.arg(round_type) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error: processing vignette 'tern.Rmd' failed with diagnostics: 'arg' must be of length 1 --- failed re-building ‘tern.Rmd’ --- re-building ‘tern_formats.Rmd’ using rmarkdown Quitting from tern_formats.Rmd:55-76 [unnamed-chunk-3] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error in `match.arg()`: ! 'arg' must be of length 1 --- Backtrace: ▆ 1. ├─... %>% build_table(df2) 2. └─rtables::build_table(., df2) 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) ``(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: processing vignette 'tern_formats.Rmd' failed with diagnostics: 'arg' must be of length 1 --- failed re-building ‘tern_formats.Rmd’ --- re-building ‘tern_functions_guide.Rmd’ using rmarkdown Quitting from tern_functions_guide.Rmd:64-86 [unnamed-chunk-3] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error in `match.arg()`: ! 'arg' must be of length 1 --- Backtrace: ▆ 1. ├─... %>% print() 2. ├─base::print(.) 3. └─rtables::build_table(., dta_test) 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::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) ``(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: processing vignette 'tern_functions_guide.Rmd' failed with diagnostics: 'arg' must be of length 1 --- failed re-building ‘tern_functions_guide.Rmd’ SUMMARY: processing the following files failed: ‘missing_values.Rmd’ ‘tables.Rmd’ ‘tern.Rmd’ ‘tern_formats.Rmd’ ‘tern_functions_guide.Rmd’ Error: Vignette re-building failed. Execution halted Package: tern Check: tests New result: ERROR Running ‘testthat.R’ [12s/12s] Running the tests in ‘tests/testthat.R’ failed. Complete output: > pkg_name <- "tern" > library(testthat) > test_check(pkg_name, reporter = ParallelProgressReporter$new()) 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 Registered S3 method overwritten by 'tern': method from tidy.glm broom 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 ✔ | F W S OK | Context ⠋ [ FAIL 0 | WARN 0 | SKIP 0 | PASS 0 ] Starting up... ✖ | 3 4 4 | abnormal ──────────────────────────────────────────────────────────────────────────────── Error ('test-abnormal.R:98:3'): count_abnormal works with default arguments Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─... %>% build_table(df) at test-abnormal.R:98:3 2. └─rtables::build_table(., df) 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) ``(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-abnormal.R:122:3'): count_abnormal works with custom arguments Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─... %>% build_table(df2) at test-abnormal.R:122:3 2. └─rtables::build_table(., df2) 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) ``(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-abnormal.R:154:3'): count_abnormal works with default arguments and visit Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─... %>% build_table(df) at test-abnormal.R:154:3 2. └─rtables::build_table(., df) 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) ``(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) ──────────────────────────────────────────────────────────────────────────────── ✖ | 2 3 8 | abnormal_by_baseline ──────────────────────────────────────────────────────────────────────────────── Error ('test-abnormal_by_baseline.R:89:3'): count_abnormal_by_baseline works with default arguments Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─... %>% build_table(df) at test-abnormal_by_baseline.R:89:3 2. └─rtables::build_table(., df) 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::pagdfrow(...) 14. │ └─base::data.frame(...) 15. ├─formatters::nlines(...) 16. └─rtables::nlines(...) 17. ├─base::as.vector(get_formatted_cells(x)) 18. ├─rtables::get_formatted_cells(x) 19. └─rtables::get_formatted_cells(x) 20. ├─base::matrix(...) 21. ├─base::unlist(...) 22. └─base::Map(...) 23. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 24. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 25. └─rtables::format_rcell(...) 26. └─formatters::format_value(...) 27. └─base::match.arg(round_type) Error ('test-abnormal_by_baseline.R:103:3'): count_abnormal_by_baseline works with custom arguments Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─... %>% build_table(df2) at test-abnormal_by_baseline.R:103:3 2. └─rtables::build_table(., df2) 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::pagdfrow(...) 14. │ └─base::data.frame(...) 15. ├─formatters::nlines(...) 16. └─rtables::nlines(...) 17. ├─base::as.vector(get_formatted_cells(x)) 18. ├─rtables::get_formatted_cells(x) 19. └─rtables::get_formatted_cells(x) 20. ├─base::matrix(...) 21. ├─base::unlist(...) 22. └─base::Map(...) 23. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 24. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 25. └─rtables::format_rcell(...) 26. └─formatters::format_value(...) 27. └─base::match.arg(round_type) ──────────────────────────────────────────────────────────────────────────────── ✖ | 1 2 3 | abnormal_by_marked [3.3s] ──────────────────────────────────────────────────────────────────────────────── Error ('test-abnormal_by_marked.R:242:3'): count_abnormal_by_marked works as expected Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─... %>% build_table(df = adlb_f) at test-abnormal_by_marked.R:242:3 2. └─rtables::build_table(., df = adlb_f) 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) ``(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) ──────────────────────────────────────────────────────────────────────────────── ✖ | 1 1 2 | abnormal_by_worst_grade ──────────────────────────────────────────────────────────────────────────────── Error ('test-abnormal_by_worst_grade.R:60:3'): count_abnormal_by_worst_grade works as expected Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─... %>% build_table(df = adlb_f) at test-abnormal_by_worst_grade.R:60:3 2. └─rtables::build_table(., df = adlb_f) 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::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::pagdfrow(...) 23. │ └─base::data.frame(...) 24. ├─formatters::nlines(...) 25. └─rtables::nlines(...) 26. ├─base::as.vector(get_formatted_cells(x)) 27. ├─rtables::get_formatted_cells(x) 28. └─rtables::get_formatted_cells(x) 29. ├─base::matrix(...) 30. ├─base::unlist(...) 31. └─base::Map(...) 32. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 33. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 34. └─rtables::format_rcell(...) 35. └─formatters::format_value(...) 36. └─base::match.arg(round_type) ──────────────────────────────────────────────────────────────────────────────── ✖ | 1 7 11 | abnormal_lab_worsen_by_baseline ──────────────────────────────────────────────────────────────────────────────── Error ('test-abnormal_lab_worsen_by_baseline.R:195:3'): count_abnormal_lab_worsen_by_baseline Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─... %>% build_table(df = df, alt_counts_df = tern_ex_adsl) at test-abnormal_lab_worsen_by_baseline.R:195:3 2. └─rtables::build_table(., df = df, alt_counts_df = tern_ex_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::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::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::pagdfrow(...) 23. │ └─base::data.frame(...) 24. ├─formatters::nlines(...) 25. └─rtables::nlines(...) 26. ├─base::as.vector(get_formatted_cells(x)) 27. ├─rtables::get_formatted_cells(x) 28. └─rtables::get_formatted_cells(x) 29. ├─base::matrix(...) 30. ├─base::unlist(...) 31. └─base::Map(...) 32. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 33. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 34. └─rtables::format_rcell(...) 35. └─formatters::format_value(...) 36. └─base::match.arg(round_type) ──────────────────────────────────────────────────────────────────────────────── ⠙ [ FAIL 30 | WARN 0 | SKIP 32 | PASS 60 ] @ analyze_variables ──────────────────────────────────────────────────────────────────────────────── Error ('test-analyze_variables.R:172:3'): a_summary work with healthy input. Error in `h(simpleError(msg, call))`: error in evaluating the argument 'x' in selecting a method for function 'print': 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_snapshot(res) at test-analyze_variables.R:172: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. │ └─rtables:::print.RowsVerticalSection(x) 24. │ ├─base::print(...) 25. │ ├─base::data.frame(...) 26. │ └─base::vapply(x, format_rcell, character(1)) 27. │ └─rtables (local) FUN(X[[i]], ...) 28. │ └─formatters::format_value(...) 29. │ └─base::match.arg(round_type) 30. │ └─base::stop(gettextf("'%s' must be of length 1", "arg"), domain = NA) 31. └─base::.handleSimpleError(...) 32. └─base (local) h(simpleError(msg, call)) Error ('test-analyze_variables.R:232:3'): a_summary works with custom input. Error in `h(simpleError(msg, call))`: error in evaluating the argument 'x' in selecting a method for function 'print': 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_snapshot(res) at test-analyze_variables.R:232: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. │ └─rtables:::print.RowsVerticalSection(x) 24. │ ├─base::print(...) 25. │ ├─base::data.frame(...) 26. │ └─base::vapply(x, format_rcell, character(1)) 27. │ └─rtables (local) FUN(X[[i]], ...) 28. │ └─formatters::format_value(...) 29. │ └─base::match.arg(round_type) 30. │ └─base::stop(gettextf("'%s' must be of length 1", "arg"), domain = NA) 31. └─base::.handleSimpleError(...) 32. └─base (local) h(simpleError(msg, call)) Error ('test-analyze_variables.R:253:3'): a_summary works with healthy input when compare_with_ref_group = TRUE. Error in `h(simpleError(msg, call))`: error in evaluating the argument 'x' in selecting a method for function 'print': 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_snapshot(res) at test-analyze_variables.R:253: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. │ └─rtables:::print.RowsVerticalSection(x) 24. │ ├─base::print(...) 25. │ ├─base::data.frame(...) 26. │ └─base::vapply(x, format_rcell, character(1)) 27. │ └─rtables (local) FUN(X[[i]], ...) 28. │ └─formatters::format_value(...) 29. │ └─base::match.arg(round_type) 30. │ └─base::stop(gettextf("'%s' must be of length 1", "arg"), domain = NA) 31. └─base::.handleSimpleError(...) 32. └─base (local) h(simpleError(msg, call)) Error ('test-analyze_variables.R:293:3'): a_summary works with custom input when compare_with_ref_group = TRUE. Error in `h(simpleError(msg, call))`: error in evaluating the argument 'x' in selecting a method for function 'print': 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_snapshot(res) at test-analyze_variables.R:293: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. │ └─rtables:::print.RowsVerticalSection(x) 24. │ ├─base::print(...) 25. │ ├─base::data.frame(...) 26. │ └─base::vapply(x, format_rcell, character(1)) 27. │ └─rtables (local) FUN(X[[i]], ...) 28. │ └─formatters::format_value(...) 29. │ └─base::match.arg(round_type) 30. │ └─base::stop(gettextf("'%s' must be of length 1", "arg"), domain = NA) 31. └─base::.handleSimpleError(...) 32. └─base (local) h(simpleError(msg, call)) Error ('test-analyze_variables.R:310:3'): `analyze_vars` works with healthy input, default `na_rm = TRUE`. Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─rtables::build_table(l, df = dta_test) at test-analyze_variables.R:310:3 2. └─rtables::update_ref_indexing(tab) 3. ├─formatters::make_row_df(tt) 4. └─rtables::make_row_df(tt) 5. └─rtables (local) .local(...) 6. ├─formatters::make_row_df(...) 7. └─rtables::make_row_df(...) 8. └─rtables (local) .local(...) 9. ├─formatters::pagdfrow(...) 10. │ └─base::data.frame(...) 11. ├─formatters::nlines(...) 12. └─rtables::nlines(...) 13. ├─base::as.vector(get_formatted_cells(x)) 14. ├─rtables::get_formatted_cells(x) 15. └─rtables::get_formatted_cells(x) 16. ├─base::matrix(...) 17. ├─base::unlist(...) 18. └─base::Map(...) 19. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 20. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 21. └─rtables::format_rcell(...) 22. └─formatters::format_value(...) 23. └─base::match.arg(round_type) Error ('test-analyze_variables.R:325:3'): `analyze_vars` works with healthy input, and control function. Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─rtables::build_table(l, df = dta_test) at test-analyze_variables.R:325:3 2. └─rtables::update_ref_indexing(tab) 3. ├─formatters::make_row_df(tt) 4. └─rtables::make_row_df(tt) 5. └─rtables (local) .local(...) 6. ├─formatters::make_row_df(...) 7. └─rtables::make_row_df(...) 8. └─rtables (local) .local(...) 9. ├─formatters::pagdfrow(...) 10. │ └─base::data.frame(...) 11. ├─formatters::nlines(...) 12. └─rtables::nlines(...) 13. ├─base::as.vector(get_formatted_cells(x)) 14. ├─rtables::get_formatted_cells(x) 15. └─rtables::get_formatted_cells(x) 16. ├─base::matrix(...) 17. ├─base::unlist(...) 18. └─base::Map(...) 19. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 20. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 21. └─rtables::format_rcell(...) 22. └─formatters::format_value(...) 23. └─base::match.arg(round_type) Error ('test-analyze_variables.R:336:3'): `analyze_vars` works with healthy input, alternative `na_rm = FALSE` Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─rtables::build_table(l, df = dta_test) at test-analyze_variables.R:336:3 2. └─rtables::update_ref_indexing(tab) 3. ├─formatters::make_row_df(tt) 4. └─rtables::make_row_df(tt) 5. └─rtables (local) .local(...) 6. ├─formatters::make_row_df(...) 7. └─rtables::make_row_df(...) 8. └─rtables (local) .local(...) 9. ├─formatters::pagdfrow(...) 10. │ └─base::data.frame(...) 11. ├─formatters::nlines(...) 12. └─rtables::nlines(...) 13. ├─base::as.vector(get_formatted_cells(x)) 14. ├─rtables::get_formatted_cells(x) 15. └─rtables::get_formatted_cells(x) 16. ├─base::matrix(...) 17. ├─base::unlist(...) 18. └─base::Map(...) 19. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 20. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 21. └─rtables::format_rcell(...) 22. └─formatters::format_value(...) 23. └─base::match.arg(round_type) Error ('test-analyze_variables.R:345:3'): `analyze_vars` works with healthy factor input Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─basic_table() %>% analyze_vars(vars = "foo") %>% ... at test-analyze_variables.R:345:3 2. └─rtables::build_table(., dta) 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) ``(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-analyze_variables.R:356:3'): `analyze_vars` works with healthy factor input, alternative `na_rm = FALSE` Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─... %>% build_table(dta) at test-analyze_variables.R:356:3 2. └─rtables::build_table(., dta) 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) ``(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-analyze_variables.R:380:3'): `analyze_vars` works with factors and different denominators Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─start %>% analyze_vars("RACE", denom = "n") %>% ... at test-analyze_variables.R:380:3 2. └─rtables::build_table(., DM) 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) ``(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-analyze_variables.R:400:3'): analyze_vars works in demographic table example Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─... %>% build_table(DM) at test-analyze_variables.R:400:3 2. └─rtables::build_table(., DM) 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) ``(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-analyze_variables.R:418:3'): `analyze_vars` works with character input and gives the same result as with factor Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_warning(result <- build_table(l, dta)) at test-analyze_variables.R:418:3 2. │ └─testthat:::expect_condition_matching_(...) 3. │ └─testthat:::quasi_capture(...) 4. │ ├─testthat (local) .capture(...) 5. │ │ └─base::withCallingHandlers(...) 6. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo)) 7. └─rtables::build_table(l, dta) 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::pagdfrow(...) 16. │ └─base::data.frame(...) 17. ├─formatters::nlines(...) 18. └─rtables::nlines(...) 19. ├─base::as.vector(get_formatted_cells(x)) 20. ├─rtables::get_formatted_cells(x) 21. └─rtables::get_formatted_cells(x) 22. ├─base::matrix(...) 23. ├─base::unlist(...) 24. └─base::Map(...) 25. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 26. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 27. └─rtables::format_rcell(...) 28. └─formatters::format_value(...) 29. └─base::match.arg(round_type) Error ('test-analyze_variables.R:442:3'): `analyze_vars` does not work with sparse character input due to missing statistics Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_silent(build_table(l, dta_factor)) at test-analyze_variables.R:442: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. └─rtables::build_table(l, dta_factor) 10. └─rtables::update_ref_indexing(tab) 11. ├─formatters::make_row_df(tt) 12. └─rtables::make_row_df(tt) 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) ``(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-analyze_variables.R:450:3'): `analyze_vars` works with logical input Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─basic_table() %>% analyze_vars(vars = "boo") %>% ... at test-analyze_variables.R:450:3 2. └─rtables::build_table(., dta) 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) ``(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-analyze_variables.R:461:3'): `analyze_vars` works with healthy logical input, alternative `na_rm = FALSE` Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─... %>% build_table(dta) at test-analyze_variables.R:461:3 2. └─rtables::build_table(., dta) 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) ``(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-analyze_variables.R:486:3'): `analyze_vars` works with empty named numeric variables Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─... %>% build_table(dta) at test-analyze_variables.R:486:3 2. └─rtables::build_table(., dta) 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) ``(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-analyze_variables.R:503:3'): analyze_vars 'na_str' argument works as expected Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─... %>% build_table(dta) at test-analyze_variables.R:503:3 2. └─rtables::build_table(., dta) 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) ``(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-analyze_variables.R:530:3'): analyze_vars works correctly with auto formats Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─... %>% build_table(dt) at test-analyze_variables.R:530:3 2. └─rtables::build_table(., dt) 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) ``(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-analyze_variables.R:544:3'): analyze_vars works well with additional stat names (.stat_names) Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─... %>% as_result_df(make_ard = TRUE) at test-analyze_variables.R:544:3 2. ├─rtables::as_result_df(., make_ard = TRUE) 3. │ └─checkmate::assert_class(tt, "VTableTree") 4. │ └─checkmate::checkClass(x, classes, ordered, null.ok) 5. └─rtables::build_table(., dt) 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::pagdfrow(...) 14. │ └─base::data.frame(...) 15. ├─formatters::nlines(...) 16. └─rtables::nlines(...) 17. ├─base::as.vector(get_formatted_cells(x)) 18. ├─rtables::get_formatted_cells(x) 19. └─rtables::get_formatted_cells(x) 20. ├─base::matrix(...) 21. ├─base::unlist(...) 22. └─base::Map(...) 23. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 24. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 25. └─rtables::format_rcell(...) 26. └─formatters::format_value(...) 27. └─base::match.arg(round_type) Error ('test-analyze_variables.R:559:3'): analyze_vars works well with additional stat names (.stat_names) and stats (custom fnc) Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─... %>% build_table(dt) at test-analyze_variables.R:559:3 2. └─rtables::build_table(., dt) 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::pagdfrow(...) 14. │ └─base::data.frame(...) 15. ├─formatters::nlines(...) 16. └─rtables::nlines(...) 17. ├─base::as.vector(get_formatted_cells(x)) 18. ├─rtables::get_formatted_cells(x) 19. └─rtables::get_formatted_cells(x) 20. ├─base::matrix(...) 21. ├─base::unlist(...) 22. └─base::Map(...) 23. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 24. └─rtables (local) ``(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 25. └─rtables::format_rcell(...) 26. └─formatters::format_value(...) 27. └─base::match.arg(round_type) Error ('test-analyze_variables.R:624:3'): analyze_vars keeps the order of mixed custom fnc and defaults Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─... %>% build_table(tern_ex_adsl) at test-analyze_variables.R:624:3 2. └─rtables::build_table(., tern_ex_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) ``(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-analyze_variables.R:662:3'): analyze_vars warnings for geom_verbose work Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─testthat::expect_warning(...) at test-analyze_variables.R:662:3 2. │ └─testthat:::expect_condition_matching_(...) 3. │ └─testthat:::quasi_capture(...) 4. │ ├─testthat (local) .capture(...) 5. │ │ └─base::withCallingHandlers(...) 6. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo)) 7. ├─... %>% build_table(tmp_df) 8. └─rtables::build_table(., tmp_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) ``(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) Maximum number of failures exceeded; quitting. ℹ Increase this number with (e.g.) `testthat::set_max_fails(Inf)` Error: ! Test failures. Execution halted Package: tern.gee Check: examples New result: ERROR Running examples in ‘tern.gee-Ex.R’ failed The error most likely occurred in: > base::assign(".ptime", proc.time(), pos = "CheckExEnv") > ### Name: tabulate_gee > ### Title: Tabulation of a GEE Model > ### Aliases: tabulate_gee as.rtable.tern_gee s_lsmeans_logistic > ### a_lsmeans_logistic summarize_gee_logistic > > ### ** Examples > > library(dplyr) 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 > > df <- fev_data %>% + mutate(AVAL = as.integer(fev_data$FEV1 > 30)) > df_counts <- df %>% + select(USUBJID, ARMCD) %>% + unique() > > lsmeans_df <- lsmeans(fit_gee(vars = vars_gee(arm = "ARMCD"), data = df)) > > s_lsmeans_logistic(lsmeans_df[1, ], .in_ref_col = TRUE) $n [1] 420 $adj_prop_se [1] 0.88390403 0.01948562 $adj_prop_ci [1] 0.8398239 0.9170515 attr(,"label") [1] "95% CI" $odds_ratio_est character(0) $odds_ratio_ci character(0) attr(,"label") [1] "95% CI" $log_odds_ratio_est character(0) $log_odds_ratio_ci character(0) attr(,"label") [1] "95% CI" > > s_lsmeans_logistic(lsmeans_df[2, ], .in_ref_col = FALSE) $n [1] 380 $adj_prop_se [1] 0.94325891 0.01386798 $adj_prop_ci [1] 0.9090296 0.9651032 attr(,"label") [1] "95% CI" $odds_ratio_est [1] 2.18346 $odds_ratio_ci [1] 1.161678 4.103974 attr(,"label") [1] "95% CI" $log_odds_ratio_est [1] 0.7809108 $log_odds_ratio_ci [1] 0.1498659 1.4119557 attr(,"label") [1] "95% CI" > basic_table() %>% + split_cols_by("ARMCD") %>% + add_colcounts() %>% + summarize_gee_logistic( + .in_ref_col = FALSE + ) %>% + build_table(lsmeans_df, alt_counts_df = df_counts) Error in match.arg(round_type) : 'arg' must be of length 1 Calls: %>% ... -> format_rcell -> format_value -> match.arg Execution halted Package: tern.gee Check: re-building of vignette outputs New result: ERROR Error(s) in re-building vignettes: ... --- re-building ‘tern-gee.Rmd’ using rmarkdown Quitting from tern-gee.Rmd:122-133 [unnamed-chunk-5] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error in `match.arg()`: ! 'arg' must be of length 1 --- Backtrace: ▆ 1. ├─... %>% build_table(fev_lsmeans, alt_counts_df = fev_counts) 2. └─rtables::build_table(., fev_lsmeans, alt_counts_df = fev_counts) 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) ``(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: processing vignette 'tern-gee.Rmd' failed with diagnostics: 'arg' must be of length 1 --- failed re-building ‘tern-gee.Rmd’ SUMMARY: processing the following file failed: ‘tern-gee.Rmd’ Error: Vignette re-building failed. Execution halted Package: tern.gee Check: tests New result: ERROR Running ‘testthat.R’ [6s/6s] 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) ``(``) 25. │ └─rtables (local) ``(``) 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) ``(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) ``(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-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) ``(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) ``(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 Package: tern.mmrm Check: examples New result: ERROR Running examples in ‘tern.mmrm-Ex.R’ failed The error most likely occurred in: > base::assign(".ptime", proc.time(), pos = "CheckExEnv") > ### Name: g_mmrm_lsmeans > ### Title: Plot LS means for MMRM > ### Aliases: g_mmrm_lsmeans > > ### ** Examples > > library(dplyr) 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_results <- fit_mmrm( + vars = list( + response = "FEV1", + covariates = c("RACE", "SEX"), + id = "USUBJID", + arm = "ARMCD", + visit = "AVISIT" + ), + data = mmrm_test_data, + cor_struct = "unstructured", + weights_emmeans = "equal" + ) > g_mmrm_lsmeans(mmrm_results, constant_baseline = c(BSL = 0)) Coordinate system already present. ℹ Adding new coordinate system, which will replace the existing one. > g_mmrm_lsmeans( + mmrm_results, + select = "estimates", + show_lines = TRUE, + xlab = "Visit" + ) > g_mmrm_lsmeans( + mmrm_results, + select = "contrasts", + titles = c(contrasts = "Contrasts of FKSI-FWB means"), + show_pval = TRUE, + show_lines = TRUE, + width = 0.8 + ) Coordinate system already present. ℹ Adding new coordinate system, which will replace the existing one. > > mmrm_test_data2 <- mmrm_test_data %>% + filter(ARMCD == "TRT") > > mmrm_results_no_arm <- fit_mmrm( + vars = list( + response = "FEV1", + covariates = c("RACE", "SEX"), + id = "USUBJID", + visit = "AVISIT" + ), + data = mmrm_test_data2, + cor_struct = "unstructured", + weights_emmeans = "equal" + ) > > g_mmrm_lsmeans(mmrm_results_no_arm, select = "estimates") > g_mmrm_lsmeans( + mmrm_results_no_arm, + select = c("estimates", "contrasts"), + titles = c( + estimates = "Adjusted mean of FKSI-FWB", + contrasts = "it will not be created" + ), + show_pval = TRUE, + width = 0.8 + ) > > g_mmrm_lsmeans( + mmrm_results_no_arm, + select = "estimates", + titles = c(estimates = "Adjusted mean of FKSI-FWB"), + show_pval = TRUE, + width = 0.8, + show_lines = TRUE + ) `geom_line()`: Each group consists of only one observation. ℹ Do you need to adjust the group aesthetic? > > g_mmrm_lsmeans( + mmrm_results, + select = "estimates", + titles = c(estimates = "Adjusted mean of FKSI-FWB"), + table_stats = c("n", "ci") + ) Error in match.arg(round_type) : 'arg' must be of length 1 Calls: g_mmrm_lsmeans ... format_cell -> format_rcell -> format_value -> match.arg Execution halted Package: tern.mmrm Check: tests New result: ERROR Running ‘testthat.R’ [19s/19s] 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 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 [3.8s] ✔ | 4 | formula ✖ | 5 11 15 | g_mmrm [5.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 [1.4s] ✖ | 2 4 5 | subgroups [3.8s] ──────────────────────────────────────────────────────────────────────────────── 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) ``(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) ``(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) ``(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) ``(``) 25. │ └─rtables (local) ``(``) 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) ``(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) ``(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) ``(``) 25. │ └─rtables (local) ``(``) 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) ``(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) ``(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) ``(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