Last updated on 2025-12-08 21:49:28 CET.
| Package | ERROR | NOTE | OK |
|---|---|---|---|
| autoslider.core | 2 | 3 | 8 |
| chevron | 2 | 11 | |
| dunlin | 13 | ||
| filters | 13 | ||
| formatters | 13 | ||
| nestcolor | 13 | ||
| random.cdisc.data | 3 | 10 | |
| rlistings | 13 | ||
| rtables | 2 | 3 | 8 |
| rtables.officer | 2 | 11 | |
| tern | 2 | 3 | 8 |
| tern.gee | 2 | 11 | |
| tern.mmrm | 2 | 11 |
Current CRAN status: ERROR: 2, NOTE: 3, OK: 8
Version: 0.3.1
Check: examples
Result: ERROR
Running examples in ‘autoslider.core-Ex.R’ failed
The error most likely occurred in:
> ### 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 ... <Anonymous> -> format_rcell -> format_value -> match.arg
Execution halted
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc
Version: 0.3.1
Check: tests
Result: ERROR
Running ‘testthat.R’ [79s/246s]
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 [18.3s]
✔ | 17 | assert
Loading required package: filters
<simpleError: `target` must be a character vector containing no `NA` values.>
✔ | 1 | bad_filters
✔ | 1 0 | data_snapshot
[[1]]
[[1]]
[[2]]
✔ | 1 9 | decorate [9.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) `<fn>`(x = `<rpptx>`, master = "Office Theme")
4. └─base::.Deprecated(...)
────────────────────────────────────────────────────────────────────────────────
✔ | 1 0 | filter_spec-verbose
✔ | 6 | formats [1.5s]
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 [10.7s]
────────────────────────────────────────────────────────────────────────────────
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 [11.0s]
────────────────────────────────────────────────────────────────────────────────
Error ('test-func_wrapper.R:21:3'): legacy with datasets and spec
Error in `match.arg(round_type)`: 'arg' must be of length 1
Backtrace:
▆
1. └─autoslider.core (local) wrapped(aesi = "CQ01NAM", grad_var = "AETOXGR") at test-func_wrapper.R:21:3
2. └─autoslider.core::fastDoCall(...)
3. └─base::eval(call, envir = args, enclos = envir)
4. └─base::eval(call, envir = args, enclos = envir)
5. └─autoslider.core (local) func(adsl = adsl, adae = adae, aesi = aesi, grad_var = grad_var)
6. └─rtables::build_table(lyt_adae, df = adae2, alt_counts_df = adsl)
7. └─rtables::update_ref_indexing(tab)
8. ├─formatters::make_row_df(tt)
9. └─rtables::make_row_df(tt)
10. └─rtables (local) .local(...)
11. ├─formatters::make_row_df(...)
12. └─rtables::make_row_df(...)
13. └─rtables (local) .local(...)
14. ├─formatters::make_row_df(...)
15. └─rtables::make_row_df(...)
16. └─rtables (local) .local(...)
17. ├─formatters::pagdfrow(...)
18. │ └─base::data.frame(...)
19. ├─formatters::nlines(...)
20. └─rtables::nlines(...)
21. ├─base::as.vector(get_formatted_cells(x))
22. ├─rtables::get_formatted_cells(x)
23. └─rtables::get_formatted_cells(x)
24. ├─base::matrix(...)
25. ├─base::unlist(...)
26. └─base::Map(...)
27. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
28. └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
29. └─rtables::format_rcell(...)
30. └─formatters::format_value(...)
31. └─base::match.arg(round_type)
Error ('test-func_wrapper.R:30:3'): legacy with datasets but no spec
Error in `match.arg(round_type)`: 'arg' must be of length 1
Backtrace:
▆
1. └─autoslider.core (local) wrapped(arm = "TRT01A", split_by_study = TRUE) at test-func_wrapper.R:30:3
2. └─autoslider.core::fastDoCall(...)
3. └─base::eval(call, envir = args, enclos = envir)
4. └─base::eval(call, envir = args, enclos = envir)
5. └─autoslider.core (local) `<fn>`(adsl = adsl, arm = arm, split_by_study = split_by_study)
6. └─autoslider.core::lyt_to_side_by_side(lyt, anl, side_by_side)
7. └─rtables::build_table(lyt = lyt, df = anl)
8. └─rtables::update_ref_indexing(tab)
9. ├─formatters::make_row_df(tt)
10. └─rtables::make_row_df(tt)
11. └─rtables (local) .local(...)
12. ├─formatters::make_row_df(...)
13. └─rtables::make_row_df(...)
14. └─rtables (local) .local(...)
15. ├─formatters::make_row_df(...)
16. └─rtables::make_row_df(...)
17. └─rtables (local) .local(...)
18. ├─formatters::pagdfrow(...)
19. │ └─base::data.frame(...)
20. ├─formatters::nlines(...)
21. └─rtables::nlines(...)
22. ├─base::as.vector(get_formatted_cells(x))
23. ├─rtables::get_formatted_cells(x)
24. └─rtables::get_formatted_cells(x)
25. ├─base::matrix(...)
26. ├─base::unlist(...)
27. └─base::Map(...)
28. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
29. └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
30. └─rtables::format_rcell(...)
31. └─formatters::format_value(...)
32. └─base::match.arg(round_type)
────────────────────────────────────────────────────────────────────────────────
✔ | 5 10 | g_mean_slides [35.2s]
✔ | 1 1 | helper_functions [2.4s]
Loading required package: tibble
Attaching package: 'tibble'
The following object is masked from 'package:assertthat':
has_name
✔ | 1 0 | l_ae_slide [96.7s]
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 [1.2s]
────────────────────────────────────────────────────────────────────────────────
Error ('test-output-table-format.R:2:3'): save an autoslider output
Error in `h(simpleError(msg, call))`: error in evaluating the argument 'x' in selecting a method for function 'decorate': 'arg' must be of length 1
Backtrace:
▆
1. ├─... %>% list() at test-output-table-format.R:2:3
2. ├─autoslider.core::decorate(., title = "test title", footnote = "")
3. ├─autoslider.core::t_dm_slide(adsl = testdata$adsl)
4. │ └─autoslider.core::lyt_to_side_by_side(lyt, adsl1, side_by_side)
5. │ └─rtables::build_table(lyt = lyt, df = anl)
6. │ └─rtables::update_ref_indexing(tab)
7. │ ├─formatters::make_row_df(tt)
8. │ └─rtables::make_row_df(tt)
9. │ └─rtables (local) .local(...)
10. │ ├─formatters::make_row_df(...)
11. │ └─rtables::make_row_df(...)
12. │ └─rtables (local) .local(...)
13. │ ├─formatters::make_row_df(...)
14. │ └─rtables::make_row_df(...)
15. │ └─rtables (local) .local(...)
16. │ ├─formatters::pagdfrow(...)
17. │ │ └─base::data.frame(...)
18. │ ├─formatters::nlines(...)
19. │ └─rtables::nlines(...)
20. │ ├─base::as.vector(get_formatted_cells(x))
21. │ ├─rtables::get_formatted_cells(x)
22. │ └─rtables::get_formatted_cells(x)
23. │ ├─base::matrix(...)
24. │ ├─base::unlist(...)
25. │ └─base::Map(...)
26. │ └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
27. │ └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
28. │ └─rtables::format_rcell(...)
29. │ └─formatters::format_value(...)
30. │ └─base::match.arg(round_type)
31. │ └─base::stop(gettextf("'%s' must be of length 1", "arg"), domain = NA)
32. └─base::.handleSimpleError(...)
33. └─base (local) h(simpleError(msg, call))
────────────────────────────────────────────────────────────────────────────────
✖ | 3 0 | save_output [4.5s]
────────────────────────────────────────────────────────────────────────────────
Error ('test-save_output.R:4:3'): save an output
Error in `h(simpleError(msg, call))`: error in evaluating the argument 'x' in selecting a method for function 'decorate': 'arg' must be of length 1
Backtrace:
▆
1. ├─t_dm_slide(adsl = testdata$adsl) %>% ... at test-save_output.R:4:3
2. ├─autoslider.core::decorate(., title = "test title", footnote = "")
3. ├─autoslider.core::t_dm_slide(adsl = testdata$adsl)
4. │ └─autoslider.core::lyt_to_side_by_side(lyt, adsl1, side_by_side)
5. │ └─rtables::build_table(lyt = lyt, df = anl)
6. │ └─rtables::update_ref_indexing(tab)
7. │ ├─formatters::make_row_df(tt)
8. │ └─rtables::make_row_df(tt)
9. │ └─rtables (local) .local(...)
10. │ ├─formatters::make_row_df(...)
11. │ └─rtables::make_row_df(...)
12. │ └─rtables (local) .local(...)
13. │ ├─formatters::make_row_df(...)
14. │ └─rtables::make_row_df(...)
15. │ └─rtables (local) .local(...)
16. │ ├─formatters::pagdfrow(...)
17. │ │ └─base::data.frame(...)
18. │ ├─formatters::nlines(...)
19. │ └─rtables::nlines(...)
20. │ ├─base::as.vector(get_formatted_cells(x))
21. │ ├─rtables::get_formatted_cells(x)
22. │ └─rtables::get_formatted_cells(x)
23. │ ├─base::matrix(...)
24. │ ├─base::unlist(...)
25. │ └─base::Map(...)
26. │ └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
27. │ └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
28. │ └─rtables::format_rcell(...)
29. │ └─formatters::format_value(...)
30. │ └─base::match.arg(round_type)
31. │ └─base::stop(gettextf("'%s' must be of length 1", "arg"), domain = NA)
32. └─base::.handleSimpleError(...)
33. └─base (local) h(simpleError(msg, call))
Error ('test-save_output.R:23:3'): Test save_output (Save an Output)
Error in `h(simpleError(msg, call))`: error in evaluating the argument 'output' in selecting a method for function 'save_output': error in evaluating the argument 'x' in selecting a method for function 'decorate': 'arg' must be of length 1
Backtrace:
▆
1. ├─base::print(...)
2. ├─... %>% ...
3. ├─autoslider.core::save_output(...)
4. ├─autoslider.core::decorate(...)
5. ├─autoslider.core::t_ae_pt_slide(adsl, adae, "TRT01A", 2)
6. │ └─autoslider.core:::t_ae_pt_core(...)
7. │ └─autoslider.core::lyt_to_side_by_side_two_data(...)
8. │ └─rtables::build_table(lyt = lyt, df = anl, alt_counts_df = alt_counts_df)
9. │ └─rtables::update_ref_indexing(tab)
10. │ ├─formatters::make_row_df(tt)
11. │ └─rtables::make_row_df(tt)
12. │ └─rtables (local) .local(...)
13. │ ├─formatters::make_row_df(...)
14. │ └─rtables::make_row_df(...)
15. │ └─rtables (local) .local(...)
16. │ ├─formatters::pagdfrow(...)
17. │ │ └─base::data.frame(...)
18. │ ├─formatters::nlines(...)
19. │ └─rtables::nlines(...)
20. │ ├─base::as.vector(get_formatted_cells(x))
21. │ ├─rtables::get_formatted_cells(x)
22. │ └─rtables::get_formatted_cells(x)
23. │ ├─base::matrix(...)
24. │ ├─base::unlist(...)
25. │ └─base::Map(...)
26. │ └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
27. │ └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
28. │ └─rtables::format_rcell(...)
29. │ └─formatters::format_value(...)
30. │ └─base::match.arg(round_type)
31. │ └─base::stop(gettextf("'%s' must be of length 1", "arg"), domain = NA)
32. ├─base::.handleSimpleError(...)
33. │ └─base (local) h(simpleError(msg, call))
34. └─base::.handleSimpleError(...)
35. └─base (local) h(simpleError(msg, call))
Error ('test-save_output.R:40:3'): save an output
Error in `h(simpleError(msg, call))`: error in evaluating the argument 'x' in selecting a method for function 'decorate': 'arg' must be of length 1
Backtrace:
▆
1. ├─t_ds_slide(adsl = testdata$adsl) %>% ... at test-save_output.R:40:3
2. ├─autoslider.core::decorate(., title = "test title", footnote = "")
3. ├─autoslider.core::t_ds_slide(adsl = testdata$adsl)
4. │ └─autoslider.core::lyt_to_side_by_side(lyt, adsl1, side_by_side)
5. │ └─rtables::build_table(lyt = lyt, df = anl)
6. │ └─rtables::update_ref_indexing(tab)
7. │ ├─formatters::make_row_df(tt)
8. │ └─rtables::make_row_df(tt)
9. │ └─rtables (local) .local(...)
10. │ ├─formatters::make_row_df(...)
11. │ └─rtables::make_row_df(...)
12. │ └─rtables (local) .local(...)
13. │ ├─formatters::make_row_df(...)
14. │ └─rtables::make_row_df(...)
15. │ └─rtables (local) .local(...)
16. │ ├─formatters::pagdfrow(...)
17. │ │ └─base::data.frame(...)
18. │ ├─formatters::nlines(...)
19. │ └─rtables::nlines(...)
20. │ ├─base::as.vector(get_formatted_cells(x))
21. │ ├─rtables::get_formatted_cells(x)
22. │ └─rtables::get_formatted_cells(x)
23. │ ├─base::matrix(...)
24. │ ├─base::unlist(...)
25. │ └─base::Map(...)
26. │ └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
27. │ └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
28. │ └─rtables::format_rcell(...)
29. │ └─formatters::format_value(...)
30. │ └─base::match.arg(round_type)
31. │ └─base::stop(gettextf("'%s' must be of length 1", "arg"), domain = NA)
32. └─base::.handleSimpleError(...)
33. └─base (local) h(simpleError(msg, call))
────────────────────────────────────────────────────────────────────────────────
✖ | 1 0 | slides_preview [1.9s]
────────────────────────────────────────────────────────────────────────────────
Error ('test-slides_preview.R:3:3'): Test slides preview
Error in `match.arg(round_type)`: 'arg' must be of length 1
Backtrace:
▆
1. └─autoslider.core::t_dm_slide(adsl, "TRT01P", c("SEX", "AGE", "RACE")) at test-slides_preview.R:3:3
2. └─autoslider.core::lyt_to_side_by_side(lyt, adsl1, side_by_side)
3. └─rtables::build_table(lyt = lyt, df = anl)
4. └─rtables::update_ref_indexing(tab)
5. ├─formatters::make_row_df(tt)
6. └─rtables::make_row_df(tt)
7. └─rtables (local) .local(...)
8. ├─formatters::make_row_df(...)
9. └─rtables::make_row_df(...)
10. └─rtables (local) .local(...)
11. ├─formatters::make_row_df(...)
12. └─rtables::make_row_df(...)
13. └─rtables (local) .local(...)
14. ├─formatters::pagdfrow(...)
15. │ └─base::data.frame(...)
16. ├─formatters::nlines(...)
17. └─rtables::nlines(...)
18. ├─base::as.vector(get_formatted_cells(x))
19. ├─rtables::get_formatted_cells(x)
20. └─rtables::get_formatted_cells(x)
21. ├─base::matrix(...)
22. ├─base::unlist(...)
23. └─base::Map(...)
24. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
25. └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
26. └─rtables::format_rcell(...)
27. └─formatters::format_value(...)
28. └─base::match.arg(round_type)
────────────────────────────────────────────────────────────────────────────────
✔ | 1 0 | srep_outputs
⠙ [ FAIL 15 | WARN 1 | SKIP 10 | PASS 72 ] @ t_ae_pt_diff_slide
────────────────────────────────────────────────────────────────────────────────
Error ('test-t_ae_pt_diff_slide.R:2:3'): Test table creation of t_ae_pt_diff_slide (safety summary table)
Error in `match.arg(round_type)`: 'arg' must be of length 1
Backtrace:
▆
1. └─autoslider.core::t_ae_pt_diff_slide(...)
2. └─autoslider.core:::t_ae_pt_core(...)
3. └─autoslider.core::lyt_to_side_by_side_two_data(...)
4. └─rtables::build_table(lyt = lyt, df = anl, alt_counts_df = alt_counts_df)
5. └─rtables::update_ref_indexing(tab)
6. ├─formatters::make_row_df(tt)
7. └─rtables::make_row_df(tt)
8. └─rtables (local) .local(...)
9. ├─formatters::make_row_df(...)
10. └─rtables::make_row_df(...)
11. └─rtables (local) .local(...)
12. ├─formatters::pagdfrow(...)
13. │ └─base::data.frame(...)
14. ├─formatters::nlines(...)
15. └─rtables::nlines(...)
16. ├─base::as.vector(get_formatted_cells(x))
17. ├─rtables::get_formatted_cells(x)
18. └─rtables::get_formatted_cells(x)
19. ├─base::matrix(...)
20. ├─base::unlist(...)
21. └─base::Map(...)
22. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
23. └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
24. └─rtables::format_rcell(...)
25. └─formatters::format_value(...)
26. └─base::match.arg(round_type)
Error ('test-t_ae_pt_diff_slide.R:6:3'): Test table creation of t_ae_pt_diff_slide (safety summary table) prune by total 2
Error in `match.arg(round_type)`: 'arg' must be of length 1
Backtrace:
▆
1. └─autoslider.core::t_ae_pt_diff_slide(...)
2. └─autoslider.core:::t_ae_pt_core(...)
3. └─autoslider.core::lyt_to_side_by_side_two_data(...)
4. └─rtables::build_table(lyt = lyt, df = anl, alt_counts_df = alt_counts_df)
5. └─rtables::update_ref_indexing(tab)
6. ├─formatters::make_row_df(tt)
7. └─rtables::make_row_df(tt)
8. └─rtables (local) .local(...)
9. ├─formatters::make_row_df(...)
10. └─rtables::make_row_df(...)
11. └─rtables (local) .local(...)
12. ├─formatters::pagdfrow(...)
13. │ └─base::data.frame(...)
14. ├─formatters::nlines(...)
15. └─rtables::nlines(...)
16. ├─base::as.vector(get_formatted_cells(x))
17. ├─rtables::get_formatted_cells(x)
18. └─rtables::get_formatted_cells(x)
19. ├─base::matrix(...)
20. ├─base::unlist(...)
21. └─base::Map(...)
22. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
23. └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
24. └─rtables::format_rcell(...)
25. └─formatters::format_value(...)
26. └─base::match.arg(round_type)
Error ('test-t_ae_pt_diff_slide.R:11:3'): Test table creation of t_ae_pt_slide (safety summary table) prune by total 2
Error in `match.arg(round_type)`: 'arg' must be of length 1
Backtrace:
▆
1. └─autoslider.core::t_ae_pt_diff_slide(...)
2. └─autoslider.core:::t_ae_pt_core(...)
3. └─autoslider.core::lyt_to_side_by_side_two_data(...)
4. └─rtables::build_table(lyt = lyt, df = anl, alt_counts_df = alt_counts_df)
5. └─rtables::update_ref_indexing(tab)
6. ├─formatters::make_row_df(tt)
7. └─rtables::make_row_df(tt)
8. └─rtables (local) .local(...)
9. ├─formatters::make_row_df(...)
10. └─rtables::make_row_df(...)
11. └─rtables (local) .local(...)
12. ├─formatters::pagdfrow(...)
13. │ └─base::data.frame(...)
14. ├─formatters::nlines(...)
15. └─rtables::nlines(...)
16. ├─base::as.vector(get_formatted_cells(x))
17. ├─rtables::get_formatted_cells(x)
18. └─rtables::get_formatted_cells(x)
19. ├─base::matrix(...)
20. ├─base::unlist(...)
21. └─base::Map(...)
22. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
23. └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
24. └─rtables::format_rcell(...)
25. └─formatters::format_value(...)
26. └─base::match.arg(round_type)
Error ('test-t_ae_pt_diff_slide.R:17:3'): Test table creation of t_ae_pt_slide (safety summary table) prune by total 2
Error in `match.arg(round_type)`: 'arg' must be of length 1
Backtrace:
▆
1. └─autoslider.core::t_ae_pt_diff_slide(...)
2. └─autoslider.core:::t_ae_pt_core(...)
3. └─autoslider.core::lyt_to_side_by_side_two_data(...)
4. └─rtables::build_table(lyt = lyt, df = anl, alt_counts_df = alt_counts_df)
5. └─rtables::update_ref_indexing(tab)
6. ├─formatters::make_row_df(tt)
7. └─rtables::make_row_df(tt)
8. └─rtables (local) .local(...)
9. ├─formatters::make_row_df(...)
10. └─rtables::make_row_df(...)
11. └─rtables (local) .local(...)
12. ├─formatters::pagdfrow(...)
13. │ └─base::data.frame(...)
14. ├─formatters::nlines(...)
15. └─rtables::nlines(...)
16. ├─base::as.vector(get_formatted_cells(x))
17. ├─rtables::get_formatted_cells(x)
18. └─rtables::get_formatted_cells(x)
19. ├─base::matrix(...)
20. ├─base::unlist(...)
21. └─base::Map(...)
22. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
23. └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
24. └─rtables::format_rcell(...)
25. └─formatters::format_value(...)
26. └─base::match.arg(round_type)
Error ('test-t_ae_pt_diff_slide.R:25:3'): Test table creation of t_ae_pt_slide (safety summary table) prune by total 2
Error in `match.arg(round_type)`: 'arg' must be of length 1
Backtrace:
▆
1. └─autoslider.core::t_ae_pt_diff_slide(...)
2. └─autoslider.core:::t_ae_pt_core(...)
3. └─autoslider.core::lyt_to_side_by_side_two_data(...)
4. └─rtables::build_table(lyt = lyt, df = anl, alt_counts_df = alt_counts_df)
5. └─rtables::update_ref_indexing(tab)
6. ├─formatters::make_row_df(tt)
7. └─rtables::make_row_df(tt)
8. └─rtables (local) .local(...)
9. ├─formatters::make_row_df(...)
10. └─rtables::make_row_df(...)
11. └─rtables (local) .local(...)
12. ├─formatters::pagdfrow(...)
13. │ └─base::data.frame(...)
14. ├─formatters::nlines(...)
15. └─rtables::nlines(...)
16. ├─base::as.vector(get_formatted_cells(x))
17. ├─rtables::get_formatted_cells(x)
18. └─rtables::get_formatted_cells(x)
19. ├─base::matrix(...)
20. ├─base::unlist(...)
21. └─base::Map(...)
22. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
23. └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
24. └─rtables::format_rcell(...)
25. └─formatters::format_value(...)
26. └─base::match.arg(round_type)
Error ('test-t_ae_pt_diff_slide.R:43:3'): Test table creation of t_ae_pt_slide (safety summary table) prune by total 2
Error in `match.arg(round_type)`: 'arg' must be of length 1
Backtrace:
▆
1. └─autoslider.core::t_ae_pt_diff_slide(...)
2. └─autoslider.core:::t_ae_pt_core(...)
3. └─autoslider.core::lyt_to_side_by_side_two_data(...)
4. └─rtables::build_table(lyt = lyt, df = anl, alt_counts_df = alt_counts_df)
5. └─rtables::update_ref_indexing(tab)
6. ├─formatters::make_row_df(tt)
7. └─rtables::make_row_df(tt)
8. └─rtables (local) .local(...)
9. ├─formatters::make_row_df(...)
10. └─rtables::make_row_df(...)
11. └─rtables (local) .local(...)
12. ├─formatters::pagdfrow(...)
13. │ └─base::data.frame(...)
14. ├─formatters::nlines(...)
15. └─rtables::nlines(...)
16. ├─base::as.vector(get_formatted_cells(x))
17. ├─rtables::get_formatted_cells(x)
18. └─rtables::get_formatted_cells(x)
19. ├─base::matrix(...)
20. ├─base::unlist(...)
21. └─base::Map(...)
22. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
23. └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
24. └─rtables::format_rcell(...)
25. └─formatters::format_value(...)
26. └─base::match.arg(round_type)
Error ('test-t_ae_pt_diff_slide.R:57:3'): Test table creation of t_ae_pt_diff_slide with null_report
Error in `h(simpleError(msg, call))`: error in evaluating the argument 'x' in selecting a method for function 'toString': 'arg' must be of length 1
Backtrace:
▆
1. ├─testthat::expect_snapshot(...) at test-t_ae_pt_diff_slide.R:57:3
2. │ └─testthat:::expect_snapshot_(...)
3. │ ├─testthat:::with_is_snapshotting(...)
4. │ └─testthat:::verify_exec(quo_get_expr(x), quo_get_env(x), replay)
5. │ └─evaluate::evaluate(source, envir = env, new_device = FALSE, output_handler = handler)
6. │ ├─base::withRestarts(...)
7. │ │ └─base (local) withRestartList(expr, restarts)
8. │ │ ├─base (local) withOneRestart(withRestartList(expr, restarts[-nr]), restarts[[nr]])
9. │ │ │ └─base (local) doWithOneRestart(return(expr), restart)
10. │ │ └─base (local) withRestartList(expr, restarts[-nr])
11. │ │ └─base (local) withOneRestart(expr, restarts[[1L]])
12. │ │ └─base (local) doWithOneRestart(return(expr), restart)
13. │ ├─evaluate:::with_handlers(...)
14. │ │ ├─base::eval(call)
15. │ │ │ └─base::eval(call)
16. │ │ └─base::withCallingHandlers(...)
17. │ └─watcher$print_value(ev$value, ev$visible, envir)
18. │ ├─base::withVisible(handle_value(handler, value, visible, envir))
19. │ └─evaluate:::handle_value(handler, value, visible, envir)
20. │ ├─handler$value(value)
21. │ └─testthat:::testthat_print.default(value)
22. │ ├─base::print(x)
23. │ └─base::print.default(x)
24. │ ├─methods (local) `<stndrdGn>`(`<ElmntryT[,1]>`)
25. │ └─rtables (local) `<stndrdGn>`(`<ElmntryT[,1]>`)
26. │ ├─base::cat(toString(object))
27. │ ├─base::toString(object)
28. │ └─rtables::toString(object)
29. │ └─rtables (local) .local(x, ...)
30. │ ├─base::toString(...)
31. │ ├─formatters::matrix_form(...)
32. │ └─rtables::matrix_form(...)
33. │ └─rtables:::.tbl_header_mat(obj)
34. │ ├─base::matrix(...)
35. │ └─base::rapply(...)
36. │ └─rtables (local) `<fn>`(X, ...)
37. │ ├─rtables::get_formatted_cells(x)
38. │ └─rtables::get_formatted_cells(x)
39. │ ├─base::matrix(...)
40. │ ├─base::unlist(...)
41. │ └─base::Map(...)
42. │ └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
43. │ └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
44. │ └─rtables::format_rcell(...)
45. │ └─formatters::format_value(...)
46. │ └─base::match.arg(round_type)
47. │ └─base::stop(gettextf("'%s' must be of length 1", "arg"), domain = NA)
48. └─base::.handleSimpleError(...)
49. └─base (local) h(simpleError(msg, call))
Maximum number of failures exceeded; quitting.
ℹ Increase this number with (e.g.) `testthat::set_max_fails(Inf)`
Error:
! Test failures.
Execution halted
Flavor: r-devel-linux-x86_64-fedora-clang
Version: 0.3.1
Check: re-building of vignette outputs
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/rlang_error>
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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
29. │ └─rtables::format_rcell(...)
30. │ └─formatters::format_value(...)
31. │ └─base::match.arg(round_type)
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/rlang_error>
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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
26. └─rtables::format_rcell(...)
27. └─formatters::format_value(...)
28. └─base::match.arg(round_type)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
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
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc
Version: 0.3.1
Check: tests
Result: ERROR
Running ‘testthat.R’ [80s/390s]
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 [30.7s]
✔ | 17 | assert [1.6s]
Loading required package: filters
<simpleError: `target` must be a character vector containing no `NA` values.>
✔ | 1 | bad_filters
✔ | 1 0 | data_snapshot
[[1]]
[[1]]
[[2]]
✔ | 1 9 | decorate [27.3s]
────────────────────────────────────────────────────────────────────────────────
Warning ('test-decorate.R:71:3'): Test ph_with_img not to throw
Calling `add_slide()` without specifying a `layout` is deprecated.
Please pass a `layout` or use `layout_default()` to set a default.
=> I will now continue with the former `layout` default "Title and Content" for backwards compatibility...
Backtrace:
▆
1. └─autoslider.core:::do_call(add_slide, x = ppt, master = ppt_master) at test-decorate.R:71:3
2. ├─base::do.call(fun, args[intersect(names(args), formalArgs(fun))])
3. └─officer (local) `<fn>`(x = `<rpptx>`, master = "Office Theme")
4. └─base::.Deprecated(...)
────────────────────────────────────────────────────────────────────────────────
✔ | 1 0 | filter_spec-verbose [1.4s]
✔ | 6 | formats [4.2s]
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 [24.6s]
────────────────────────────────────────────────────────────────────────────────
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 [9.1s]
────────────────────────────────────────────────────────────────────────────────
Error ('test-func_wrapper.R:21:3'): legacy with datasets and spec
Error in `match.arg(round_type)`: 'arg' must be of length 1
Backtrace:
▆
1. └─autoslider.core (local) wrapped(aesi = "CQ01NAM", grad_var = "AETOXGR") at test-func_wrapper.R:21:3
2. └─autoslider.core::fastDoCall(...)
3. └─base::eval(call, envir = args, enclos = envir)
4. └─base::eval(call, envir = args, enclos = envir)
5. └─autoslider.core (local) func(adsl = adsl, adae = adae, aesi = aesi, grad_var = grad_var)
6. └─rtables::build_table(lyt_adae, df = adae2, alt_counts_df = adsl)
7. └─rtables::update_ref_indexing(tab)
8. ├─formatters::make_row_df(tt)
9. └─rtables::make_row_df(tt)
10. └─rtables (local) .local(...)
11. ├─formatters::make_row_df(...)
12. └─rtables::make_row_df(...)
13. └─rtables (local) .local(...)
14. ├─formatters::make_row_df(...)
15. └─rtables::make_row_df(...)
16. └─rtables (local) .local(...)
17. ├─formatters::pagdfrow(...)
18. │ └─base::data.frame(...)
19. ├─formatters::nlines(...)
20. └─rtables::nlines(...)
21. ├─base::as.vector(get_formatted_cells(x))
22. ├─rtables::get_formatted_cells(x)
23. └─rtables::get_formatted_cells(x)
24. ├─base::matrix(...)
25. ├─base::unlist(...)
26. └─base::Map(...)
27. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
28. └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
29. └─rtables::format_rcell(...)
30. └─formatters::format_value(...)
31. └─base::match.arg(round_type)
Error ('test-func_wrapper.R:30:3'): legacy with datasets but no spec
Error in `match.arg(round_type)`: 'arg' must be of length 1
Backtrace:
▆
1. └─autoslider.core (local) wrapped(arm = "TRT01A", split_by_study = TRUE) at test-func_wrapper.R:30:3
2. └─autoslider.core::fastDoCall(...)
3. └─base::eval(call, envir = args, enclos = envir)
4. └─base::eval(call, envir = args, enclos = envir)
5. └─autoslider.core (local) `<fn>`(adsl = adsl, arm = arm, split_by_study = split_by_study)
6. └─autoslider.core::lyt_to_side_by_side(lyt, anl, side_by_side)
7. └─rtables::build_table(lyt = lyt, df = anl)
8. └─rtables::update_ref_indexing(tab)
9. ├─formatters::make_row_df(tt)
10. └─rtables::make_row_df(tt)
11. └─rtables (local) .local(...)
12. ├─formatters::make_row_df(...)
13. └─rtables::make_row_df(...)
14. └─rtables (local) .local(...)
15. ├─formatters::make_row_df(...)
16. └─rtables::make_row_df(...)
17. └─rtables (local) .local(...)
18. ├─formatters::pagdfrow(...)
19. │ └─base::data.frame(...)
20. ├─formatters::nlines(...)
21. └─rtables::nlines(...)
22. ├─base::as.vector(get_formatted_cells(x))
23. ├─rtables::get_formatted_cells(x)
24. └─rtables::get_formatted_cells(x)
25. ├─base::matrix(...)
26. ├─base::unlist(...)
27. └─base::Map(...)
28. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
29. └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
30. └─rtables::format_rcell(...)
31. └─formatters::format_value(...)
32. └─base::match.arg(round_type)
────────────────────────────────────────────────────────────────────────────────
✔ | 5 10 | g_mean_slides [68.8s]
✔ | 1 1 | helper_functions [2.2s]
Loading required package: tibble
Attaching package: 'tibble'
The following object is masked from 'package:assertthat':
has_name
✔ | 1 0 | l_ae_slide [112.8s]
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 [3.2s]
────────────────────────────────────────────────────────────────────────────────
Error ('test-output-table-format.R:2:3'): save an autoslider output
Error in `h(simpleError(msg, call))`: error in evaluating the argument 'x' in selecting a method for function 'decorate': 'arg' must be of length 1
Backtrace:
▆
1. ├─... %>% list() at test-output-table-format.R:2:3
2. ├─autoslider.core::decorate(., title = "test title", footnote = "")
3. ├─autoslider.core::t_dm_slide(adsl = testdata$adsl)
4. │ └─autoslider.core::lyt_to_side_by_side(lyt, adsl1, side_by_side)
5. │ └─rtables::build_table(lyt = lyt, df = anl)
6. │ └─rtables::update_ref_indexing(tab)
7. │ ├─formatters::make_row_df(tt)
8. │ └─rtables::make_row_df(tt)
9. │ └─rtables (local) .local(...)
10. │ ├─formatters::make_row_df(...)
11. │ └─rtables::make_row_df(...)
12. │ └─rtables (local) .local(...)
13. │ ├─formatters::make_row_df(...)
14. │ └─rtables::make_row_df(...)
15. │ └─rtables (local) .local(...)
16. │ ├─formatters::pagdfrow(...)
17. │ │ └─base::data.frame(...)
18. │ ├─formatters::nlines(...)
19. │ └─rtables::nlines(...)
20. │ ├─base::as.vector(get_formatted_cells(x))
21. │ ├─rtables::get_formatted_cells(x)
22. │ └─rtables::get_formatted_cells(x)
23. │ ├─base::matrix(...)
24. │ ├─base::unlist(...)
25. │ └─base::Map(...)
26. │ └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
27. │ └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
28. │ └─rtables::format_rcell(...)
29. │ └─formatters::format_value(...)
30. │ └─base::match.arg(round_type)
31. │ └─base::stop(gettextf("'%s' must be of length 1", "arg"), domain = NA)
32. └─base::.handleSimpleError(...)
33. └─base (local) h(simpleError(msg, call))
────────────────────────────────────────────────────────────────────────────────
✖ | 3 0 | save_output [8.4s]
────────────────────────────────────────────────────────────────────────────────
Error ('test-save_output.R:4:3'): save an output
Error in `h(simpleError(msg, call))`: error in evaluating the argument 'x' in selecting a method for function 'decorate': 'arg' must be of length 1
Backtrace:
▆
1. ├─t_dm_slide(adsl = testdata$adsl) %>% ... at test-save_output.R:4:3
2. ├─autoslider.core::decorate(., title = "test title", footnote = "")
3. ├─autoslider.core::t_dm_slide(adsl = testdata$adsl)
4. │ └─autoslider.core::lyt_to_side_by_side(lyt, adsl1, side_by_side)
5. │ └─rtables::build_table(lyt = lyt, df = anl)
6. │ └─rtables::update_ref_indexing(tab)
7. │ ├─formatters::make_row_df(tt)
8. │ └─rtables::make_row_df(tt)
9. │ └─rtables (local) .local(...)
10. │ ├─formatters::make_row_df(...)
11. │ └─rtables::make_row_df(...)
12. │ └─rtables (local) .local(...)
13. │ ├─formatters::make_row_df(...)
14. │ └─rtables::make_row_df(...)
15. │ └─rtables (local) .local(...)
16. │ ├─formatters::pagdfrow(...)
17. │ │ └─base::data.frame(...)
18. │ ├─formatters::nlines(...)
19. │ └─rtables::nlines(...)
20. │ ├─base::as.vector(get_formatted_cells(x))
21. │ ├─rtables::get_formatted_cells(x)
22. │ └─rtables::get_formatted_cells(x)
23. │ ├─base::matrix(...)
24. │ ├─base::unlist(...)
25. │ └─base::Map(...)
26. │ └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
27. │ └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
28. │ └─rtables::format_rcell(...)
29. │ └─formatters::format_value(...)
30. │ └─base::match.arg(round_type)
31. │ └─base::stop(gettextf("'%s' must be of length 1", "arg"), domain = NA)
32. └─base::.handleSimpleError(...)
33. └─base (local) h(simpleError(msg, call))
Error ('test-save_output.R:23:3'): Test save_output (Save an Output)
Error in `h(simpleError(msg, call))`: error in evaluating the argument 'output' in selecting a method for function 'save_output': error in evaluating the argument 'x' in selecting a method for function 'decorate': 'arg' must be of length 1
Backtrace:
▆
1. ├─base::print(...)
2. ├─... %>% ...
3. ├─autoslider.core::save_output(...)
4. ├─autoslider.core::decorate(...)
5. ├─autoslider.core::t_ae_pt_slide(adsl, adae, "TRT01A", 2)
6. │ └─autoslider.core:::t_ae_pt_core(...)
7. │ └─autoslider.core::lyt_to_side_by_side_two_data(...)
8. │ └─rtables::build_table(lyt = lyt, df = anl, alt_counts_df = alt_counts_df)
9. │ └─rtables::update_ref_indexing(tab)
10. │ ├─formatters::make_row_df(tt)
11. │ └─rtables::make_row_df(tt)
12. │ └─rtables (local) .local(...)
13. │ ├─formatters::make_row_df(...)
14. │ └─rtables::make_row_df(...)
15. │ └─rtables (local) .local(...)
16. │ ├─formatters::pagdfrow(...)
17. │ │ └─base::data.frame(...)
18. │ ├─formatters::nlines(...)
19. │ └─rtables::nlines(...)
20. │ ├─base::as.vector(get_formatted_cells(x))
21. │ ├─rtables::get_formatted_cells(x)
22. │ └─rtables::get_formatted_cells(x)
23. │ ├─base::matrix(...)
24. │ ├─base::unlist(...)
25. │ └─base::Map(...)
26. │ └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
27. │ └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
28. │ └─rtables::format_rcell(...)
29. │ └─formatters::format_value(...)
30. │ └─base::match.arg(round_type)
31. │ └─base::stop(gettextf("'%s' must be of length 1", "arg"), domain = NA)
32. ├─base::.handleSimpleError(...)
33. │ └─base (local) h(simpleError(msg, call))
34. └─base::.handleSimpleError(...)
35. └─base (local) h(simpleError(msg, call))
Error ('test-save_output.R:40:3'): save an output
Error in `h(simpleError(msg, call))`: error in evaluating the argument 'x' in selecting a method for function 'decorate': 'arg' must be of length 1
Backtrace:
▆
1. ├─t_ds_slide(adsl = testdata$adsl) %>% ... at test-save_output.R:40:3
2. ├─autoslider.core::decorate(., title = "test title", footnote = "")
3. ├─autoslider.core::t_ds_slide(adsl = testdata$adsl)
4. │ └─autoslider.core::lyt_to_side_by_side(lyt, adsl1, side_by_side)
5. │ └─rtables::build_table(lyt = lyt, df = anl)
6. │ └─rtables::update_ref_indexing(tab)
7. │ ├─formatters::make_row_df(tt)
8. │ └─rtables::make_row_df(tt)
9. │ └─rtables (local) .local(...)
10. │ ├─formatters::make_row_df(...)
11. │ └─rtables::make_row_df(...)
12. │ └─rtables (local) .local(...)
13. │ ├─formatters::make_row_df(...)
14. │ └─rtables::make_row_df(...)
15. │ └─rtables (local) .local(...)
16. │ ├─formatters::pagdfrow(...)
17. │ │ └─base::data.frame(...)
18. │ ├─formatters::nlines(...)
19. │ └─rtables::nlines(...)
20. │ ├─base::as.vector(get_formatted_cells(x))
21. │ ├─rtables::get_formatted_cells(x)
22. │ └─rtables::get_formatted_cells(x)
23. │ ├─base::matrix(...)
24. │ ├─base::unlist(...)
25. │ └─base::Map(...)
26. │ └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
27. │ └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
28. │ └─rtables::format_rcell(...)
29. │ └─formatters::format_value(...)
30. │ └─base::match.arg(round_type)
31. │ └─base::stop(gettextf("'%s' must be of length 1", "arg"), domain = NA)
32. └─base::.handleSimpleError(...)
33. └─base (local) h(simpleError(msg, call))
────────────────────────────────────────────────────────────────────────────────
✖ | 1 0 | slides_preview [2.1s]
────────────────────────────────────────────────────────────────────────────────
Error ('test-slides_preview.R:3:3'): Test slides preview
Error in `match.arg(round_type)`: 'arg' must be of length 1
Backtrace:
▆
1. └─autoslider.core::t_dm_slide(adsl, "TRT01P", c("SEX", "AGE", "RACE")) at test-slides_preview.R:3:3
2. └─autoslider.core::lyt_to_side_by_side(lyt, adsl1, side_by_side)
3. └─rtables::build_table(lyt = lyt, df = anl)
4. └─rtables::update_ref_indexing(tab)
5. ├─formatters::make_row_df(tt)
6. └─rtables::make_row_df(tt)
7. └─rtables (local) .local(...)
8. ├─formatters::make_row_df(...)
9. └─rtables::make_row_df(...)
10. └─rtables (local) .local(...)
11. ├─formatters::make_row_df(...)
12. └─rtables::make_row_df(...)
13. └─rtables (local) .local(...)
14. ├─formatters::pagdfrow(...)
15. │ └─base::data.frame(...)
16. ├─formatters::nlines(...)
17. └─rtables::nlines(...)
18. ├─base::as.vector(get_formatted_cells(x))
19. ├─rtables::get_formatted_cells(x)
20. └─rtables::get_formatted_cells(x)
21. ├─base::matrix(...)
22. ├─base::unlist(...)
23. └─base::Map(...)
24. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
25. └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
26. └─rtables::format_rcell(...)
27. └─formatters::format_value(...)
28. └─base::match.arg(round_type)
────────────────────────────────────────────────────────────────────────────────
✔ | 1 0 | srep_outputs
⠙ [ FAIL 15 | WARN 1 | SKIP 10 | PASS 72 ] @ t_ae_pt_diff_slide
────────────────────────────────────────────────────────────────────────────────
Error ('test-t_ae_pt_diff_slide.R:2:3'): Test table creation of t_ae_pt_diff_slide (safety summary table)
Error in `match.arg(round_type)`: 'arg' must be of length 1
Backtrace:
▆
1. └─autoslider.core::t_ae_pt_diff_slide(...)
2. └─autoslider.core:::t_ae_pt_core(...)
3. └─autoslider.core::lyt_to_side_by_side_two_data(...)
4. └─rtables::build_table(lyt = lyt, df = anl, alt_counts_df = alt_counts_df)
5. └─rtables::update_ref_indexing(tab)
6. ├─formatters::make_row_df(tt)
7. └─rtables::make_row_df(tt)
8. └─rtables (local) .local(...)
9. ├─formatters::make_row_df(...)
10. └─rtables::make_row_df(...)
11. └─rtables (local) .local(...)
12. ├─formatters::pagdfrow(...)
13. │ └─base::data.frame(...)
14. ├─formatters::nlines(...)
15. └─rtables::nlines(...)
16. ├─base::as.vector(get_formatted_cells(x))
17. ├─rtables::get_formatted_cells(x)
18. └─rtables::get_formatted_cells(x)
19. ├─base::matrix(...)
20. ├─base::unlist(...)
21. └─base::Map(...)
22. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
23. └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
24. └─rtables::format_rcell(...)
25. └─formatters::format_value(...)
26. └─base::match.arg(round_type)
Error ('test-t_ae_pt_diff_slide.R:6:3'): Test table creation of t_ae_pt_diff_slide (safety summary table) prune by total 2
Error in `match.arg(round_type)`: 'arg' must be of length 1
Backtrace:
▆
1. └─autoslider.core::t_ae_pt_diff_slide(...)
2. └─autoslider.core:::t_ae_pt_core(...)
3. └─autoslider.core::lyt_to_side_by_side_two_data(...)
4. └─rtables::build_table(lyt = lyt, df = anl, alt_counts_df = alt_counts_df)
5. └─rtables::update_ref_indexing(tab)
6. ├─formatters::make_row_df(tt)
7. └─rtables::make_row_df(tt)
8. └─rtables (local) .local(...)
9. ├─formatters::make_row_df(...)
10. └─rtables::make_row_df(...)
11. └─rtables (local) .local(...)
12. ├─formatters::pagdfrow(...)
13. │ └─base::data.frame(...)
14. ├─formatters::nlines(...)
15. └─rtables::nlines(...)
16. ├─base::as.vector(get_formatted_cells(x))
17. ├─rtables::get_formatted_cells(x)
18. └─rtables::get_formatted_cells(x)
19. ├─base::matrix(...)
20. ├─base::unlist(...)
21. └─base::Map(...)
22. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
23. └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
24. └─rtables::format_rcell(...)
25. └─formatters::format_value(...)
26. └─base::match.arg(round_type)
Error ('test-t_ae_pt_diff_slide.R:11:3'): Test table creation of t_ae_pt_slide (safety summary table) prune by total 2
Error in `match.arg(round_type)`: 'arg' must be of length 1
Backtrace:
▆
1. └─autoslider.core::t_ae_pt_diff_slide(...)
2. └─autoslider.core:::t_ae_pt_core(...)
3. └─autoslider.core::lyt_to_side_by_side_two_data(...)
4. └─rtables::build_table(lyt = lyt, df = anl, alt_counts_df = alt_counts_df)
5. └─rtables::update_ref_indexing(tab)
6. ├─formatters::make_row_df(tt)
7. └─rtables::make_row_df(tt)
8. └─rtables (local) .local(...)
9. ├─formatters::make_row_df(...)
10. └─rtables::make_row_df(...)
11. └─rtables (local) .local(...)
12. ├─formatters::pagdfrow(...)
13. │ └─base::data.frame(...)
14. ├─formatters::nlines(...)
15. └─rtables::nlines(...)
16. ├─base::as.vector(get_formatted_cells(x))
17. ├─rtables::get_formatted_cells(x)
18. └─rtables::get_formatted_cells(x)
19. ├─base::matrix(...)
20. ├─base::unlist(...)
21. └─base::Map(...)
22. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
23. └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
24. └─rtables::format_rcell(...)
25. └─formatters::format_value(...)
26. └─base::match.arg(round_type)
Error ('test-t_ae_pt_diff_slide.R:17:3'): Test table creation of t_ae_pt_slide (safety summary table) prune by total 2
Error in `match.arg(round_type)`: 'arg' must be of length 1
Backtrace:
▆
1. └─autoslider.core::t_ae_pt_diff_slide(...)
2. └─autoslider.core:::t_ae_pt_core(...)
3. └─autoslider.core::lyt_to_side_by_side_two_data(...)
4. └─rtables::build_table(lyt = lyt, df = anl, alt_counts_df = alt_counts_df)
5. └─rtables::update_ref_indexing(tab)
6. ├─formatters::make_row_df(tt)
7. └─rtables::make_row_df(tt)
8. └─rtables (local) .local(...)
9. ├─formatters::make_row_df(...)
10. └─rtables::make_row_df(...)
11. └─rtables (local) .local(...)
12. ├─formatters::pagdfrow(...)
13. │ └─base::data.frame(...)
14. ├─formatters::nlines(...)
15. └─rtables::nlines(...)
16. ├─base::as.vector(get_formatted_cells(x))
17. ├─rtables::get_formatted_cells(x)
18. └─rtables::get_formatted_cells(x)
19. ├─base::matrix(...)
20. ├─base::unlist(...)
21. └─base::Map(...)
22. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
23. └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
24. └─rtables::format_rcell(...)
25. └─formatters::format_value(...)
26. └─base::match.arg(round_type)
Error ('test-t_ae_pt_diff_slide.R:25:3'): Test table creation of t_ae_pt_slide (safety summary table) prune by total 2
Error in `match.arg(round_type)`: 'arg' must be of length 1
Backtrace:
▆
1. └─autoslider.core::t_ae_pt_diff_slide(...)
2. └─autoslider.core:::t_ae_pt_core(...)
3. └─autoslider.core::lyt_to_side_by_side_two_data(...)
4. └─rtables::build_table(lyt = lyt, df = anl, alt_counts_df = alt_counts_df)
5. └─rtables::update_ref_indexing(tab)
6. ├─formatters::make_row_df(tt)
7. └─rtables::make_row_df(tt)
8. └─rtables (local) .local(...)
9. ├─formatters::make_row_df(...)
10. └─rtables::make_row_df(...)
11. └─rtables (local) .local(...)
12. ├─formatters::pagdfrow(...)
13. │ └─base::data.frame(...)
14. ├─formatters::nlines(...)
15. └─rtables::nlines(...)
16. ├─base::as.vector(get_formatted_cells(x))
17. ├─rtables::get_formatted_cells(x)
18. └─rtables::get_formatted_cells(x)
19. ├─base::matrix(...)
20. ├─base::unlist(...)
21. └─base::Map(...)
22. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
23. └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
24. └─rtables::format_rcell(...)
25. └─formatters::format_value(...)
26. └─base::match.arg(round_type)
Error ('test-t_ae_pt_diff_slide.R:43:3'): Test table creation of t_ae_pt_slide (safety summary table) prune by total 2
Error in `match.arg(round_type)`: 'arg' must be of length 1
Backtrace:
▆
1. └─autoslider.core::t_ae_pt_diff_slide(...)
2. └─autoslider.core:::t_ae_pt_core(...)
3. └─autoslider.core::lyt_to_side_by_side_two_data(...)
4. └─rtables::build_table(lyt = lyt, df = anl, alt_counts_df = alt_counts_df)
5. └─rtables::update_ref_indexing(tab)
6. ├─formatters::make_row_df(tt)
7. └─rtables::make_row_df(tt)
8. └─rtables (local) .local(...)
9. ├─formatters::make_row_df(...)
10. └─rtables::make_row_df(...)
11. └─rtables (local) .local(...)
12. ├─formatters::pagdfrow(...)
13. │ └─base::data.frame(...)
14. ├─formatters::nlines(...)
15. └─rtables::nlines(...)
16. ├─base::as.vector(get_formatted_cells(x))
17. ├─rtables::get_formatted_cells(x)
18. └─rtables::get_formatted_cells(x)
19. ├─base::matrix(...)
20. ├─base::unlist(...)
21. └─base::Map(...)
22. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
23. └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
24. └─rtables::format_rcell(...)
25. └─formatters::format_value(...)
26. └─base::match.arg(round_type)
Error ('test-t_ae_pt_diff_slide.R:57:3'): Test table creation of t_ae_pt_diff_slide with null_report
Error in `h(simpleError(msg, call))`: error in evaluating the argument 'x' in selecting a method for function 'toString': 'arg' must be of length 1
Backtrace:
▆
1. ├─testthat::expect_snapshot(...) at test-t_ae_pt_diff_slide.R:57:3
2. │ └─testthat:::expect_snapshot_(...)
3. │ ├─testthat:::with_is_snapshotting(...)
4. │ └─testthat:::verify_exec(quo_get_expr(x), quo_get_env(x), replay)
5. │ └─evaluate::evaluate(source, envir = env, new_device = FALSE, output_handler = handler)
6. │ ├─base::withRestarts(...)
7. │ │ └─base (local) withRestartList(expr, restarts)
8. │ │ ├─base (local) withOneRestart(withRestartList(expr, restarts[-nr]), restarts[[nr]])
9. │ │ │ └─base (local) doWithOneRestart(return(expr), restart)
10. │ │ └─base (local) withRestartList(expr, restarts[-nr])
11. │ │ └─base (local) withOneRestart(expr, restarts[[1L]])
12. │ │ └─base (local) doWithOneRestart(return(expr), restart)
13. │ ├─evaluate:::with_handlers(...)
14. │ │ ├─base::eval(call)
15. │ │ │ └─base::eval(call)
16. │ │ └─base::withCallingHandlers(...)
17. │ └─watcher$print_value(ev$value, ev$visible, envir)
18. │ ├─base::withVisible(handle_value(handler, value, visible, envir))
19. │ └─evaluate:::handle_value(handler, value, visible, envir)
20. │ ├─handler$value(value)
21. │ └─testthat:::testthat_print.default(value)
22. │ ├─base::print(x)
23. │ └─base::print.default(x)
24. │ ├─methods (local) `<stndrdGn>`(`<ElmntryT[,1]>`)
25. │ └─rtables (local) `<stndrdGn>`(`<ElmntryT[,1]>`)
26. │ ├─base::cat(toString(object))
27. │ ├─base::toString(object)
28. │ └─rtables::toString(object)
29. │ └─rtables (local) .local(x, ...)
30. │ ├─base::toString(...)
31. │ ├─formatters::matrix_form(...)
32. │ └─rtables::matrix_form(...)
33. │ └─rtables:::.tbl_header_mat(obj)
34. │ ├─base::matrix(...)
35. │ └─base::rapply(...)
36. │ └─rtables (local) `<fn>`(X, ...)
37. │ ├─rtables::get_formatted_cells(x)
38. │ └─rtables::get_formatted_cells(x)
39. │ ├─base::matrix(...)
40. │ ├─base::unlist(...)
41. │ └─base::Map(...)
42. │ └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
43. │ └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
44. │ └─rtables::format_rcell(...)
45. │ └─formatters::format_value(...)
46. │ └─base::match.arg(round_type)
47. │ └─base::stop(gettextf("'%s' must be of length 1", "arg"), domain = NA)
48. └─base::.handleSimpleError(...)
49. └─base (local) h(simpleError(msg, call))
Maximum number of failures exceeded; quitting.
ℹ Increase this number with (e.g.) `testthat::set_max_fails(Inf)`
Error:
! Test failures.
Execution halted
Flavor: r-devel-linux-x86_64-fedora-gcc
Version: 0.3.1
Check: installed package size
Result: NOTE
installed size is 10.3Mb
sub-directories of 1Mb or more:
data 1.6Mb
doc 8.2Mb
Flavors: r-oldrel-macos-arm64, r-oldrel-macos-x86_64, r-oldrel-windows-x86_64
Current CRAN status: ERROR: 2, OK: 11
Version: 0.2.12
Check: examples
Result: ERROR
Running examples in ‘chevron-Ex.R’ failed
The error most likely occurred in:
> ### Name: aet01_main
> ### Title: 'AET01' Table 1 (Default) Overview of Deaths and Adverse Events
> ### Summary Table 1.
> ### Aliases: aet01_main aet01_pre aet01_post aet01
> ### Keywords: datasets
>
> ### ** Examples
>
> run(aet01, syn_data, arm_var = "ARM")
Error in match.arg(round_type) : 'arg' must be of length 1
Calls: run ... <Anonymous> -> format_rcell -> format_value -> match.arg
Execution halted
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc
Version: 0.2.12
Check: tests
Result: ERROR
Running ‘testthat.R’ [5m/14m]
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-aet02-30.R
Saving _problems/test-cfbt01-6.R
Saving _problems/test-chevron_tlg-methods-16.R
Saving _problems/test-cmt01a-5.R
Saving _problems/test-cmt01a-18.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 182 | WARN 0 | SKIP 26 | PASS 208 ]
══ Skipped tests (26) ══════════════════════════════════════════════════════════
• !interactive() is TRUE (1): 'test-chevron_tlg-methods.R:287:3'
• On CRAN (25): 'test-ael01_nollt.R:3:1', 'test-ael01_nollt.R:11:1',
'test-ael01_nollt.R:24:1', 'test-ael01_nollt.R:38:1',
'test-ael01_nollt.R:54:1', 'test-ael01_nollt.R:70:1', 'test-ael02.R:3:1',
'test-ael02.R:12:1', 'test-ael02.R:30:1', 'test-ael03.R:3:1',
'test-ael03.R:12:1', 'test-ael03.R:30:1', '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-cml02a_gl.R:3:1',
'test-cml02a_gl.R:8:1', 'test-cml02a_gl.R:18:1', 'test-default_tlg.R:1: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-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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
29. └─rtables::format_rcell(...)
30. └─formatters::format_value(...)
31. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
40. └─rtables::format_rcell(...)
41. └─formatters::format_value(...)
42. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
40. └─rtables::format_rcell(...)
41. └─formatters::format_value(...)
42. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
40. └─rtables::format_rcell(...)
41. └─formatters::format_value(...)
42. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
40. └─rtables::format_rcell(...)
41. └─formatters::format_value(...)
42. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
29. └─rtables::format_rcell(...)
30. └─formatters::format_value(...)
31. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(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) `<fn>`(...)
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) `<fn>`(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) `<fn>`(...)
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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(...)
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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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-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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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: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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
24. └─rtables::format_rcell(...)
25. └─formatters::format_value(...)
26. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
28. └─rtables::format_rcell(...)
29. └─formatters::format_value(...)
30. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
28. └─rtables::format_rcell(...)
29. └─formatters::format_value(...)
30. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
22. └─rtables::format_rcell(...)
23. └─formatters::format_value(...)
24. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
28. └─rtables::format_rcell(...)
29. └─formatters::format_value(...)
30. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(...)
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) `<fn>`(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) `<fn>`(...)
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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
40. └─rtables::format_rcell(...)
41. └─formatters::format_value(...)
42. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
40. └─rtables::format_rcell(...)
41. └─formatters::format_value(...)
42. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
40. └─rtables::format_rcell(...)
41. └─formatters::format_value(...)
42. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(...)
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) `<fn>`(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) `<fn>`(...)
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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
28. └─rtables::format_rcell(...)
29. └─formatters::format_value(...)
30. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
28. └─rtables::format_rcell(...)
29. └─formatters::format_value(...)
30. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
28. └─rtables::format_rcell(...)
29. └─formatters::format_value(...)
30. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(...)
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) `<fn>`(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) `<fn>`(...)
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) `<fn>`(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) `<fn>`(...)
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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(...)
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) `<fn>`(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) `<fn>`(...)
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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
40. └─rtables::format_rcell(...)
41. └─formatters::format_value(...)
42. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
28. └─rtables::format_rcell(...)
29. └─formatters::format_value(...)
30. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
40. └─rtables::format_rcell(...)
41. └─formatters::format_value(...)
42. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
40. └─rtables::format_rcell(...)
41. └─formatters::format_value(...)
42. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
40. └─rtables::format_rcell(...)
41. └─formatters::format_value(...)
42. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
40. └─rtables::format_rcell(...)
41. └─formatters::format_value(...)
42. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
40. └─rtables::format_rcell(...)
41. └─formatters::format_value(...)
42. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
28. └─rtables::format_rcell(...)
29. └─formatters::format_value(...)
30. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
40. └─rtables::format_rcell(...)
41. └─formatters::format_value(...)
42. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
29. └─rtables::format_rcell(...)
30. └─formatters::format_value(...)
31. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
29. └─rtables::format_rcell(...)
30. └─formatters::format_value(...)
31. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
29. └─rtables::format_rcell(...)
30. └─formatters::format_value(...)
31. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
22. └─rtables::format_rcell(...)
23. └─formatters::format_value(...)
24. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
22. └─rtables::format_rcell(...)
23. └─formatters::format_value(...)
24. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
22. └─rtables::format_rcell(...)
23. └─formatters::format_value(...)
24. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
22. └─rtables::format_rcell(...)
23. └─formatters::format_value(...)
24. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
26. │ └─rtables::format_rcell(...)
27. │ └─formatters::format_value(...)
28. │ └─base::match.arg(round_type)
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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
29. │ └─rtables::format_rcell(...)
30. │ └─formatters::format_value(...)
31. │ └─base::match.arg(round_type)
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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(...)
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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
40. └─rtables::format_rcell(...)
41. └─formatters::format_value(...)
42. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(...)
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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
40. └─rtables::format_rcell(...)
41. └─formatters::format_value(...)
42. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(...)
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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
40. └─rtables::format_rcell(...)
41. └─formatters::format_value(...)
42. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(...)
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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
40. └─rtables::format_rcell(...)
41. └─formatters::format_value(...)
42. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(...)
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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
40. └─rtables::format_rcell(...)
41. └─formatters::format_value(...)
42. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(...)
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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
40. └─rtables::format_rcell(...)
41. └─formatters::format_value(...)
42. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(...)
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) `<fn>`(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) `<fn>`(...)
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) `<fn>`(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) `<fn>`(...)
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) `<fn>`(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) `<stndrdGn>`(`<ElmntryT[,4]>`)
25. │ └─rtables (local) `<stndrdGn>`(`<ElmntryT[,4]>`)
26. │ ├─base::cat(toString(object))
27. │ ├─base::toString(object)
28. │ └─rtables::toString(object)
29. │ └─rtables (local) .local(x, ...)
30. │ ├─base::toString(...)
31. │ ├─formatters::matrix_form(...)
32. │ └─rtables::matrix_form(...)
33. │ └─rtables:::.tbl_header_mat(obj)
34. │ ├─base::matrix(...)
35. │ └─base::rapply(...)
36. │ └─rtables (local) `<fn>`(X, ...)
37. │ ├─rtables::get_formatted_cells(x)
38. │ └─rtables::get_formatted_cells(x)
39. │ ├─base::matrix(...)
40. │ ├─base::unlist(...)
41. │ └─base::Map(...)
42. │ └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
43. │ └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
44. │ └─rtables::format_rcell(...)
45. │ └─formatters::format_value(...)
46. │ └─base::match.arg(round_type)
47. │ └─base::stop(gettextf("'%s' must be of length 1", "arg"), domain = NA)
48. └─base::.handleSimpleError(...)
49. └─base (local) h(simpleError(msg, call))
── Error ('test-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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
28. └─rtables::format_rcell(...)
29. └─formatters::format_value(...)
30. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
28. └─rtables::format_rcell(...)
29. └─formatters::format_value(...)
30. └─base::match.arg(round_type)
[ FAIL 182 | WARN 0 | SKIP 26 | 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
Flavor: r-devel-linux-x86_64-fedora-clang
Version: 0.2.12
Check: re-building of vignette outputs
Result: ERROR
Error(s) in re-building vignettes:
--- re-building ‘chevron.Rmd’ using rmarkdown
Quitting from chevron.Rmd:84-86 [unnamed-chunk-3]
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
<error/rlang_error>
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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
29. └─rtables::format_rcell(...)
30. └─formatters::format_value(...)
31. └─base::match.arg(round_type)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Error: 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/rlang_error>
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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
29. └─rtables::format_rcell(...)
30. └─formatters::format_value(...)
31. └─base::match.arg(round_type)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Error: 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
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc
Version: 0.2.12
Check: tests
Result: ERROR
Running ‘testthat.R’ [5m/23m]
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-aet02-30.R
Saving _problems/test-cfbt01-6.R
Saving _problems/test-chevron_tlg-methods-16.R
Saving _problems/test-cmt01a-5.R
Saving _problems/test-cmt01a-18.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 182 | WARN 0 | SKIP 26 | PASS 208 ]
══ Skipped tests (26) ══════════════════════════════════════════════════════════
• !interactive() is TRUE (1): 'test-chevron_tlg-methods.R:287:3'
• On CRAN (25): 'test-ael01_nollt.R:3:1', 'test-ael01_nollt.R:11:1',
'test-ael01_nollt.R:24:1', 'test-ael01_nollt.R:38:1',
'test-ael01_nollt.R:54:1', 'test-ael01_nollt.R:70:1', 'test-ael02.R:3:1',
'test-ael02.R:12:1', 'test-ael02.R:30:1', 'test-ael03.R:3:1',
'test-ael03.R:12:1', 'test-ael03.R:30:1', '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-cml02a_gl.R:3:1',
'test-cml02a_gl.R:8:1', 'test-cml02a_gl.R:18:1', 'test-default_tlg.R:1: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-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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
29. └─rtables::format_rcell(...)
30. └─formatters::format_value(...)
31. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
40. └─rtables::format_rcell(...)
41. └─formatters::format_value(...)
42. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
40. └─rtables::format_rcell(...)
41. └─formatters::format_value(...)
42. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
40. └─rtables::format_rcell(...)
41. └─formatters::format_value(...)
42. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
40. └─rtables::format_rcell(...)
41. └─formatters::format_value(...)
42. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
29. └─rtables::format_rcell(...)
30. └─formatters::format_value(...)
31. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(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) `<fn>`(...)
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) `<fn>`(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) `<fn>`(...)
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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(...)
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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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-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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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: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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
24. └─rtables::format_rcell(...)
25. └─formatters::format_value(...)
26. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
28. └─rtables::format_rcell(...)
29. └─formatters::format_value(...)
30. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
28. └─rtables::format_rcell(...)
29. └─formatters::format_value(...)
30. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
22. └─rtables::format_rcell(...)
23. └─formatters::format_value(...)
24. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
28. └─rtables::format_rcell(...)
29. └─formatters::format_value(...)
30. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(...)
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) `<fn>`(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) `<fn>`(...)
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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
40. └─rtables::format_rcell(...)
41. └─formatters::format_value(...)
42. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
40. └─rtables::format_rcell(...)
41. └─formatters::format_value(...)
42. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
40. └─rtables::format_rcell(...)
41. └─formatters::format_value(...)
42. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(...)
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) `<fn>`(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) `<fn>`(...)
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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
28. └─rtables::format_rcell(...)
29. └─formatters::format_value(...)
30. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
28. └─rtables::format_rcell(...)
29. └─formatters::format_value(...)
30. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
28. └─rtables::format_rcell(...)
29. └─formatters::format_value(...)
30. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(...)
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) `<fn>`(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) `<fn>`(...)
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) `<fn>`(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) `<fn>`(...)
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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(...)
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) `<fn>`(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) `<fn>`(...)
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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
40. └─rtables::format_rcell(...)
41. └─formatters::format_value(...)
42. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
28. └─rtables::format_rcell(...)
29. └─formatters::format_value(...)
30. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
40. └─rtables::format_rcell(...)
41. └─formatters::format_value(...)
42. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
40. └─rtables::format_rcell(...)
41. └─formatters::format_value(...)
42. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
40. └─rtables::format_rcell(...)
41. └─formatters::format_value(...)
42. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
40. └─rtables::format_rcell(...)
41. └─formatters::format_value(...)
42. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
40. └─rtables::format_rcell(...)
41. └─formatters::format_value(...)
42. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
28. └─rtables::format_rcell(...)
29. └─formatters::format_value(...)
30. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
40. └─rtables::format_rcell(...)
41. └─formatters::format_value(...)
42. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
29. └─rtables::format_rcell(...)
30. └─formatters::format_value(...)
31. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
29. └─rtables::format_rcell(...)
30. └─formatters::format_value(...)
31. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
29. └─rtables::format_rcell(...)
30. └─formatters::format_value(...)
31. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
22. └─rtables::format_rcell(...)
23. └─formatters::format_value(...)
24. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
22. └─rtables::format_rcell(...)
23. └─formatters::format_value(...)
24. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
22. └─rtables::format_rcell(...)
23. └─formatters::format_value(...)
24. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
22. └─rtables::format_rcell(...)
23. └─formatters::format_value(...)
24. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
26. │ └─rtables::format_rcell(...)
27. │ └─formatters::format_value(...)
28. │ └─base::match.arg(round_type)
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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
29. │ └─rtables::format_rcell(...)
30. │ └─formatters::format_value(...)
31. │ └─base::match.arg(round_type)
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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(...)
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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
40. └─rtables::format_rcell(...)
41. └─formatters::format_value(...)
42. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(...)
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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
40. └─rtables::format_rcell(...)
41. └─formatters::format_value(...)
42. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(...)
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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
40. └─rtables::format_rcell(...)
41. └─formatters::format_value(...)
42. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(...)
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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
40. └─rtables::format_rcell(...)
41. └─formatters::format_value(...)
42. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(...)
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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
40. └─rtables::format_rcell(...)
41. └─formatters::format_value(...)
42. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(...)
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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
40. └─rtables::format_rcell(...)
41. └─formatters::format_value(...)
42. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(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) `<fn>`(...)
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) `<fn>`(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) `<fn>`(...)
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) `<fn>`(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) `<fn>`(...)
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) `<fn>`(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) `<stndrdGn>`(`<ElmntryT[,4]>`)
25. │ └─rtables (local) `<stndrdGn>`(`<ElmntryT[,4]>`)
26. │ ├─base::cat(toString(object))
27. │ ├─base::toString(object)
28. │ └─rtables::toString(object)
29. │ └─rtables (local) .local(x, ...)
30. │ ├─base::toString(...)
31. │ ├─formatters::matrix_form(...)
32. │ └─rtables::matrix_form(...)
33. │ └─rtables:::.tbl_header_mat(obj)
34. │ ├─base::matrix(...)
35. │ └─base::rapply(...)
36. │ └─rtables (local) `<fn>`(X, ...)
37. │ ├─rtables::get_formatted_cells(x)
38. │ └─rtables::get_formatted_cells(x)
39. │ ├─base::matrix(...)
40. │ ├─base::unlist(...)
41. │ └─base::Map(...)
42. │ └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
43. │ └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
44. │ └─rtables::format_rcell(...)
45. │ └─formatters::format_value(...)
46. │ └─base::match.arg(round_type)
47. │ └─base::stop(gettextf("'%s' must be of length 1", "arg"), domain = NA)
48. └─base::.handleSimpleError(...)
49. └─base (local) h(simpleError(msg, call))
── Error ('test-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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
28. └─rtables::format_rcell(...)
29. └─formatters::format_value(...)
30. └─base::match.arg(round_type)
── Error ('test-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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
28. └─rtables::format_rcell(...)
29. └─formatters::format_value(...)
30. └─base::match.arg(round_type)
[ FAIL 182 | WARN 0 | SKIP 26 | 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
Flavor: r-devel-linux-x86_64-fedora-gcc
Current CRAN status: OK: 13
Current CRAN status: OK: 13
Current CRAN status: OK: 13
Current CRAN status: OK: 13
Current CRAN status: NOTE: 3, OK: 10
Version: 0.3.16
Check: installed package size
Result: NOTE
installed size is 6.0Mb
sub-directories of 1Mb or more:
data 5.4Mb
Flavors: r-oldrel-macos-arm64, r-oldrel-macos-x86_64, r-oldrel-windows-x86_64
Current CRAN status: OK: 13
Current CRAN status: ERROR: 2, NOTE: 3, OK: 8
Version: 0.6.14
Check: examples
Result: ERROR
Running examples in ‘rtables-Ex.R’ failed
The error most likely occurred in:
> ### 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 ... <Anonymous> -> format_rcell -> format_value -> match.arg
Execution halted
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc
Version: 0.6.14
Check: tests
Result: ERROR
Running ‘testthat.R’
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) `<fn>`(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
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc
Version: 0.6.14
Check: re-building of vignette outputs
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/rlang_error>
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) `<fn>`(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/rlang_error>
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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
24. └─rtables::format_rcell(...)
25. └─formatters::format_value(...)
26. └─base::match.arg(round_type)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Error: 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/rlang_error>
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) `<fn>`(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/rlang_error>
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) `<fn>`(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/rlang_error>
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) `<fn>`(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/rlang_error>
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) `<fn>`(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/rlang_error>
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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
24. └─rtables::format_rcell(...)
25. └─formatters::format_value(...)
26. └─base::match.arg(round_type)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Error: 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/rlang_error>
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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
22. └─rtables::format_rcell(...)
23. └─formatters::format_value(...)
24. └─base::match.arg(round_type)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Error: 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/rlang_error>
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) `<fn>`(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/rlang_error>
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) `<fn>`(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/rlang_error>
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) `<fn>`(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) `<fn>`(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/rlang_error>
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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
24. └─rtables::format_rcell(...)
25. └─formatters::format_value(...)
26. └─base::match.arg(round_type)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Error: 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/rlang_error>
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) `<fn>`(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/rlang_error>
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) `<fn>`(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) `<fn>`(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/rlang_error>
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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
30. └─rtables::format_rcell(...)
31. └─formatters::format_value(...)
32. └─base::match.arg(round_type)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
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/rlang_error>
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) `<fn>`(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/rlang_error>
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) `<fn>`(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/rlang_error>
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) `<fn>`(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/rlang_error>
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) `<fn>`(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/rlang_error>
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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
24. └─rtables::format_rcell(...)
25. └─formatters::format_value(...)
26. └─base::match.arg(round_type)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Error: 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/rlang_error>
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) `<fn>`(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/rlang_error>
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) `<fn>`(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
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc
Version: 0.6.14
Check: installed package size
Result: NOTE
installed size is 9.3Mb
sub-directories of 1Mb or more:
R 2.1Mb
doc 6.3Mb
Flavors: r-oldrel-macos-arm64, r-oldrel-macos-x86_64, r-oldrel-windows-x86_64
Current CRAN status: ERROR: 2, OK: 11
Version: 0.1.1
Check: examples
Result: ERROR
Running examples in ‘rtables.officer-Ex.R’ failed
The error most likely occurred in:
> ### 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 ... <Anonymous> -> format_rcell -> format_value -> match.arg
Execution halted
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc
Version: 0.1.1
Check: tests
Result: ERROR
Running ‘testthat.R’ [24s/68s]
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-export_as_docx-3.R
Saving _problems/test-export_as_docx-44.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 11 | WARN 0 | SKIP 0 | PASS 37 ]
══ 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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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-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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
30. └─rtables::format_rcell(...)
31. └─formatters::format_value(...)
32. └─base::match.arg(round_type)
── 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) `<fn>`(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: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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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 11 | WARN 0 | SKIP 0 | PASS 37 ]
Error:
! Test failures.
Execution halted
Flavor: r-devel-linux-x86_64-fedora-clang
Version: 0.1.1
Check: re-building of vignette outputs
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
[WARNING] Deprecated: --highlight-style. Use --syntax-highlighting instead.
--- finished re-building ‘export_rlistings.Rmd’
--- re-building ‘rtables.officer.Rmd’ using rmarkdown
Quitting from rtables.officer.Rmd:112-115 [unnamed-chunk-7]
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
<error/rlang_error>
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) `<fn>`(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 file failed:
‘rtables.officer.Rmd’
Error: Vignette re-building failed.
Execution halted
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc
Version: 0.1.1
Check: tests
Result: ERROR
Running ‘testthat.R’ [25s/148s]
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-export_as_docx-3.R
Saving _problems/test-export_as_docx-44.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 11 | WARN 0 | SKIP 0 | PASS 37 ]
══ 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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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-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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
30. └─rtables::format_rcell(...)
31. └─formatters::format_value(...)
32. └─base::match.arg(round_type)
── 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) `<fn>`(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: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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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 11 | WARN 0 | SKIP 0 | PASS 37 ]
Error:
! Test failures.
Execution halted
Flavor: r-devel-linux-x86_64-fedora-gcc
Current CRAN status: ERROR: 2, NOTE: 3, OK: 8
Version: 0.9.9
Check: examples
Result: ERROR
Running examples in ‘tern-Ex.R’ failed
The error most likely occurred in:
> ### 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: %>% ... <Anonymous> -> format_rcell -> format_value -> match.arg
Execution halted
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc
Version: 0.9.9
Check: tests
Result: ERROR
Running ‘testthat.R’ [26s/27s]
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 [1.7s]
────────────────────────────────────────────────────────────────────────────────
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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
22. └─rtables::format_rcell(...)
23. └─formatters::format_value(...)
24. └─base::match.arg(round_type)
Error ('test-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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
22. └─rtables::format_rcell(...)
23. └─formatters::format_value(...)
24. └─base::match.arg(round_type)
Error ('test-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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
28. └─rtables::format_rcell(...)
29. └─formatters::format_value(...)
30. └─base::match.arg(round_type)
────────────────────────────────────────────────────────────────────────────────
✖ | 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) `<fn>`(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) `<fn>`(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 [8.1s]
────────────────────────────────────────────────────────────────────────────────
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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
28. └─rtables::format_rcell(...)
29. └─formatters::format_value(...)
30. └─base::match.arg(round_type)
────────────────────────────────────────────────────────────────────────────────
✖ | 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) `<fn>`(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 [1.5s]
────────────────────────────────────────────────────────────────────────────────
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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
22. └─rtables::format_rcell(...)
23. └─formatters::format_value(...)
24. └─base::match.arg(round_type)
Error ('test-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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
22. └─rtables::format_rcell(...)
23. └─formatters::format_value(...)
24. └─base::match.arg(round_type)
Error ('test-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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
28. └─rtables::format_rcell(...)
29. └─formatters::format_value(...)
30. └─base::match.arg(round_type)
Error ('test-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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
28. └─rtables::format_rcell(...)
29. └─formatters::format_value(...)
30. └─base::match.arg(round_type)
Error ('test-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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
29. └─rtables::format_rcell(...)
30. └─formatters::format_value(...)
31. └─base::match.arg(round_type)
Error ('test-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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
22. └─rtables::format_rcell(...)
23. └─formatters::format_value(...)
24. └─base::match.arg(round_type)
Error ('test-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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
22. └─rtables::format_rcell(...)
23. └─formatters::format_value(...)
24. └─base::match.arg(round_type)
Error ('test-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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
22. └─rtables::format_rcell(...)
23. └─formatters::format_value(...)
24. └─base::match.arg(round_type)
Error ('test-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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
28. └─rtables::format_rcell(...)
29. └─formatters::format_value(...)
30. └─base::match.arg(round_type)
Error ('test-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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
22. └─rtables::format_rcell(...)
23. └─formatters::format_value(...)
24. └─base::match.arg(round_type)
Error ('test-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) `<fn>`(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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
22. └─rtables::format_rcell(...)
23. └─formatters::format_value(...)
24. └─base::match.arg(round_type)
Error ('test-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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
28. └─rtables::format_rcell(...)
29. └─formatters::format_value(...)
30. └─base::match.arg(round_type)
Maximum number of failures exceeded; quitting.
ℹ Increase this number with (e.g.) `testthat::set_max_fails(Inf)`
Error:
! Test failures.
Execution halted
Flavor: r-devel-linux-x86_64-fedora-clang
Version: 0.9.9
Check: re-building of vignette outputs
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/rlang_error>
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) `<fn>`(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/rlang_error>
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) `<fn>`(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/rlang_error>
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) `<fn>`(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/rlang_error>
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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
22. └─rtables::format_rcell(...)
23. └─formatters::format_value(...)
24. └─base::match.arg(round_type)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Error: 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/rlang_error>
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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
29. └─rtables::format_rcell(...)
30. └─formatters::format_value(...)
31. └─base::match.arg(round_type)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Error: 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
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc
Version: 0.9.9
Check: tests
Result: ERROR
Running ‘testthat.R’ [36s/39s]
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 [1.7s]
────────────────────────────────────────────────────────────────────────────────
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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
22. └─rtables::format_rcell(...)
23. └─formatters::format_value(...)
24. └─base::match.arg(round_type)
Error ('test-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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
22. └─rtables::format_rcell(...)
23. └─formatters::format_value(...)
24. └─base::match.arg(round_type)
Error ('test-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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
28. └─rtables::format_rcell(...)
29. └─formatters::format_value(...)
30. └─base::match.arg(round_type)
────────────────────────────────────────────────────────────────────────────────
✖ | 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) `<fn>`(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) `<fn>`(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 [11.2s]
────────────────────────────────────────────────────────────────────────────────
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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
28. └─rtables::format_rcell(...)
29. └─formatters::format_value(...)
30. └─base::match.arg(round_type)
────────────────────────────────────────────────────────────────────────────────
✖ | 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) `<fn>`(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 [2.0s]
────────────────────────────────────────────────────────────────────────────────
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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
22. └─rtables::format_rcell(...)
23. └─formatters::format_value(...)
24. └─base::match.arg(round_type)
Error ('test-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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
22. └─rtables::format_rcell(...)
23. └─formatters::format_value(...)
24. └─base::match.arg(round_type)
Error ('test-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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
28. └─rtables::format_rcell(...)
29. └─formatters::format_value(...)
30. └─base::match.arg(round_type)
Error ('test-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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
28. └─rtables::format_rcell(...)
29. └─formatters::format_value(...)
30. └─base::match.arg(round_type)
Error ('test-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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
29. └─rtables::format_rcell(...)
30. └─formatters::format_value(...)
31. └─base::match.arg(round_type)
Error ('test-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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
22. └─rtables::format_rcell(...)
23. └─formatters::format_value(...)
24. └─base::match.arg(round_type)
Error ('test-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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
22. └─rtables::format_rcell(...)
23. └─formatters::format_value(...)
24. └─base::match.arg(round_type)
Error ('test-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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
22. └─rtables::format_rcell(...)
23. └─formatters::format_value(...)
24. └─base::match.arg(round_type)
Error ('test-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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
28. └─rtables::format_rcell(...)
29. └─formatters::format_value(...)
30. └─base::match.arg(round_type)
Error ('test-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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
22. └─rtables::format_rcell(...)
23. └─formatters::format_value(...)
24. └─base::match.arg(round_type)
Error ('test-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) `<fn>`(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) `<fn>`(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
22. └─rtables::format_rcell(...)
23. └─formatters::format_value(...)
24. └─base::match.arg(round_type)
Error ('test-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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
28. └─rtables::format_rcell(...)
29. └─formatters::format_value(...)
30. └─base::match.arg(round_type)
Maximum number of failures exceeded; quitting.
ℹ Increase this number with (e.g.) `testthat::set_max_fails(Inf)`
Error:
! Test failures.
Execution halted
Flavor: r-devel-linux-x86_64-fedora-gcc
Version: 0.9.9
Check: installed package size
Result: NOTE
installed size is 9.2Mb
sub-directories of 1Mb or more:
doc 5.3Mb
help 2.7Mb
Flavors: r-oldrel-macos-arm64, r-oldrel-macos-x86_64, r-oldrel-windows-x86_64
Current CRAN status: ERROR: 2, OK: 11
Version: 0.1.5
Check: examples
Result: ERROR
Running examples in ‘tern.gee-Ex.R’ failed
The error most likely occurred in:
> ### 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: %>% ... <Anonymous> -> format_rcell -> format_value -> match.arg
Execution halted
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc
Version: 0.1.5
Check: tests
Result: ERROR
Running ‘testthat.R’ [14s/15s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> pkg_name <- "tern.gee"
> library(pkg_name, character.only = TRUE)
Loading required package: tern
Loading required package: rtables
Loading required package: formatters
Attaching package: 'formatters'
The following object is masked from 'package:base':
%||%
Loading required package: magrittr
Attaching package: 'rtables'
The following object is masked from 'package:utils':
str
> testthat::test_check(pkg_name)
Attaching package: 'testthat'
The following objects are masked from 'package:magrittr':
equals, is_less_than, not
Saving _problems/test-tabulate_gee-32.R
Saving _problems/test-tabulate_gee-71.R
Saving _problems/test-tabulate_gee-96.R
[ FAIL 3 | WARN 0 | SKIP 0 | PASS 43 ]
══ Failed tests ════════════════════════════════════════════════════════════════
── Error ('test-tabulate_gee.R:32:3'): h_gee_cov works as expected ─────────────
Error in `h(simpleError(msg, call))`: error in evaluating the argument 'x' in selecting a method for function 'toString': 'arg' must be of length 1
Backtrace:
▆
1. ├─testthat::expect_snapshot(result) at test-tabulate_gee.R:32:3
2. │ └─testthat:::expect_snapshot_(...)
3. │ ├─testthat:::with_is_snapshotting(...)
4. │ └─testthat:::verify_exec(quo_get_expr(x), quo_get_env(x), replay)
5. │ └─evaluate::evaluate(source, envir = env, new_device = FALSE, output_handler = handler)
6. │ ├─base::withRestarts(...)
7. │ │ └─base (local) withRestartList(expr, restarts)
8. │ │ ├─base (local) withOneRestart(withRestartList(expr, restarts[-nr]), restarts[[nr]])
9. │ │ │ └─base (local) doWithOneRestart(return(expr), restart)
10. │ │ └─base (local) withRestartList(expr, restarts[-nr])
11. │ │ └─base (local) withOneRestart(expr, restarts[[1L]])
12. │ │ └─base (local) doWithOneRestart(return(expr), restart)
13. │ ├─evaluate:::with_handlers(...)
14. │ │ ├─base::eval(call)
15. │ │ │ └─base::eval(call)
16. │ │ └─base::withCallingHandlers(...)
17. │ └─watcher$print_value(ev$value, ev$visible, envir)
18. │ ├─base::withVisible(handle_value(handler, value, visible, envir))
19. │ └─evaluate:::handle_value(handler, value, visible, envir)
20. │ ├─handler$value(value)
21. │ └─testthat:::testthat_print.default(value)
22. │ ├─base::print(x)
23. │ └─base::print.default(x)
24. │ ├─methods (local) `<stndrdGn>`(`<ElmntryT[,4]>`)
25. │ └─rtables (local) `<stndrdGn>`(`<ElmntryT[,4]>`)
26. │ ├─base::cat(toString(object))
27. │ ├─base::toString(object)
28. │ └─rtables::toString(object)
29. │ └─rtables (local) .local(x, ...)
30. │ ├─base::toString(...)
31. │ ├─formatters::matrix_form(...)
32. │ └─rtables::matrix_form(...)
33. │ └─rtables:::.tbl_header_mat(obj)
34. │ ├─base::matrix(...)
35. │ └─base::rapply(...)
36. │ └─rtables (local) `<fn>`(X, ...)
37. │ ├─rtables::get_formatted_cells(x)
38. │ └─rtables::get_formatted_cells(x)
39. │ ├─base::matrix(...)
40. │ ├─base::unlist(...)
41. │ └─base::Map(...)
42. │ └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
43. │ └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
44. │ └─rtables::format_rcell(...)
45. │ └─formatters::format_value(...)
46. │ └─base::match.arg(round_type)
47. │ └─base::stop(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
22. └─rtables::format_rcell(...)
23. └─formatters::format_value(...)
24. └─base::match.arg(round_type)
── Error ('test-tabulate_gee.R:89:3'): summarize_gee_logistic works as expected with no covariates in the model ──
Error in `match.arg(round_type)`: 'arg' must be of length 1
Backtrace:
▆
1. ├─... %>% ... at test-tabulate_gee.R:89:3
2. └─rtables::build_table(., df = lsmeans(model), alt_counts_df = dat_adsl)
3. └─rtables::update_ref_indexing(tab)
4. ├─formatters::make_row_df(tt)
5. └─rtables::make_row_df(tt)
6. └─rtables (local) .local(...)
7. ├─formatters::make_row_df(...)
8. └─rtables::make_row_df(...)
9. └─rtables (local) .local(...)
10. ├─formatters::pagdfrow(...)
11. │ └─base::data.frame(...)
12. ├─formatters::nlines(...)
13. └─rtables::nlines(...)
14. ├─base::as.vector(get_formatted_cells(x))
15. ├─rtables::get_formatted_cells(x)
16. └─rtables::get_formatted_cells(x)
17. ├─base::matrix(...)
18. ├─base::unlist(...)
19. └─base::Map(...)
20. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
21. └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
22. └─rtables::format_rcell(...)
23. └─formatters::format_value(...)
24. └─base::match.arg(round_type)
[ FAIL 3 | WARN 0 | SKIP 0 | PASS 43 ]
Error:
! Test failures.
Execution halted
Flavor: r-devel-linux-x86_64-fedora-clang
Version: 0.1.5
Check: re-building of vignette outputs
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/rlang_error>
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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
22. └─rtables::format_rcell(...)
23. └─formatters::format_value(...)
24. └─base::match.arg(round_type)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Error: 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
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc
Version: 0.1.5
Check: tests
Result: ERROR
Running ‘testthat.R’ [17s/21s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> pkg_name <- "tern.gee"
> library(pkg_name, character.only = TRUE)
Loading required package: tern
Loading required package: rtables
Loading required package: formatters
Attaching package: 'formatters'
The following object is masked from 'package:base':
%||%
Loading required package: magrittr
Attaching package: 'rtables'
The following object is masked from 'package:utils':
str
> testthat::test_check(pkg_name)
Attaching package: 'testthat'
The following objects are masked from 'package:magrittr':
equals, is_less_than, not
Saving _problems/test-tabulate_gee-32.R
Saving _problems/test-tabulate_gee-71.R
Saving _problems/test-tabulate_gee-96.R
[ FAIL 3 | WARN 0 | SKIP 0 | PASS 43 ]
══ Failed tests ════════════════════════════════════════════════════════════════
── Error ('test-tabulate_gee.R:32:3'): h_gee_cov works as expected ─────────────
Error in `h(simpleError(msg, call))`: error in evaluating the argument 'x' in selecting a method for function 'toString': 'arg' must be of length 1
Backtrace:
▆
1. ├─testthat::expect_snapshot(result) at test-tabulate_gee.R:32:3
2. │ └─testthat:::expect_snapshot_(...)
3. │ ├─testthat:::with_is_snapshotting(...)
4. │ └─testthat:::verify_exec(quo_get_expr(x), quo_get_env(x), replay)
5. │ └─evaluate::evaluate(source, envir = env, new_device = FALSE, output_handler = handler)
6. │ ├─base::withRestarts(...)
7. │ │ └─base (local) withRestartList(expr, restarts)
8. │ │ ├─base (local) withOneRestart(withRestartList(expr, restarts[-nr]), restarts[[nr]])
9. │ │ │ └─base (local) doWithOneRestart(return(expr), restart)
10. │ │ └─base (local) withRestartList(expr, restarts[-nr])
11. │ │ └─base (local) withOneRestart(expr, restarts[[1L]])
12. │ │ └─base (local) doWithOneRestart(return(expr), restart)
13. │ ├─evaluate:::with_handlers(...)
14. │ │ ├─base::eval(call)
15. │ │ │ └─base::eval(call)
16. │ │ └─base::withCallingHandlers(...)
17. │ └─watcher$print_value(ev$value, ev$visible, envir)
18. │ ├─base::withVisible(handle_value(handler, value, visible, envir))
19. │ └─evaluate:::handle_value(handler, value, visible, envir)
20. │ ├─handler$value(value)
21. │ └─testthat:::testthat_print.default(value)
22. │ ├─base::print(x)
23. │ └─base::print.default(x)
24. │ ├─methods (local) `<stndrdGn>`(`<ElmntryT[,4]>`)
25. │ └─rtables (local) `<stndrdGn>`(`<ElmntryT[,4]>`)
26. │ ├─base::cat(toString(object))
27. │ ├─base::toString(object)
28. │ └─rtables::toString(object)
29. │ └─rtables (local) .local(x, ...)
30. │ ├─base::toString(...)
31. │ ├─formatters::matrix_form(...)
32. │ └─rtables::matrix_form(...)
33. │ └─rtables:::.tbl_header_mat(obj)
34. │ ├─base::matrix(...)
35. │ └─base::rapply(...)
36. │ └─rtables (local) `<fn>`(X, ...)
37. │ ├─rtables::get_formatted_cells(x)
38. │ └─rtables::get_formatted_cells(x)
39. │ ├─base::matrix(...)
40. │ ├─base::unlist(...)
41. │ └─base::Map(...)
42. │ └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
43. │ └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
44. │ └─rtables::format_rcell(...)
45. │ └─formatters::format_value(...)
46. │ └─base::match.arg(round_type)
47. │ └─base::stop(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) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
22. └─rtables::format_rcell(...)
23. └─formatters::format_value(...)
24. └─base::match.arg(round_type)
── Error ('test-tabulate_gee.R:89:3'): summarize_gee_logistic works as expected with no covariates in the model ──
Error in `match.arg(round_type)`: 'arg' must be of length 1
Backtrace:
▆
1. ├─... %>% ... at test-tabulate_gee.R:89:3
2. └─rtables::build_table(., df = lsmeans(model), alt_counts_df = dat_adsl)
3. └─rtables::update_ref_indexing(tab)
4. ├─formatters::make_row_df(tt)
5. └─rtables::make_row_df(tt)
6. └─rtables (local) .local(...)
7. ├─formatters::make_row_df(...)
8. └─rtables::make_row_df(...)
9. └─rtables (local) .local(...)
10. ├─formatters::pagdfrow(...)
11. │ └─base::data.frame(...)
12. ├─formatters::nlines(...)
13. └─rtables::nlines(...)
14. ├─base::as.vector(get_formatted_cells(x))
15. ├─rtables::get_formatted_cells(x)
16. └─rtables::get_formatted_cells(x)
17. ├─base::matrix(...)
18. ├─base::unlist(...)
19. └─base::Map(...)
20. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
21. └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
22. └─rtables::format_rcell(...)
23. └─formatters::format_value(...)
24. └─base::match.arg(round_type)
[ FAIL 3 | WARN 0 | SKIP 0 | PASS 43 ]
Error:
! Test failures.
Execution halted
Flavor: r-devel-linux-x86_64-fedora-gcc
Current CRAN status: ERROR: 2, OK: 11
Version: 0.3.3
Check: examples
Result: ERROR
Running examples in ‘tern.mmrm-Ex.R’ failed
The error most likely occurred in:
> ### 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
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc
Version: 0.3.3
Check: tests
Result: ERROR
Running ‘testthat.R’ [43s/44s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> pkg_name <- "tern.mmrm"
> library(testthat)
> is_on_ci <- isTRUE(as.logical(Sys.getenv("CI")))
> if (is_on_ci) {
+ reporter <- MultiReporter$new(list(
+ CheckReporter$new()
+ ))
+ test_results <- test_check(pkg_name, reporter = reporter)
+ saveRDS(test_results, "unit_testing_results.rds")
+ } else {
+ reporter <- ParallelProgressReporter$new()
+ test_check(pkg_name, reporter = reporter)
+ }
Loading required package: tern.mmrm
Loading required package: tern
Loading required package: rtables
Loading required package: formatters
Attaching package: 'formatters'
The following object is masked from 'package:base':
%||%
Loading required package: magrittr
Attaching package: 'magrittr'
The following objects are masked from 'package:testthat':
equals, is_less_than, not
Attaching package: 'rtables'
The following object is masked from 'package:utils':
str
✔ | F W S OK | Context
⠋ [ FAIL 0 | WARN 0 | SKIP 0 | PASS 0 ] Starting up...
✔ | 31 | assert_data [1.1s]
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 [8.3s]
✔ | 4 | formula
✖ | 5 11 15 | g_mmrm [15.3s]
────────────────────────────────────────────────────────────────────────────────
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 [2.3s]
✖ | 2 4 5 | subgroups [8.0s]
────────────────────────────────────────────────────────────────────────────────
Error ('test-subgroups.R:160:3'): tabulate_mmrm_subgroups works as expected
Error in `match.arg(round_type)`: 'arg' must be of length 1
Backtrace:
▆
1. ├─testthat::expect_silent(tab <- basic_table() %>% tabulate_mmrm_subgroups(df)) at test-subgroups.R:160:3
2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
3. │ ├─testthat (local) .capture(...)
4. │ │ ├─withr::with_output_sink(...)
5. │ │ │ └─base::force(code)
6. │ │ ├─base::withCallingHandlers(...)
7. │ │ └─base::withVisible(code)
8. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
9. ├─basic_table() %>% tabulate_mmrm_subgroups(df)
10. └─tern.mmrm::tabulate_mmrm_subgroups(., df)
11. └─rtables::build_table(lyt_estimates, df = df$estimates)
12. └─rtables::update_ref_indexing(tab)
13. ├─formatters::make_row_df(tt)
14. └─rtables::make_row_df(tt)
15. └─rtables (local) .local(...)
16. ├─formatters::make_row_df(...)
17. └─rtables::make_row_df(...)
18. └─rtables (local) .local(...)
19. ├─formatters::make_row_df(...)
20. └─rtables::make_row_df(...)
21. └─rtables (local) .local(...)
22. ├─formatters::make_row_df(...)
23. └─rtables::make_row_df(...)
24. └─rtables (local) .local(...)
25. ├─formatters::make_row_df(...)
26. └─rtables::make_row_df(...)
27. └─rtables (local) .local(...)
28. ├─formatters::pagdfrow(...)
29. │ └─base::data.frame(...)
30. ├─formatters::nlines(...)
31. └─rtables::nlines(...)
32. ├─base::as.vector(get_formatted_cells(x))
33. ├─rtables::get_formatted_cells(x)
34. └─rtables::get_formatted_cells(x)
35. ├─base::matrix(...)
36. ├─base::unlist(...)
37. └─base::Map(...)
38. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
39. └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
40. └─rtables::format_rcell(...)
41. └─formatters::format_value(...)
42. └─base::match.arg(round_type)
Error ('test-subgroups.R:181:3'): tabulate_mmrm_subgroups with custom settings works as expected
Error in `match.arg(round_type)`: 'arg' must be of length 1
Backtrace:
▆
1. ├─testthat::expect_silent(...) at test-subgroups.R:181:3
2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
3. │ ├─testthat (local) .capture(...)
4. │ │ ├─withr::with_output_sink(...)
5. │ │ │ └─base::force(code)
6. │ │ ├─base::withCallingHandlers(...)
7. │ │ └─base::withVisible(code)
8. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
9. ├─basic_table() %>% ...
10. └─tern.mmrm::tabulate_mmrm_subgroups(...)
11. └─rtables::build_table(lyt_contrasts, df = df$contrasts)
12. └─rtables::update_ref_indexing(tab)
13. ├─formatters::make_row_df(tt)
14. └─rtables::make_row_df(tt)
15. └─rtables (local) .local(...)
16. ├─formatters::make_row_df(...)
17. └─rtables::make_row_df(...)
18. └─rtables (local) .local(...)
19. ├─formatters::make_row_df(...)
20. └─rtables::make_row_df(...)
21. └─rtables (local) .local(...)
22. ├─formatters::make_row_df(...)
23. └─rtables::make_row_df(...)
24. └─rtables (local) .local(...)
25. ├─formatters::make_row_df(...)
26. └─rtables::make_row_df(...)
27. └─rtables (local) .local(...)
28. ├─formatters::pagdfrow(...)
29. │ └─base::data.frame(...)
30. ├─formatters::nlines(...)
31. └─rtables::nlines(...)
32. ├─base::as.vector(get_formatted_cells(x))
33. ├─rtables::get_formatted_cells(x)
34. └─rtables::get_formatted_cells(x)
35. ├─base::matrix(...)
36. ├─base::unlist(...)
37. └─base::Map(...)
38. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
39. └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
40. └─rtables::format_rcell(...)
41. └─formatters::format_value(...)
42. └─base::match.arg(round_type)
────────────────────────────────────────────────────────────────────────────────
⠙ [ FAIL 11 | WARN 0 | SKIP 20 | PASS 150 ] @ table_mmrmt01
────────────────────────────────────────────────────────────────────────────────
Error ('test-table_mmrmt01.R:22:3'): LS means table is produced correctly
Error in `match.arg(round_type)`: 'arg' must be of length 1
Backtrace:
▆
1. ├─... %>% build_table(df, alt_counts_df = mmrm_test_data) at test-table_mmrmt01.R:22:3
2. └─rtables::build_table(., df, alt_counts_df = mmrm_test_data)
3. └─rtables::update_ref_indexing(tab)
4. ├─formatters::make_row_df(tt)
5. └─rtables::make_row_df(tt)
6. └─rtables (local) .local(...)
7. ├─formatters::make_row_df(...)
8. └─rtables::make_row_df(...)
9. └─rtables (local) .local(...)
10. ├─formatters::make_row_df(...)
11. └─rtables::make_row_df(...)
12. └─rtables (local) .local(...)
13. ├─formatters::make_row_df(...)
14. └─rtables::make_row_df(...)
15. └─rtables (local) .local(...)
16. ├─formatters::pagdfrow(...)
17. │ └─base::data.frame(...)
18. ├─formatters::nlines(...)
19. └─rtables::nlines(...)
20. ├─base::as.vector(get_formatted_cells(x))
21. ├─rtables::get_formatted_cells(x)
22. └─rtables::get_formatted_cells(x)
23. ├─base::matrix(...)
24. ├─base::unlist(...)
25. └─base::Map(...)
26. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
27. └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
28. └─rtables::format_rcell(...)
29. └─formatters::format_value(...)
30. └─base::match.arg(round_type)
Error ('test-table_mmrmt01.R:46:3'): Fixed effects table is produced correctly
Error in `h(simpleError(msg, call))`: error in evaluating the argument 'x' in selecting a method for function 'toString': 'arg' must be of length 1
Backtrace:
▆
1. ├─testthat::expect_snapshot(result) at test-table_mmrmt01.R:46:3
2. │ └─testthat:::expect_snapshot_(...)
3. │ ├─testthat:::with_is_snapshotting(...)
4. │ └─testthat:::verify_exec(quo_get_expr(x), quo_get_env(x), replay)
5. │ └─evaluate::evaluate(source, envir = env, new_device = FALSE, output_handler = handler)
6. │ ├─base::withRestarts(...)
7. │ │ └─base (local) withRestartList(expr, restarts)
8. │ │ ├─base (local) withOneRestart(withRestartList(expr, restarts[-nr]), restarts[[nr]])
9. │ │ │ └─base (local) doWithOneRestart(return(expr), restart)
10. │ │ └─base (local) withRestartList(expr, restarts[-nr])
11. │ │ └─base (local) withOneRestart(expr, restarts[[1L]])
12. │ │ └─base (local) doWithOneRestart(return(expr), restart)
13. │ ├─evaluate:::with_handlers(...)
14. │ │ ├─base::eval(call)
15. │ │ │ └─base::eval(call)
16. │ │ └─base::withCallingHandlers(...)
17. │ └─watcher$print_value(ev$value, ev$visible, envir)
18. │ ├─base::withVisible(handle_value(handler, value, visible, envir))
19. │ └─evaluate:::handle_value(handler, value, visible, envir)
20. │ ├─handler$value(value)
21. │ └─testthat:::testthat_print.default(value)
22. │ ├─base::print(x)
23. │ └─base::print.default(x)
24. │ ├─methods (local) `<stndrdGn>`(`<ElmntryT[,5]>`)
25. │ └─rtables (local) `<stndrdGn>`(`<ElmntryT[,5]>`)
26. │ ├─base::cat(toString(object))
27. │ ├─base::toString(object)
28. │ └─rtables::toString(object)
29. │ └─rtables (local) .local(x, ...)
30. │ ├─base::toString(...)
31. │ ├─formatters::matrix_form(...)
32. │ └─rtables::matrix_form(...)
33. │ └─rtables:::.tbl_header_mat(obj)
34. │ ├─base::matrix(...)
35. │ └─base::rapply(...)
36. │ └─rtables (local) `<fn>`(X, ...)
37. │ ├─rtables::get_formatted_cells(x)
38. │ └─rtables::get_formatted_cells(x)
39. │ ├─base::matrix(...)
40. │ ├─base::unlist(...)
41. │ └─base::Map(...)
42. │ └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
43. │ └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
44. │ └─rtables::format_rcell(...)
45. │ └─formatters::format_value(...)
46. │ └─base::match.arg(round_type)
47. │ └─base::stop(gettextf("'%s' must be of length 1", "arg"), domain = NA)
48. └─base::.handleSimpleError(...)
49. └─base (local) h(simpleError(msg, call))
Error ('test-table_mmrmt01.R:51:3'): Covariance matrix table is produced correctly
Error in `h(simpleError(msg, call))`: error in evaluating the argument 'x' in selecting a method for function 'toString': 'arg' must be of length 1
Backtrace:
▆
1. ├─testthat::expect_snapshot(result) at test-table_mmrmt01.R:51:3
2. │ └─testthat:::expect_snapshot_(...)
3. │ ├─testthat:::with_is_snapshotting(...)
4. │ └─testthat:::verify_exec(quo_get_expr(x), quo_get_env(x), replay)
5. │ └─evaluate::evaluate(source, envir = env, new_device = FALSE, output_handler = handler)
6. │ ├─base::withRestarts(...)
7. │ │ └─base (local) withRestartList(expr, restarts)
8. │ │ ├─base (local) withOneRestart(withRestartList(expr, restarts[-nr]), restarts[[nr]])
9. │ │ │ └─base (local) doWithOneRestart(return(expr), restart)
10. │ │ └─base (local) withRestartList(expr, restarts[-nr])
11. │ │ └─base (local) withOneRestart(expr, restarts[[1L]])
12. │ │ └─base (local) doWithOneRestart(return(expr), restart)
13. │ ├─evaluate:::with_handlers(...)
14. │ │ ├─base::eval(call)
15. │ │ │ └─base::eval(call)
16. │ │ └─base::withCallingHandlers(...)
17. │ └─watcher$print_value(ev$value, ev$visible, envir)
18. │ ├─base::withVisible(handle_value(handler, value, visible, envir))
19. │ └─evaluate:::handle_value(handler, value, visible, envir)
20. │ ├─handler$value(value)
21. │ └─testthat:::testthat_print.default(value)
22. │ ├─base::print(x)
23. │ └─base::print.default(x)
24. │ ├─methods (local) `<stndrdGn>`(`<ElmntryT[,4]>`)
25. │ └─rtables (local) `<stndrdGn>`(`<ElmntryT[,4]>`)
26. │ ├─base::cat(toString(object))
27. │ ├─base::toString(object)
28. │ └─rtables::toString(object)
29. │ └─rtables (local) .local(x, ...)
30. │ ├─base::toString(...)
31. │ ├─formatters::matrix_form(...)
32. │ └─rtables::matrix_form(...)
33. │ └─rtables:::.tbl_header_mat(obj)
34. │ ├─base::matrix(...)
35. │ └─base::rapply(...)
36. │ └─rtables (local) `<fn>`(X, ...)
37. │ ├─rtables::get_formatted_cells(x)
38. │ └─rtables::get_formatted_cells(x)
39. │ ├─base::matrix(...)
40. │ ├─base::unlist(...)
41. │ └─base::Map(...)
42. │ └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
43. │ └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
44. │ └─rtables::format_rcell(...)
45. │ └─formatters::format_value(...)
46. │ └─base::match.arg(round_type)
47. │ └─base::stop(gettextf("'%s' must be of length 1", "arg"), domain = NA)
48. └─base::.handleSimpleError(...)
49. └─base (local) h(simpleError(msg, call))
Error ('test-table_mmrmt01.R:55:3'): Model diagnostics table is produced correctly
Error in `match.arg(round_type)`: 'arg' must be of length 1
Backtrace:
▆
1. ├─tern::as.rtable(mmrm_results, type = "diagnostic", format = "xx.xx") at test-table_mmrmt01.R:55:3
2. └─tern.mmrm:::as.rtable.tern_mmrm(...)
3. └─tern.mmrm::h_mmrm_diagnostic(x, ...)
4. └─rtables::build_table(lyt, df)
5. └─rtables::update_ref_indexing(tab)
6. ├─formatters::make_row_df(tt)
7. └─rtables::make_row_df(tt)
8. └─rtables (local) .local(...)
9. ├─formatters::make_row_df(...)
10. └─rtables::make_row_df(...)
11. └─rtables (local) .local(...)
12. ├─formatters::pagdfrow(...)
13. │ └─base::data.frame(...)
14. ├─formatters::nlines(...)
15. └─rtables::nlines(...)
16. ├─base::as.vector(get_formatted_cells(x))
17. ├─rtables::get_formatted_cells(x)
18. └─rtables::get_formatted_cells(x)
19. ├─base::matrix(...)
20. ├─base::unlist(...)
21. └─base::Map(...)
22. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
23. └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
24. └─rtables::format_rcell(...)
25. └─formatters::format_value(...)
26. └─base::match.arg(round_type)
Maximum number of failures exceeded; quitting.
ℹ Increase this number with (e.g.) `testthat::set_max_fails(Inf)`
Error:
! Test failures.
Execution halted
Flavor: r-devel-linux-x86_64-fedora-clang
Version: 0.3.3
Check: tests
Result: ERROR
Running ‘testthat.R’ [59s/73s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> pkg_name <- "tern.mmrm"
> library(testthat)
> is_on_ci <- isTRUE(as.logical(Sys.getenv("CI")))
> if (is_on_ci) {
+ reporter <- MultiReporter$new(list(
+ CheckReporter$new()
+ ))
+ test_results <- test_check(pkg_name, reporter = reporter)
+ saveRDS(test_results, "unit_testing_results.rds")
+ } else {
+ reporter <- ParallelProgressReporter$new()
+ test_check(pkg_name, reporter = reporter)
+ }
Loading required package: tern.mmrm
Loading required package: tern
Loading required package: rtables
Loading required package: formatters
Attaching package: 'formatters'
The following object is masked from 'package:base':
%||%
Loading required package: magrittr
Attaching package: 'magrittr'
The following objects are masked from 'package:testthat':
equals, is_less_than, not
Attaching package: 'rtables'
The following object is masked from 'package:utils':
str
✔ | F W S OK | Context
⠋ [ FAIL 0 | WARN 0 | SKIP 0 | PASS 0 ] Starting up...
✔ | 31 | assert_data [1.7s]
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 [15.9s]
✔ | 4 | formula
✖ | 5 11 15 | g_mmrm [21.8s]
────────────────────────────────────────────────────────────────────────────────
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 [4.3s]
✖ | 2 4 5 | subgroups [13.5s]
────────────────────────────────────────────────────────────────────────────────
Error ('test-subgroups.R:160:3'): tabulate_mmrm_subgroups works as expected
Error in `match.arg(round_type)`: 'arg' must be of length 1
Backtrace:
▆
1. ├─testthat::expect_silent(tab <- basic_table() %>% tabulate_mmrm_subgroups(df)) at test-subgroups.R:160:3
2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
3. │ ├─testthat (local) .capture(...)
4. │ │ ├─withr::with_output_sink(...)
5. │ │ │ └─base::force(code)
6. │ │ ├─base::withCallingHandlers(...)
7. │ │ └─base::withVisible(code)
8. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
9. ├─basic_table() %>% tabulate_mmrm_subgroups(df)
10. └─tern.mmrm::tabulate_mmrm_subgroups(., df)
11. └─rtables::build_table(lyt_estimates, df = df$estimates)
12. └─rtables::update_ref_indexing(tab)
13. ├─formatters::make_row_df(tt)
14. └─rtables::make_row_df(tt)
15. └─rtables (local) .local(...)
16. ├─formatters::make_row_df(...)
17. └─rtables::make_row_df(...)
18. └─rtables (local) .local(...)
19. ├─formatters::make_row_df(...)
20. └─rtables::make_row_df(...)
21. └─rtables (local) .local(...)
22. ├─formatters::make_row_df(...)
23. └─rtables::make_row_df(...)
24. └─rtables (local) .local(...)
25. ├─formatters::make_row_df(...)
26. └─rtables::make_row_df(...)
27. └─rtables (local) .local(...)
28. ├─formatters::pagdfrow(...)
29. │ └─base::data.frame(...)
30. ├─formatters::nlines(...)
31. └─rtables::nlines(...)
32. ├─base::as.vector(get_formatted_cells(x))
33. ├─rtables::get_formatted_cells(x)
34. └─rtables::get_formatted_cells(x)
35. ├─base::matrix(...)
36. ├─base::unlist(...)
37. └─base::Map(...)
38. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
39. └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
40. └─rtables::format_rcell(...)
41. └─formatters::format_value(...)
42. └─base::match.arg(round_type)
Error ('test-subgroups.R:181:3'): tabulate_mmrm_subgroups with custom settings works as expected
Error in `match.arg(round_type)`: 'arg' must be of length 1
Backtrace:
▆
1. ├─testthat::expect_silent(...) at test-subgroups.R:181:3
2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
3. │ ├─testthat (local) .capture(...)
4. │ │ ├─withr::with_output_sink(...)
5. │ │ │ └─base::force(code)
6. │ │ ├─base::withCallingHandlers(...)
7. │ │ └─base::withVisible(code)
8. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
9. ├─basic_table() %>% ...
10. └─tern.mmrm::tabulate_mmrm_subgroups(...)
11. └─rtables::build_table(lyt_contrasts, df = df$contrasts)
12. └─rtables::update_ref_indexing(tab)
13. ├─formatters::make_row_df(tt)
14. └─rtables::make_row_df(tt)
15. └─rtables (local) .local(...)
16. ├─formatters::make_row_df(...)
17. └─rtables::make_row_df(...)
18. └─rtables (local) .local(...)
19. ├─formatters::make_row_df(...)
20. └─rtables::make_row_df(...)
21. └─rtables (local) .local(...)
22. ├─formatters::make_row_df(...)
23. └─rtables::make_row_df(...)
24. └─rtables (local) .local(...)
25. ├─formatters::make_row_df(...)
26. └─rtables::make_row_df(...)
27. └─rtables (local) .local(...)
28. ├─formatters::pagdfrow(...)
29. │ └─base::data.frame(...)
30. ├─formatters::nlines(...)
31. └─rtables::nlines(...)
32. ├─base::as.vector(get_formatted_cells(x))
33. ├─rtables::get_formatted_cells(x)
34. └─rtables::get_formatted_cells(x)
35. ├─base::matrix(...)
36. ├─base::unlist(...)
37. └─base::Map(...)
38. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
39. └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
40. └─rtables::format_rcell(...)
41. └─formatters::format_value(...)
42. └─base::match.arg(round_type)
────────────────────────────────────────────────────────────────────────────────
⠙ [ FAIL 11 | WARN 0 | SKIP 20 | PASS 150 ] @ table_mmrmt01
────────────────────────────────────────────────────────────────────────────────
Error ('test-table_mmrmt01.R:22:3'): LS means table is produced correctly
Error in `match.arg(round_type)`: 'arg' must be of length 1
Backtrace:
▆
1. ├─... %>% build_table(df, alt_counts_df = mmrm_test_data) at test-table_mmrmt01.R:22:3
2. └─rtables::build_table(., df, alt_counts_df = mmrm_test_data)
3. └─rtables::update_ref_indexing(tab)
4. ├─formatters::make_row_df(tt)
5. └─rtables::make_row_df(tt)
6. └─rtables (local) .local(...)
7. ├─formatters::make_row_df(...)
8. └─rtables::make_row_df(...)
9. └─rtables (local) .local(...)
10. ├─formatters::make_row_df(...)
11. └─rtables::make_row_df(...)
12. └─rtables (local) .local(...)
13. ├─formatters::make_row_df(...)
14. └─rtables::make_row_df(...)
15. └─rtables (local) .local(...)
16. ├─formatters::pagdfrow(...)
17. │ └─base::data.frame(...)
18. ├─formatters::nlines(...)
19. └─rtables::nlines(...)
20. ├─base::as.vector(get_formatted_cells(x))
21. ├─rtables::get_formatted_cells(x)
22. └─rtables::get_formatted_cells(x)
23. ├─base::matrix(...)
24. ├─base::unlist(...)
25. └─base::Map(...)
26. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
27. └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
28. └─rtables::format_rcell(...)
29. └─formatters::format_value(...)
30. └─base::match.arg(round_type)
Error ('test-table_mmrmt01.R:46:3'): Fixed effects table is produced correctly
Error in `h(simpleError(msg, call))`: error in evaluating the argument 'x' in selecting a method for function 'toString': 'arg' must be of length 1
Backtrace:
▆
1. ├─testthat::expect_snapshot(result) at test-table_mmrmt01.R:46:3
2. │ └─testthat:::expect_snapshot_(...)
3. │ ├─testthat:::with_is_snapshotting(...)
4. │ └─testthat:::verify_exec(quo_get_expr(x), quo_get_env(x), replay)
5. │ └─evaluate::evaluate(source, envir = env, new_device = FALSE, output_handler = handler)
6. │ ├─base::withRestarts(...)
7. │ │ └─base (local) withRestartList(expr, restarts)
8. │ │ ├─base (local) withOneRestart(withRestartList(expr, restarts[-nr]), restarts[[nr]])
9. │ │ │ └─base (local) doWithOneRestart(return(expr), restart)
10. │ │ └─base (local) withRestartList(expr, restarts[-nr])
11. │ │ └─base (local) withOneRestart(expr, restarts[[1L]])
12. │ │ └─base (local) doWithOneRestart(return(expr), restart)
13. │ ├─evaluate:::with_handlers(...)
14. │ │ ├─base::eval(call)
15. │ │ │ └─base::eval(call)
16. │ │ └─base::withCallingHandlers(...)
17. │ └─watcher$print_value(ev$value, ev$visible, envir)
18. │ ├─base::withVisible(handle_value(handler, value, visible, envir))
19. │ └─evaluate:::handle_value(handler, value, visible, envir)
20. │ ├─handler$value(value)
21. │ └─testthat:::testthat_print.default(value)
22. │ ├─base::print(x)
23. │ └─base::print.default(x)
24. │ ├─methods (local) `<stndrdGn>`(`<ElmntryT[,5]>`)
25. │ └─rtables (local) `<stndrdGn>`(`<ElmntryT[,5]>`)
26. │ ├─base::cat(toString(object))
27. │ ├─base::toString(object)
28. │ └─rtables::toString(object)
29. │ └─rtables (local) .local(x, ...)
30. │ ├─base::toString(...)
31. │ ├─formatters::matrix_form(...)
32. │ └─rtables::matrix_form(...)
33. │ └─rtables:::.tbl_header_mat(obj)
34. │ ├─base::matrix(...)
35. │ └─base::rapply(...)
36. │ └─rtables (local) `<fn>`(X, ...)
37. │ ├─rtables::get_formatted_cells(x)
38. │ └─rtables::get_formatted_cells(x)
39. │ ├─base::matrix(...)
40. │ ├─base::unlist(...)
41. │ └─base::Map(...)
42. │ └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
43. │ └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
44. │ └─rtables::format_rcell(...)
45. │ └─formatters::format_value(...)
46. │ └─base::match.arg(round_type)
47. │ └─base::stop(gettextf("'%s' must be of length 1", "arg"), domain = NA)
48. └─base::.handleSimpleError(...)
49. └─base (local) h(simpleError(msg, call))
Error ('test-table_mmrmt01.R:51:3'): Covariance matrix table is produced correctly
Error in `h(simpleError(msg, call))`: error in evaluating the argument 'x' in selecting a method for function 'toString': 'arg' must be of length 1
Backtrace:
▆
1. ├─testthat::expect_snapshot(result) at test-table_mmrmt01.R:51:3
2. │ └─testthat:::expect_snapshot_(...)
3. │ ├─testthat:::with_is_snapshotting(...)
4. │ └─testthat:::verify_exec(quo_get_expr(x), quo_get_env(x), replay)
5. │ └─evaluate::evaluate(source, envir = env, new_device = FALSE, output_handler = handler)
6. │ ├─base::withRestarts(...)
7. │ │ └─base (local) withRestartList(expr, restarts)
8. │ │ ├─base (local) withOneRestart(withRestartList(expr, restarts[-nr]), restarts[[nr]])
9. │ │ │ └─base (local) doWithOneRestart(return(expr), restart)
10. │ │ └─base (local) withRestartList(expr, restarts[-nr])
11. │ │ └─base (local) withOneRestart(expr, restarts[[1L]])
12. │ │ └─base (local) doWithOneRestart(return(expr), restart)
13. │ ├─evaluate:::with_handlers(...)
14. │ │ ├─base::eval(call)
15. │ │ │ └─base::eval(call)
16. │ │ └─base::withCallingHandlers(...)
17. │ └─watcher$print_value(ev$value, ev$visible, envir)
18. │ ├─base::withVisible(handle_value(handler, value, visible, envir))
19. │ └─evaluate:::handle_value(handler, value, visible, envir)
20. │ ├─handler$value(value)
21. │ └─testthat:::testthat_print.default(value)
22. │ ├─base::print(x)
23. │ └─base::print.default(x)
24. │ ├─methods (local) `<stndrdGn>`(`<ElmntryT[,4]>`)
25. │ └─rtables (local) `<stndrdGn>`(`<ElmntryT[,4]>`)
26. │ ├─base::cat(toString(object))
27. │ ├─base::toString(object)
28. │ └─rtables::toString(object)
29. │ └─rtables (local) .local(x, ...)
30. │ ├─base::toString(...)
31. │ ├─formatters::matrix_form(...)
32. │ └─rtables::matrix_form(...)
33. │ └─rtables:::.tbl_header_mat(obj)
34. │ ├─base::matrix(...)
35. │ └─base::rapply(...)
36. │ └─rtables (local) `<fn>`(X, ...)
37. │ ├─rtables::get_formatted_cells(x)
38. │ └─rtables::get_formatted_cells(x)
39. │ ├─base::matrix(...)
40. │ ├─base::unlist(...)
41. │ └─base::Map(...)
42. │ └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
43. │ └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
44. │ └─rtables::format_rcell(...)
45. │ └─formatters::format_value(...)
46. │ └─base::match.arg(round_type)
47. │ └─base::stop(gettextf("'%s' must be of length 1", "arg"), domain = NA)
48. └─base::.handleSimpleError(...)
49. └─base (local) h(simpleError(msg, call))
Error ('test-table_mmrmt01.R:55:3'): Model diagnostics table is produced correctly
Error in `match.arg(round_type)`: 'arg' must be of length 1
Backtrace:
▆
1. ├─tern::as.rtable(mmrm_results, type = "diagnostic", format = "xx.xx") at test-table_mmrmt01.R:55:3
2. └─tern.mmrm:::as.rtable.tern_mmrm(...)
3. └─tern.mmrm::h_mmrm_diagnostic(x, ...)
4. └─rtables::build_table(lyt, df)
5. └─rtables::update_ref_indexing(tab)
6. ├─formatters::make_row_df(tt)
7. └─rtables::make_row_df(tt)
8. └─rtables (local) .local(...)
9. ├─formatters::make_row_df(...)
10. └─rtables::make_row_df(...)
11. └─rtables (local) .local(...)
12. ├─formatters::pagdfrow(...)
13. │ └─base::data.frame(...)
14. ├─formatters::nlines(...)
15. └─rtables::nlines(...)
16. ├─base::as.vector(get_formatted_cells(x))
17. ├─rtables::get_formatted_cells(x)
18. └─rtables::get_formatted_cells(x)
19. ├─base::matrix(...)
20. ├─base::unlist(...)
21. └─base::Map(...)
22. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
23. └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]])
24. └─rtables::format_rcell(...)
25. └─formatters::format_value(...)
26. └─base::match.arg(round_type)
Maximum number of failures exceeded; quitting.
ℹ Increase this number with (e.g.) `testthat::set_max_fails(Inf)`
Error:
! Test failures.
Execution halted
Flavor: r-devel-linux-x86_64-fedora-gcc
These binaries (installable software) and packages are in development.
They may not be fully stable and should be used with caution. We make no claims about them.