Last updated on 2025-12-08 19:50:03 CET.
| Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
|---|---|---|---|---|---|---|
| r-devel-linux-x86_64-debian-clang | 0.3.1 | 25.31 | 401.22 | 426.53 | OK | |
| r-devel-linux-x86_64-debian-gcc | 0.3.1 | 16.70 | 259.64 | 276.34 | OK | |
| r-devel-linux-x86_64-fedora-clang | 0.3.1 | 129.00 | 313.46 | 442.46 | ERROR | |
| r-devel-linux-x86_64-fedora-gcc | 0.3.1 | 122.00 | 321.48 | 443.48 | ERROR | |
| r-devel-windows-x86_64 | 0.3.1 | 28.00 | 368.00 | 396.00 | OK | |
| r-patched-linux-x86_64 | 0.3.1 | 25.04 | 376.09 | 401.13 | OK | |
| r-release-linux-x86_64 | 0.3.1 | 21.59 | 377.08 | 398.67 | OK | |
| r-release-macos-arm64 | 0.3.1 | OK | ||||
| r-release-macos-x86_64 | 0.3.1 | 25.00 | 263.00 | 288.00 | OK | |
| r-release-windows-x86_64 | 0.3.1 | 29.00 | 363.00 | 392.00 | OK | |
| r-oldrel-macos-arm64 | 0.3.1 | NOTE | ||||
| r-oldrel-macos-x86_64 | 0.3.1 | 27.00 | 281.00 | 308.00 | NOTE | |
| r-oldrel-windows-x86_64 | 0.3.1 | 39.00 | 515.00 | 554.00 | NOTE |
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