CRAN Package Check Results for Maintainer Dawid Kaledkowski <dawid.kaledkowski at roche.com>

CRAN Package Check Results for Maintainer ‘Dawid Kaledkowski <dawid.kaledkowski at roche.com>’

Last updated on 2025-12-08 21:49:23 CET.

Package	ERROR	NOTE	OK
teal		1	12
teal.code			13
teal.data			13
teal.logger			13
teal.modules.clinical	2		11
teal.modules.general			13
teal.reporter	2		11
teal.slice			13
teal.transform			13
teal.widgets	2		11

Package teal

Current CRAN status: NOTE: 1, OK: 12

Version: 1.1.0
Check: for non-standard things in the check directory
Result: NOTE Found the following files/directories: ‘.renv’ ‘BiocManager’ Flavor: r-devel-linux-x86_64-fedora-gcc

Version: 0.12.0
Check: re-building of vignette outputs
Result: ERROR Error(s) in re-building vignettes: --- re-building ‘decorate-module-output.Rmd’ using rmarkdown [WARNING] Deprecated: --highlight-style. Use --syntax-highlighting instead. --- finished re-building ‘decorate-module-output.Rmd’ --- re-building ‘generate_tmc_test_data.Rmd’ using rmarkdown [WARNING] Deprecated: --highlight-style. Use --syntax-highlighting instead. --- finished re-building ‘generate_tmc_test_data.Rmd’ --- re-building ‘quickstart_substitute.Rmd’ using rmarkdown Quitting from quickstart_substitute.Rmd:304-306 [unnamed-chunk-14] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <error/rlang_error> Error in `match.arg()`: ! 'arg' must be of length 1 --- Backtrace: ▆ 1. ├─... %>% build_table(df = adlb_f) 2. └─rtables::build_table(., df = adlb_f) 3. └─rtables::update_ref_indexing(tab) 4. ├─formatters::make_row_df(tt) 5. └─rtables::make_row_df(tt) 6. └─rtables (local) .local(...) 7. ├─formatters::make_row_df(...) 8. └─rtables::make_row_df(...) 9. └─rtables (local) .local(...) 10. ├─formatters::make_row_df(...) 11. └─rtables::make_row_df(...) 12. └─rtables (local) .local(...) 13. ├─formatters::make_row_df(...) 14. └─rtables::make_row_df(...) 15. └─rtables (local) .local(...) 16. ├─formatters::pagdfrow(...) 17. │ └─base::data.frame(...) 18. ├─formatters::nlines(...) 19. └─rtables::nlines(...) 20. ├─base::as.vector(get_formatted_cells(x)) 21. ├─rtables::get_formatted_cells(x) 22. └─rtables::get_formatted_cells(x) 23. ├─base::matrix(...) 24. ├─base::unlist(...) 25. └─base::Map(...) 26. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 27. └─rtables (local) `<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: processing vignette 'quickstart_substitute.Rmd' failed with diagnostics: 'arg' must be of length 1 --- failed re-building ‘quickstart_substitute.Rmd’ --- re-building ‘teal-modules-clinical.Rmd’ using rmarkdown --- finished re-building ‘teal-modules-clinical.Rmd’ SUMMARY: processing the following file failed: ‘quickstart_substitute.Rmd’ Error: Vignette re-building failed. Execution halted Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc

Package teal.modules.general

Current CRAN status: OK: 13

Package teal.reporter

Current CRAN status: ERROR: 2, OK: 11

Version: 0.6.0
Check: examples
Result: ERROR Running examples in ‘teal.reporter-Ex.R’ failed The error most likely occurred in: > ### Name: Reporter > ### Title: 'Reporter': An 'R6' class for managing reports > ### Aliases: Reporter > > ### ** Examples > > ## Don't show: > if (require("ggplot2")) withAutoprint({ # examplesIf + ## End(Don't show) + library(ggplot2) + + card1 <- teal_card("## Header 2 text", "A paragraph of default text") + card1 <- c(card1, ggplot(iris, aes(x = Petal.Length)) + geom_histogram()) + metadata(card1, "title") <- "Card1" + + card2 <- teal_card("Document introduction") + metadata(card2, "title") <- "Card2" + + reporter <- Reporter$new() + reporter$append_cards(list(card1, card2)) + ## Don't show: + }) # examplesIf Loading required package: ggplot2 > library(ggplot2) > card1 <- teal_card("## Header 2 text", "A paragraph of default text") > card1 <- c(card1, ggplot(iris, aes(x = Petal.Length)) + geom_histogram()) `stat_bin()` using `bins = 30`. Pick better value `binwidth`. > metadata(card1, "title") <- "Card1" > card2 <- teal_card("Document introduction") > metadata(card2, "title") <- "Card2" > reporter <- Reporter$new() > reporter$append_cards(list(card1, card2)) > ## End(Don't show) > ## Don't show: > if (require("ggplot2") && require("rtables")) withAutoprint({ # examplesIf + ## End(Don't show) + library(rtables) + # With the card1 from above + lyt <- analyze(split_rows_by(basic_table(), "Day"), "Ozone", afun = mean) + table_res2 <- build_table(lyt, airquality) + card2 <- teal_card( + "## Header 2 text", + "A paragraph of default text", + table_res2 + ) + metadata(card2, "title") <- "Card2" + + reporter <- Reporter$new() + reporter$append_cards(list(card1, card2)) + + names(reporter$get_cards()) + reporter$reorder_cards(c("Card2", "Card1")) + names(reporter$get_cards()) + ## Don't show: + }) # examplesIf Loading required package: rtables Loading required package: formatters Attaching package: ‘formatters’ The following object is masked from ‘package:base’: %||% Loading required package: magrittr Attaching package: ‘rtables’ The following object is masked from ‘package:utils’: str > library(rtables) > lyt <- analyze(split_rows_by(basic_table(), "Day"), "Ozone", afun = mean) > table_res2 <- build_table(lyt, airquality) Split var [Day] was not character or factor. Converting to factor Error in match.arg(round_type) : 'arg' must be of length 1 Calls: withAutoprint ... <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.0
Check: tests
Result: ERROR Running ‘testthat.R’ [108s/226s] Running the tests in ‘tests/testthat.R’ failed. Complete output: > pkg_name <- "teal.reporter" > library(pkg_name, character.only = TRUE) > testthat::test_check(pkg_name) Attaching package: 'testthat' The following object is masked from 'package:teal.reporter': Reporter Loading required package: shiny Saving _problems/test-Reporter-14.R Saving _problems/test-Reporter-21.R Saving _problems/test-Reporter-77.R Saving _problems/test-Reporter-82.R Saving _problems/test-Reporter-97.R Saving _problems/test-Reporter-162.R Saving _problems/test-Reporter-169.R Saving _problems/test-Reporter-177.R Saving _problems/test-Reporter-209.R Saving _problems/test-Reporter-216.R Saving _problems/test-Reporter-225.R Saving _problems/test-Reporter-238.R Saving _problems/test-Reporter-253.R Saving _problems/test-Reporter-266.R Saving _problems/test-Reporter-277.R Saving _problems/test-Reporter-284.R Saving _problems/test-Reporter-295.R Saving _problems/test-Reporter-309.R Saving _problems/test-Reporter-316.R Saving _problems/test-Reporter-322.R Saving _problems/test-Reporter-329.R Saving _problems/test-Reporter-386.R Saving _problems/test-SimpleReporter-22.R Error in (function (card) : ARTIFICIAL ERROR Error in (function (card, comment) : ARTIFICIAL ERROR Error in (function (card) : ARTIFICIAL ERROR Saving _problems/test-utils-3.R Saving _problems/test-utils-10.R Saving _problems/test-utils-17.R [ FAIL 27 | WARN 1 | SKIP 6 | PASS 348 ] ══ Skipped tests (6) ═══════════════════════════════════════════════════════════ • testing depth 3 is below current testing specification 5 (4): 'test-PreviewerReportModule-shinytest2.R:3:5', 'test-PreviewerReportModule-shinytest2.R:9:5', 'test-PreviewerReportModule-shinytest2.R:16:5', 'test-PreviewerReportModule-shinytest2.R:34:5' • too complicated as table contains random elements - possible to test with webshot (2): 'test-toHTML.R:77:5', 'test-toHTML.R:82:5' ══ Failed tests ════════════════════════════════════════════════════════════════ ── Error ('test-Reporter.R:14:3'): set_id sets the reporter id and returns reporter ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─teal.reporter:::test_reporter() at test-Reporter.R:14:3 2. ├─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 3. └─teal.reporter:::test_card2() 4. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 5. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 6. └─rtables::update_ref_indexing(tab) 7. ├─formatters::make_row_df(tt) 8. └─rtables::make_row_df(tt) 9. └─rtables (local) .local(...) 10. ├─formatters::make_row_df(...) 11. └─rtables::make_row_df(...) 12. └─rtables (local) .local(...) 13. ├─formatters::make_row_df(...) 14. └─rtables::make_row_df(...) 15. └─rtables (local) .local(...) 16. ├─formatters::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) `<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-Reporter.R:21:3'): Reporter with ReportCard ──────────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─teal.reporter:::test_card2.ReportCard() at test-Reporter.R:21:3 2. └─teal.reporter:::test_card2(card) at ./helper-Reporter.R:42:3 3. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 4. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 5. └─rtables::update_ref_indexing(tab) 6. ├─formatters::make_row_df(tt) 7. └─rtables::make_row_df(tt) 8. └─rtables (local) .local(...) 9. ├─formatters::make_row_df(...) 10. └─rtables::make_row_df(...) 11. └─rtables (local) .local(...) 12. ├─formatters::make_row_df(...) 13. └─rtables::make_row_df(...) 14. └─rtables (local) .local(...) 15. ├─formatters::make_row_df(...) 16. └─rtables::make_row_df(...) 17. └─rtables (local) .local(...) 18. ├─formatters::pagdfrow(...) 19. │ └─base::data.frame(...) 20. ├─formatters::nlines(...) 21. └─rtables::nlines(...) 22. ├─base::as.vector(get_formatted_cells(x)) 23. ├─rtables::get_formatted_cells(x) 24. └─rtables::get_formatted_cells(x) 25. ├─base::matrix(...) 26. ├─base::unlist(...) 27. └─base::Map(...) 28. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 29. └─rtables (local) `<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-Reporter.R:77:3'): get_cards returns the same cards which was added to reporter ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─teal.reporter:::test_reporter(card1 <- test_card1(), card2 <- test_card2()) at test-Reporter.R:77:3 2. │ └─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 3. └─teal.reporter:::test_card2() 4. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 5. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 6. └─rtables::update_ref_indexing(tab) 7. ├─formatters::make_row_df(tt) 8. └─rtables::make_row_df(tt) 9. └─rtables (local) .local(...) 10. ├─formatters::make_row_df(...) 11. └─rtables::make_row_df(...) 12. └─rtables (local) .local(...) 13. ├─formatters::make_row_df(...) 14. └─rtables::make_row_df(...) 15. └─rtables (local) .local(...) 16. ├─formatters::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) `<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-Reporter.R:82:3'): get_blocks returns the same blocks which was added to reporter, sep = NULL ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─teal.reporter:::test_reporter(...) at test-Reporter.R:82:3 2. │ └─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 3. └─teal.reporter:::test_card2("Another title") 4. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 5. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 6. └─rtables::update_ref_indexing(tab) 7. ├─formatters::make_row_df(tt) 8. └─rtables::make_row_df(tt) 9. └─rtables (local) .local(...) 10. ├─formatters::make_row_df(...) 11. └─rtables::make_row_df(...) 12. └─rtables (local) .local(...) 13. ├─formatters::make_row_df(...) 14. └─rtables::make_row_df(...) 15. └─rtables (local) .local(...) 16. ├─formatters::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) `<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-Reporter.R:97:3'): get_blocks by default adds 'newpage' between cards ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─teal.reporter:::test_card2("Another title") at test-Reporter.R:97:3 2. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 3. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 4. └─rtables::update_ref_indexing(tab) 5. ├─formatters::make_row_df(tt) 6. └─rtables::make_row_df(tt) 7. └─rtables (local) .local(...) 8. ├─formatters::make_row_df(...) 9. └─rtables::make_row_df(...) 10. └─rtables (local) .local(...) 11. ├─formatters::make_row_df(...) 12. └─rtables::make_row_df(...) 13. └─rtables (local) .local(...) 14. ├─formatters::make_row_df(...) 15. └─rtables::make_row_df(...) 16. └─rtables (local) .local(...) 17. ├─formatters::pagdfrow(...) 18. │ └─base::data.frame(...) 19. ├─formatters::nlines(...) 20. └─rtables::nlines(...) 21. ├─base::as.vector(get_formatted_cells(x)) 22. ├─rtables::get_formatted_cells(x) 23. └─rtables::get_formatted_cells(x) 24. ├─base::matrix(...) 25. ├─base::unlist(...) 26. └─base::Map(...) 27. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 28. └─rtables (local) `<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-Reporter.R:162:3'): from_reporter returns identical/equal object from the same reporter ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─teal.reporter:::test_reporter(card1 <- test_card1(), card2 <- test_card2()) at test-Reporter.R:162:3 2. │ └─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 3. └─teal.reporter:::test_card2() 4. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 5. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 6. └─rtables::update_ref_indexing(tab) 7. ├─formatters::make_row_df(tt) 8. └─rtables::make_row_df(tt) 9. └─rtables (local) .local(...) 10. ├─formatters::make_row_df(...) 11. └─rtables::make_row_df(...) 12. └─rtables (local) .local(...) 13. ├─formatters::make_row_df(...) 14. └─rtables::make_row_df(...) 15. └─rtables (local) .local(...) 16. ├─formatters::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) `<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-Reporter.R:169:3'): from_reporter does not return identical/equal object form other reporter ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─teal.reporter:::test_reporter(card1 <- test_card1(), card2 <- test_card2()) at test-Reporter.R:169:3 2. │ └─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 3. └─teal.reporter:::test_card2() 4. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 5. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 6. └─rtables::update_ref_indexing(tab) 7. ├─formatters::make_row_df(tt) 8. └─rtables::make_row_df(tt) 9. └─rtables (local) .local(...) 10. ├─formatters::make_row_df(...) 11. └─rtables::make_row_df(...) 12. └─rtables (local) .local(...) 13. ├─formatters::make_row_df(...) 14. └─rtables::make_row_df(...) 15. └─rtables (local) .local(...) 16. ├─formatters::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) `<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-Reporter.R:177:3'): from_reporter persists the cards structure ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─teal.reporter:::test_reporter(card1 <- test_card1(), card2 <- test_card2()) at test-Reporter.R:177:3 2. │ └─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 3. └─teal.reporter:::test_card2() 4. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 5. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 6. └─rtables::update_ref_indexing(tab) 7. ├─formatters::make_row_df(tt) 8. └─rtables::make_row_df(tt) 9. └─rtables (local) .local(...) 10. ├─formatters::make_row_df(...) 11. └─rtables::make_row_df(...) 12. └─rtables (local) .local(...) 13. ├─formatters::make_row_df(...) 14. └─rtables::make_row_df(...) 15. └─rtables (local) .local(...) 16. ├─formatters::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) `<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-Reporter.R:209:5'): from_reporter / from_reporter returns identical/equal object from the same reporter ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─teal.reporter:::test_reporter() at test-Reporter.R:209:5 2. ├─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 3. └─teal.reporter:::test_card2() 4. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 5. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 6. └─rtables::update_ref_indexing(tab) 7. ├─formatters::make_row_df(tt) 8. └─rtables::make_row_df(tt) 9. └─rtables (local) .local(...) 10. ├─formatters::make_row_df(...) 11. └─rtables::make_row_df(...) 12. └─rtables (local) .local(...) 13. ├─formatters::make_row_df(...) 14. └─rtables::make_row_df(...) 15. └─rtables (local) .local(...) 16. ├─formatters::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) `<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-Reporter.R:216:5'): from_reporter / from_reporter does not return identical/equal object form other reporter ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─teal.reporter:::test_reporter(test_card1(), test_card2()) at test-Reporter.R:216:5 2. │ └─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 3. └─teal.reporter:::test_card2() 4. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 5. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 6. └─rtables::update_ref_indexing(tab) 7. ├─formatters::make_row_df(tt) 8. └─rtables::make_row_df(tt) 9. └─rtables (local) .local(...) 10. ├─formatters::make_row_df(...) 11. └─rtables::make_row_df(...) 12. └─rtables (local) .local(...) 13. ├─formatters::make_row_df(...) 14. └─rtables::make_row_df(...) 15. └─rtables (local) .local(...) 16. ├─formatters::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) `<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-Reporter.R:225:5'): from_reporter / from_reporter persists the cards structure, but not the name ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─teal.reporter:::test_reporter(test_card1(), test_card2()) at test-Reporter.R:225:5 2. │ └─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 3. └─teal.reporter:::test_card2() 4. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 5. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 6. └─rtables::update_ref_indexing(tab) 7. ├─formatters::make_row_df(tt) 8. └─rtables::make_row_df(tt) 9. └─rtables (local) .local(...) 10. ├─formatters::make_row_df(...) 11. └─rtables::make_row_df(...) 12. └─rtables (local) .local(...) 13. ├─formatters::make_row_df(...) 14. └─rtables::make_row_df(...) 15. └─rtables (local) .local(...) 16. ├─formatters::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) `<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-Reporter.R:238:5'): to_list / require the existing directory path ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─teal.reporter:::test_reporter(test_card1(), test_card2()) at test-Reporter.R:238:5 2. │ └─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 3. └─teal.reporter:::test_card2() 4. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 5. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 6. └─rtables::update_ref_indexing(tab) 7. ├─formatters::make_row_df(tt) 8. └─rtables::make_row_df(tt) 9. └─rtables (local) .local(...) 10. ├─formatters::make_row_df(...) 11. └─rtables::make_row_df(...) 12. └─rtables (local) .local(...) 13. ├─formatters::make_row_df(...) 14. └─rtables::make_row_df(...) 15. └─rtables (local) .local(...) 16. ├─formatters::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) `<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-Reporter.R:253:5'): to_list / to_list and from_list could be used to save and retrieve a Reporter card ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─teal.reporter:::test_reporter(test_card1(), test_card2()) at test-Reporter.R:253:5 2. │ └─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 3. └─teal.reporter:::test_card2() 4. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 5. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 6. └─rtables::update_ref_indexing(tab) 7. ├─formatters::make_row_df(tt) 8. └─rtables::make_row_df(tt) 9. └─rtables (local) .local(...) 10. ├─formatters::make_row_df(...) 11. └─rtables::make_row_df(...) 12. └─rtables (local) .local(...) 13. ├─formatters::make_row_df(...) 14. └─rtables::make_row_df(...) 15. └─rtables (local) .local(...) 16. ├─formatters::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) `<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-Reporter.R:266:5'): to_list / to_list and from_list could be used to save and retrieve a Reporter blocks ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─teal.reporter:::test_reporter(test_card1(), test_card2()) at test-Reporter.R:266:5 2. │ └─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 3. └─teal.reporter:::test_card2() 4. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 5. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 6. └─rtables::update_ref_indexing(tab) 7. ├─formatters::make_row_df(tt) 8. └─rtables::make_row_df(tt) 9. └─rtables (local) .local(...) 10. ├─formatters::make_row_df(...) 11. └─rtables::make_row_df(...) 12. └─rtables (local) .local(...) 13. ├─formatters::make_row_df(...) 14. └─rtables::make_row_df(...) 15. └─rtables (local) .local(...) 16. ├─formatters::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) `<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-Reporter.R:277:5'): from_reporter / returns same object from the same reporter ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─teal.reporter:::test_reporter(card1 <- test_card1(), card2 <- test_card2()) at test-Reporter.R:277:5 2. │ └─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 3. └─teal.reporter:::test_card2() 4. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 5. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 6. └─rtables::update_ref_indexing(tab) 7. ├─formatters::make_row_df(tt) 8. └─rtables::make_row_df(tt) 9. └─rtables (local) .local(...) 10. ├─formatters::make_row_df(...) 11. └─rtables::make_row_df(...) 12. └─rtables (local) .local(...) 13. ├─formatters::make_row_df(...) 14. └─rtables::make_row_df(...) 15. └─rtables (local) .local(...) 16. ├─formatters::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) `<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-Reporter.R:284:5'): from_reporter / returns different object if id has already been set ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─teal.reporter:::test_reporter(test_card1(), test_card2()) at test-Reporter.R:284:5 2. │ └─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 3. └─teal.reporter:::test_card2() 4. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 5. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 6. └─rtables::update_ref_indexing(tab) 7. ├─formatters::make_row_df(tt) 8. └─rtables::make_row_df(tt) 9. └─rtables (local) .local(...) 10. ├─formatters::make_row_df(...) 11. └─rtables::make_row_df(...) 12. └─rtables (local) .local(...) 13. ├─formatters::make_row_df(...) 14. └─rtables::make_row_df(...) 15. └─rtables (local) .local(...) 16. ├─formatters::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) `<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-Reporter.R:295:5'): from_reporter / from_reporter persists the cards structure ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─teal.reporter:::test_reporter(test_card1(), test_card2()) at test-Reporter.R:295:5 2. │ └─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 3. └─teal.reporter:::test_card2() 4. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 5. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 6. └─rtables::update_ref_indexing(tab) 7. ├─formatters::make_row_df(tt) 8. └─rtables::make_row_df(tt) 9. └─rtables (local) .local(...) 10. ├─formatters::make_row_df(...) 11. └─rtables::make_row_df(...) 12. └─rtables (local) .local(...) 13. ├─formatters::make_row_df(...) 14. └─rtables::make_row_df(...) 15. └─rtables (local) .local(...) 16. ├─formatters::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) `<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-Reporter.R:309:5'): to_jsondir / to_jsondir require the existing directory path ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─teal.reporter:::test_reporter(test_card1(), test_card2()) at test-Reporter.R:309:5 2. │ └─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 3. └─teal.reporter:::test_card2() 4. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 5. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 6. └─rtables::update_ref_indexing(tab) 7. ├─formatters::make_row_df(tt) 8. └─rtables::make_row_df(tt) 9. └─rtables (local) .local(...) 10. ├─formatters::make_row_df(...) 11. └─rtables::make_row_df(...) 12. └─rtables (local) .local(...) 13. ├─formatters::make_row_df(...) 14. └─rtables::make_row_df(...) 15. └─rtables (local) .local(...) 16. ├─formatters::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) `<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-Reporter.R:316:5'): to_jsondir / to_jsondir returns the same dir it was provided to it ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─teal.reporter:::test_reporter(test_card1(), test_card2()) at test-Reporter.R:316:5 2. │ └─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 3. └─teal.reporter:::test_card2() 4. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 5. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 6. └─rtables::update_ref_indexing(tab) 7. ├─formatters::make_row_df(tt) 8. └─rtables::make_row_df(tt) 9. └─rtables (local) .local(...) 10. ├─formatters::make_row_df(...) 11. └─rtables::make_row_df(...) 12. └─rtables (local) .local(...) 13. ├─formatters::make_row_df(...) 14. └─rtables::make_row_df(...) 15. └─rtables (local) .local(...) 16. ├─formatters::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) `<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-Reporter.R:322:5'): to_jsondir / from_jsondir returns identical/equal object ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─teal.reporter:::test_reporter(test_card1(), test_card2()) at test-Reporter.R:322:5 2. │ └─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 3. └─teal.reporter:::test_card2() 4. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 5. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 6. └─rtables::update_ref_indexing(tab) 7. ├─formatters::make_row_df(tt) 8. └─rtables::make_row_df(tt) 9. └─rtables (local) .local(...) 10. ├─formatters::make_row_df(...) 11. └─rtables::make_row_df(...) 12. └─rtables (local) .local(...) 13. ├─formatters::make_row_df(...) 14. └─rtables::make_row_df(...) 15. └─rtables (local) .local(...) 16. ├─formatters::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) `<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-Reporter.R:329:5'): to_jsondir / to_jsondir and from_jsondir could be used to save and retrive a Reporter ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─teal.reporter:::test_reporter(test_card1(), test_card2()) at test-Reporter.R:329:5 2. │ └─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 3. └─teal.reporter:::test_card2() 4. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 5. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 6. └─rtables::update_ref_indexing(tab) 7. ├─formatters::make_row_df(tt) 8. └─rtables::make_row_df(tt) 9. └─rtables (local) .local(...) 10. ├─formatters::make_row_df(...) 11. └─rtables::make_row_df(...) 12. └─rtables (local) .local(...) 13. ├─formatters::make_row_df(...) 14. └─rtables::make_row_df(...) 15. └─rtables (local) .local(...) 16. ├─formatters::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) `<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-Reporter.R:386:3'): from_reporter persists the cards structure ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─teal.reporter:::test_card2("Another title") at test-Reporter.R:386:3 2. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 3. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 4. └─rtables::update_ref_indexing(tab) 5. ├─formatters::make_row_df(tt) 6. └─rtables::make_row_df(tt) 7. └─rtables (local) .local(...) 8. ├─formatters::make_row_df(...) 9. └─rtables::make_row_df(...) 10. └─rtables (local) .local(...) 11. ├─formatters::make_row_df(...) 12. └─rtables::make_row_df(...) 13. └─rtables (local) .local(...) 14. ├─formatters::make_row_df(...) 15. └─rtables::make_row_df(...) 16. └─rtables (local) .local(...) 17. ├─formatters::pagdfrow(...) 18. │ └─base::data.frame(...) 19. ├─formatters::nlines(...) 20. └─rtables::nlines(...) 21. ├─base::as.vector(get_formatted_cells(x)) 22. ├─rtables::get_formatted_cells(x) 23. └─rtables::get_formatted_cells(x) 24. ├─base::matrix(...) 25. ├─base::unlist(...) 26. └─base::Map(...) 27. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 28. └─rtables (local) `<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-SimpleReporter.R:2:3'): simple_reporter_srv - render and downlaod a document ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─shiny::testServer(...) at test-SimpleReporter.R:2:3 2. │ └─"id" %in% names(args) 3. └─teal.reporter:::test_reporter() 4. ├─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 5. └─teal.reporter:::test_card2() 6. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 7. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 8. └─rtables::update_ref_indexing(tab) 9. ├─formatters::make_row_df(tt) 10. └─rtables::make_row_df(tt) 11. └─rtables (local) .local(...) 12. ├─formatters::make_row_df(...) 13. └─rtables::make_row_df(...) 14. └─rtables (local) .local(...) 15. ├─formatters::make_row_df(...) 16. └─rtables::make_row_df(...) 17. └─rtables (local) .local(...) 18. ├─formatters::make_row_df(...) 19. └─rtables::make_row_df(...) 20. └─rtables (local) .local(...) 21. ├─formatters::pagdfrow(...) 22. │ └─base::data.frame(...) 23. ├─formatters::nlines(...) 24. └─rtables::nlines(...) 25. ├─base::as.vector(get_formatted_cells(x)) 26. ├─rtables::get_formatted_cells(x) 27. └─rtables::get_formatted_cells(x) 28. ├─base::matrix(...) 29. ├─base::unlist(...) 30. └─base::Map(...) 31. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 32. └─rtables (local) `<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-to_rmd.R:78:5'): to_rmd generating blocks with rds auxiliary files / data frames are converted to code chunks with readRDS ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─teal.reporter (local) expect_rds_generation(to_rmd(data.frame(x = 1:5, y = letters[1:5]))) at test-to_rmd.R:78:5 2. │ └─testthat::expect_match(result, "^```[{][rR].*[}].*readRDS[(].*[)].*```[ \n]*$") at test-to_rmd.R:59:5 3. │ └─testthat::quasi_label(enquo(object), label) 4. │ └─rlang::eval_bare(expr, quo_get_env(quo)) 5. ├─teal.reporter::to_rmd(data.frame(x = 1:5, y = letters[1:5])) 6. └─teal.reporter:::to_rmd.default(data.frame(x = 1:5, y = letters[1:5])) 7. ├─teal.reporter:::.to_rmd(block, ...) 8. └─teal.reporter:::.to_rmd.data.frame(block, ...) 9. └─teal.reporter:::to_flextable(block) 10. └─rtables.officer::tt_to_flextable(rtables::df_to_tt(content)) 11. ├─rtables::matrix_form(tt, fontspec = fontspec, indent_rownames = FALSE) 12. └─rtables::matrix_form(tt, fontspec = fontspec, indent_rownames = FALSE) 13. └─rtables:::.tbl_header_mat(obj) 14. ├─base::matrix(...) 15. └─base::rapply(...) 16. └─rtables (local) `<fn>`(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-utils.R:3:3'): to_flextable: supported class `data.frame` ────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─teal.reporter:::to_flextable(data_frame) at test-utils.R:3:3 2. └─rtables.officer::tt_to_flextable(rtables::df_to_tt(content)) 3. ├─rtables::matrix_form(tt, fontspec = fontspec, indent_rownames = FALSE) 4. └─rtables::matrix_form(tt, fontspec = fontspec, indent_rownames = FALSE) 5. └─rtables:::.tbl_header_mat(obj) 6. ├─base::matrix(...) 7. └─base::rapply(...) 8. └─rtables (local) `<fn>`(X, ...) 9. ├─rtables::get_formatted_cells(x) 10. └─rtables::get_formatted_cells(x) 11. ├─base::matrix(...) 12. ├─base::unlist(...) 13. └─base::Map(...) 14. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 15. └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 16. └─rtables::format_rcell(...) 17. └─formatters::format_value(...) 18. └─base::match.arg(round_type) ── Error ('test-utils.R:8:3'): to_flextable: supported class `rtables` ───────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─... %>% rtables::build_table(formatters::DM) at test-utils.R:8:3 2. └─rtables::build_table(., formatters::DM) 3. └─rtables::update_ref_indexing(tab) 4. ├─formatters::make_row_df(tt) 5. └─rtables::make_row_df(tt) 6. └─rtables (local) .local(...) 7. ├─formatters::make_row_df(...) 8. └─rtables::make_row_df(...) 9. └─rtables (local) .local(...) 10. ├─formatters::pagdfrow(...) 11. │ └─base::data.frame(...) 12. ├─formatters::nlines(...) 13. └─rtables::nlines(...) 14. ├─base::as.vector(get_formatted_cells(x)) 15. ├─rtables::get_formatted_cells(x) 16. └─rtables::get_formatted_cells(x) 17. ├─base::matrix(...) 18. ├─base::unlist(...) 19. └─base::Map(...) 20. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 21. └─rtables (local) `<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-utils.R:17:3'): to_flextable: supported class `listing_df` ───── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─teal.reporter:::to_flextable(lsting) at test-utils.R:17:3 2. └─rtables.officer::tt_to_flextable(...) 3. ├─rtables::matrix_form(tt, fontspec = fontspec, indent_rownames = FALSE) 4. └─rtables::matrix_form(tt, fontspec = fontspec, indent_rownames = FALSE) 5. └─rtables:::.tbl_header_mat(obj) 6. ├─base::matrix(...) 7. └─base::rapply(...) 8. └─rtables (local) `<fn>`(X, ...) 9. ├─rtables::get_formatted_cells(x) 10. └─rtables::get_formatted_cells(x) 11. ├─base::matrix(...) 12. ├─base::unlist(...) 13. └─base::Map(...) 14. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 15. └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 16. └─rtables::format_rcell(...) 17. └─formatters::format_value(...) 18. └─base::match.arg(round_type) [ FAIL 27 | WARN 1 | SKIP 6 | PASS 348 ] Error: ! Test failures. Execution halted Flavor: r-devel-linux-x86_64-fedora-clang

Version: 0.6.0
Check: tests
Result: ERROR Running ‘testthat.R’ [103s/237s] Running the tests in ‘tests/testthat.R’ failed. Complete output: > pkg_name <- "teal.reporter" > library(pkg_name, character.only = TRUE) > testthat::test_check(pkg_name) Attaching package: 'testthat' The following object is masked from 'package:teal.reporter': Reporter Loading required package: shiny Saving _problems/test-Reporter-14.R Saving _problems/test-Reporter-21.R Saving _problems/test-Reporter-77.R Saving _problems/test-Reporter-82.R Saving _problems/test-Reporter-97.R Saving _problems/test-Reporter-162.R Saving _problems/test-Reporter-169.R Saving _problems/test-Reporter-177.R Saving _problems/test-Reporter-209.R Saving _problems/test-Reporter-216.R Saving _problems/test-Reporter-225.R Saving _problems/test-Reporter-238.R Saving _problems/test-Reporter-253.R Saving _problems/test-Reporter-266.R Saving _problems/test-Reporter-277.R Saving _problems/test-Reporter-284.R Saving _problems/test-Reporter-295.R Saving _problems/test-Reporter-309.R Saving _problems/test-Reporter-316.R Saving _problems/test-Reporter-322.R Saving _problems/test-Reporter-329.R Saving _problems/test-Reporter-386.R Saving _problems/test-SimpleReporter-22.R Error in (function (card) : ARTIFICIAL ERROR Error in (function (card, comment) : ARTIFICIAL ERROR Error in (function (card) : ARTIFICIAL ERROR Saving _problems/test-utils-3.R Saving _problems/test-utils-10.R Saving _problems/test-utils-17.R [ FAIL 27 | WARN 1 | SKIP 6 | PASS 348 ] ══ Skipped tests (6) ═══════════════════════════════════════════════════════════ • testing depth 3 is below current testing specification 5 (4): 'test-PreviewerReportModule-shinytest2.R:3:5', 'test-PreviewerReportModule-shinytest2.R:9:5', 'test-PreviewerReportModule-shinytest2.R:16:5', 'test-PreviewerReportModule-shinytest2.R:34:5' • too complicated as table contains random elements - possible to test with webshot (2): 'test-toHTML.R:77:5', 'test-toHTML.R:82:5' ══ Failed tests ════════════════════════════════════════════════════════════════ ── Error ('test-Reporter.R:14:3'): set_id sets the reporter id and returns reporter ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─teal.reporter:::test_reporter() at test-Reporter.R:14:3 2. ├─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 3. └─teal.reporter:::test_card2() 4. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 5. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 6. └─rtables::update_ref_indexing(tab) 7. ├─formatters::make_row_df(tt) 8. └─rtables::make_row_df(tt) 9. └─rtables (local) .local(...) 10. ├─formatters::make_row_df(...) 11. └─rtables::make_row_df(...) 12. └─rtables (local) .local(...) 13. ├─formatters::make_row_df(...) 14. └─rtables::make_row_df(...) 15. └─rtables (local) .local(...) 16. ├─formatters::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) `<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-Reporter.R:21:3'): Reporter with ReportCard ──────────────────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─teal.reporter:::test_card2.ReportCard() at test-Reporter.R:21:3 2. └─teal.reporter:::test_card2(card) at ./helper-Reporter.R:42:3 3. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 4. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 5. └─rtables::update_ref_indexing(tab) 6. ├─formatters::make_row_df(tt) 7. └─rtables::make_row_df(tt) 8. └─rtables (local) .local(...) 9. ├─formatters::make_row_df(...) 10. └─rtables::make_row_df(...) 11. └─rtables (local) .local(...) 12. ├─formatters::make_row_df(...) 13. └─rtables::make_row_df(...) 14. └─rtables (local) .local(...) 15. ├─formatters::make_row_df(...) 16. └─rtables::make_row_df(...) 17. └─rtables (local) .local(...) 18. ├─formatters::pagdfrow(...) 19. │ └─base::data.frame(...) 20. ├─formatters::nlines(...) 21. └─rtables::nlines(...) 22. ├─base::as.vector(get_formatted_cells(x)) 23. ├─rtables::get_formatted_cells(x) 24. └─rtables::get_formatted_cells(x) 25. ├─base::matrix(...) 26. ├─base::unlist(...) 27. └─base::Map(...) 28. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 29. └─rtables (local) `<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-Reporter.R:77:3'): get_cards returns the same cards which was added to reporter ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─teal.reporter:::test_reporter(card1 <- test_card1(), card2 <- test_card2()) at test-Reporter.R:77:3 2. │ └─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 3. └─teal.reporter:::test_card2() 4. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 5. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 6. └─rtables::update_ref_indexing(tab) 7. ├─formatters::make_row_df(tt) 8. └─rtables::make_row_df(tt) 9. └─rtables (local) .local(...) 10. ├─formatters::make_row_df(...) 11. └─rtables::make_row_df(...) 12. └─rtables (local) .local(...) 13. ├─formatters::make_row_df(...) 14. └─rtables::make_row_df(...) 15. └─rtables (local) .local(...) 16. ├─formatters::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) `<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-Reporter.R:82:3'): get_blocks returns the same blocks which was added to reporter, sep = NULL ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─teal.reporter:::test_reporter(...) at test-Reporter.R:82:3 2. │ └─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 3. └─teal.reporter:::test_card2("Another title") 4. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 5. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 6. └─rtables::update_ref_indexing(tab) 7. ├─formatters::make_row_df(tt) 8. └─rtables::make_row_df(tt) 9. └─rtables (local) .local(...) 10. ├─formatters::make_row_df(...) 11. └─rtables::make_row_df(...) 12. └─rtables (local) .local(...) 13. ├─formatters::make_row_df(...) 14. └─rtables::make_row_df(...) 15. └─rtables (local) .local(...) 16. ├─formatters::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) `<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-Reporter.R:97:3'): get_blocks by default adds 'newpage' between cards ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─teal.reporter:::test_card2("Another title") at test-Reporter.R:97:3 2. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 3. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 4. └─rtables::update_ref_indexing(tab) 5. ├─formatters::make_row_df(tt) 6. └─rtables::make_row_df(tt) 7. └─rtables (local) .local(...) 8. ├─formatters::make_row_df(...) 9. └─rtables::make_row_df(...) 10. └─rtables (local) .local(...) 11. ├─formatters::make_row_df(...) 12. └─rtables::make_row_df(...) 13. └─rtables (local) .local(...) 14. ├─formatters::make_row_df(...) 15. └─rtables::make_row_df(...) 16. └─rtables (local) .local(...) 17. ├─formatters::pagdfrow(...) 18. │ └─base::data.frame(...) 19. ├─formatters::nlines(...) 20. └─rtables::nlines(...) 21. ├─base::as.vector(get_formatted_cells(x)) 22. ├─rtables::get_formatted_cells(x) 23. └─rtables::get_formatted_cells(x) 24. ├─base::matrix(...) 25. ├─base::unlist(...) 26. └─base::Map(...) 27. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 28. └─rtables (local) `<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-Reporter.R:162:3'): from_reporter returns identical/equal object from the same reporter ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─teal.reporter:::test_reporter(card1 <- test_card1(), card2 <- test_card2()) at test-Reporter.R:162:3 2. │ └─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 3. └─teal.reporter:::test_card2() 4. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 5. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 6. └─rtables::update_ref_indexing(tab) 7. ├─formatters::make_row_df(tt) 8. └─rtables::make_row_df(tt) 9. └─rtables (local) .local(...) 10. ├─formatters::make_row_df(...) 11. └─rtables::make_row_df(...) 12. └─rtables (local) .local(...) 13. ├─formatters::make_row_df(...) 14. └─rtables::make_row_df(...) 15. └─rtables (local) .local(...) 16. ├─formatters::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) `<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-Reporter.R:169:3'): from_reporter does not return identical/equal object form other reporter ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─teal.reporter:::test_reporter(card1 <- test_card1(), card2 <- test_card2()) at test-Reporter.R:169:3 2. │ └─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 3. └─teal.reporter:::test_card2() 4. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 5. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 6. └─rtables::update_ref_indexing(tab) 7. ├─formatters::make_row_df(tt) 8. └─rtables::make_row_df(tt) 9. └─rtables (local) .local(...) 10. ├─formatters::make_row_df(...) 11. └─rtables::make_row_df(...) 12. └─rtables (local) .local(...) 13. ├─formatters::make_row_df(...) 14. └─rtables::make_row_df(...) 15. └─rtables (local) .local(...) 16. ├─formatters::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) `<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-Reporter.R:177:3'): from_reporter persists the cards structure ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─teal.reporter:::test_reporter(card1 <- test_card1(), card2 <- test_card2()) at test-Reporter.R:177:3 2. │ └─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 3. └─teal.reporter:::test_card2() 4. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 5. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 6. └─rtables::update_ref_indexing(tab) 7. ├─formatters::make_row_df(tt) 8. └─rtables::make_row_df(tt) 9. └─rtables (local) .local(...) 10. ├─formatters::make_row_df(...) 11. └─rtables::make_row_df(...) 12. └─rtables (local) .local(...) 13. ├─formatters::make_row_df(...) 14. └─rtables::make_row_df(...) 15. └─rtables (local) .local(...) 16. ├─formatters::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) `<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-Reporter.R:209:5'): from_reporter / from_reporter returns identical/equal object from the same reporter ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─teal.reporter:::test_reporter() at test-Reporter.R:209:5 2. ├─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 3. └─teal.reporter:::test_card2() 4. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 5. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 6. └─rtables::update_ref_indexing(tab) 7. ├─formatters::make_row_df(tt) 8. └─rtables::make_row_df(tt) 9. └─rtables (local) .local(...) 10. ├─formatters::make_row_df(...) 11. └─rtables::make_row_df(...) 12. └─rtables (local) .local(...) 13. ├─formatters::make_row_df(...) 14. └─rtables::make_row_df(...) 15. └─rtables (local) .local(...) 16. ├─formatters::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) `<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-Reporter.R:216:5'): from_reporter / from_reporter does not return identical/equal object form other reporter ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─teal.reporter:::test_reporter(test_card1(), test_card2()) at test-Reporter.R:216:5 2. │ └─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 3. └─teal.reporter:::test_card2() 4. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 5. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 6. └─rtables::update_ref_indexing(tab) 7. ├─formatters::make_row_df(tt) 8. └─rtables::make_row_df(tt) 9. └─rtables (local) .local(...) 10. ├─formatters::make_row_df(...) 11. └─rtables::make_row_df(...) 12. └─rtables (local) .local(...) 13. ├─formatters::make_row_df(...) 14. └─rtables::make_row_df(...) 15. └─rtables (local) .local(...) 16. ├─formatters::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) `<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-Reporter.R:225:5'): from_reporter / from_reporter persists the cards structure, but not the name ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─teal.reporter:::test_reporter(test_card1(), test_card2()) at test-Reporter.R:225:5 2. │ └─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 3. └─teal.reporter:::test_card2() 4. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 5. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 6. └─rtables::update_ref_indexing(tab) 7. ├─formatters::make_row_df(tt) 8. └─rtables::make_row_df(tt) 9. └─rtables (local) .local(...) 10. ├─formatters::make_row_df(...) 11. └─rtables::make_row_df(...) 12. └─rtables (local) .local(...) 13. ├─formatters::make_row_df(...) 14. └─rtables::make_row_df(...) 15. └─rtables (local) .local(...) 16. ├─formatters::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) `<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-Reporter.R:238:5'): to_list / require the existing directory path ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─teal.reporter:::test_reporter(test_card1(), test_card2()) at test-Reporter.R:238:5 2. │ └─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 3. └─teal.reporter:::test_card2() 4. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 5. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 6. └─rtables::update_ref_indexing(tab) 7. ├─formatters::make_row_df(tt) 8. └─rtables::make_row_df(tt) 9. └─rtables (local) .local(...) 10. ├─formatters::make_row_df(...) 11. └─rtables::make_row_df(...) 12. └─rtables (local) .local(...) 13. ├─formatters::make_row_df(...) 14. └─rtables::make_row_df(...) 15. └─rtables (local) .local(...) 16. ├─formatters::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) `<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-Reporter.R:253:5'): to_list / to_list and from_list could be used to save and retrieve a Reporter card ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─teal.reporter:::test_reporter(test_card1(), test_card2()) at test-Reporter.R:253:5 2. │ └─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 3. └─teal.reporter:::test_card2() 4. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 5. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 6. └─rtables::update_ref_indexing(tab) 7. ├─formatters::make_row_df(tt) 8. └─rtables::make_row_df(tt) 9. └─rtables (local) .local(...) 10. ├─formatters::make_row_df(...) 11. └─rtables::make_row_df(...) 12. └─rtables (local) .local(...) 13. ├─formatters::make_row_df(...) 14. └─rtables::make_row_df(...) 15. └─rtables (local) .local(...) 16. ├─formatters::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) `<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-Reporter.R:266:5'): to_list / to_list and from_list could be used to save and retrieve a Reporter blocks ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─teal.reporter:::test_reporter(test_card1(), test_card2()) at test-Reporter.R:266:5 2. │ └─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 3. └─teal.reporter:::test_card2() 4. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 5. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 6. └─rtables::update_ref_indexing(tab) 7. ├─formatters::make_row_df(tt) 8. └─rtables::make_row_df(tt) 9. └─rtables (local) .local(...) 10. ├─formatters::make_row_df(...) 11. └─rtables::make_row_df(...) 12. └─rtables (local) .local(...) 13. ├─formatters::make_row_df(...) 14. └─rtables::make_row_df(...) 15. └─rtables (local) .local(...) 16. ├─formatters::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) `<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-Reporter.R:277:5'): from_reporter / returns same object from the same reporter ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─teal.reporter:::test_reporter(card1 <- test_card1(), card2 <- test_card2()) at test-Reporter.R:277:5 2. │ └─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 3. └─teal.reporter:::test_card2() 4. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 5. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 6. └─rtables::update_ref_indexing(tab) 7. ├─formatters::make_row_df(tt) 8. └─rtables::make_row_df(tt) 9. └─rtables (local) .local(...) 10. ├─formatters::make_row_df(...) 11. └─rtables::make_row_df(...) 12. └─rtables (local) .local(...) 13. ├─formatters::make_row_df(...) 14. └─rtables::make_row_df(...) 15. └─rtables (local) .local(...) 16. ├─formatters::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) `<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-Reporter.R:284:5'): from_reporter / returns different object if id has already been set ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─teal.reporter:::test_reporter(test_card1(), test_card2()) at test-Reporter.R:284:5 2. │ └─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 3. └─teal.reporter:::test_card2() 4. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 5. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 6. └─rtables::update_ref_indexing(tab) 7. ├─formatters::make_row_df(tt) 8. └─rtables::make_row_df(tt) 9. └─rtables (local) .local(...) 10. ├─formatters::make_row_df(...) 11. └─rtables::make_row_df(...) 12. └─rtables (local) .local(...) 13. ├─formatters::make_row_df(...) 14. └─rtables::make_row_df(...) 15. └─rtables (local) .local(...) 16. ├─formatters::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) `<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-Reporter.R:295:5'): from_reporter / from_reporter persists the cards structure ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─teal.reporter:::test_reporter(test_card1(), test_card2()) at test-Reporter.R:295:5 2. │ └─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 3. └─teal.reporter:::test_card2() 4. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 5. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 6. └─rtables::update_ref_indexing(tab) 7. ├─formatters::make_row_df(tt) 8. └─rtables::make_row_df(tt) 9. └─rtables (local) .local(...) 10. ├─formatters::make_row_df(...) 11. └─rtables::make_row_df(...) 12. └─rtables (local) .local(...) 13. ├─formatters::make_row_df(...) 14. └─rtables::make_row_df(...) 15. └─rtables (local) .local(...) 16. ├─formatters::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) `<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-Reporter.R:309:5'): to_jsondir / to_jsondir require the existing directory path ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─teal.reporter:::test_reporter(test_card1(), test_card2()) at test-Reporter.R:309:5 2. │ └─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 3. └─teal.reporter:::test_card2() 4. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 5. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 6. └─rtables::update_ref_indexing(tab) 7. ├─formatters::make_row_df(tt) 8. └─rtables::make_row_df(tt) 9. └─rtables (local) .local(...) 10. ├─formatters::make_row_df(...) 11. └─rtables::make_row_df(...) 12. └─rtables (local) .local(...) 13. ├─formatters::make_row_df(...) 14. └─rtables::make_row_df(...) 15. └─rtables (local) .local(...) 16. ├─formatters::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) `<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-Reporter.R:316:5'): to_jsondir / to_jsondir returns the same dir it was provided to it ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─teal.reporter:::test_reporter(test_card1(), test_card2()) at test-Reporter.R:316:5 2. │ └─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 3. └─teal.reporter:::test_card2() 4. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 5. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 6. └─rtables::update_ref_indexing(tab) 7. ├─formatters::make_row_df(tt) 8. └─rtables::make_row_df(tt) 9. └─rtables (local) .local(...) 10. ├─formatters::make_row_df(...) 11. └─rtables::make_row_df(...) 12. └─rtables (local) .local(...) 13. ├─formatters::make_row_df(...) 14. └─rtables::make_row_df(...) 15. └─rtables (local) .local(...) 16. ├─formatters::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) `<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-Reporter.R:322:5'): to_jsondir / from_jsondir returns identical/equal object ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─teal.reporter:::test_reporter(test_card1(), test_card2()) at test-Reporter.R:322:5 2. │ └─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 3. └─teal.reporter:::test_card2() 4. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 5. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 6. └─rtables::update_ref_indexing(tab) 7. ├─formatters::make_row_df(tt) 8. └─rtables::make_row_df(tt) 9. └─rtables (local) .local(...) 10. ├─formatters::make_row_df(...) 11. └─rtables::make_row_df(...) 12. └─rtables (local) .local(...) 13. ├─formatters::make_row_df(...) 14. └─rtables::make_row_df(...) 15. └─rtables (local) .local(...) 16. ├─formatters::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) `<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-Reporter.R:329:5'): to_jsondir / to_jsondir and from_jsondir could be used to save and retrive a Reporter ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─teal.reporter:::test_reporter(test_card1(), test_card2()) at test-Reporter.R:329:5 2. │ └─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 3. └─teal.reporter:::test_card2() 4. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 5. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 6. └─rtables::update_ref_indexing(tab) 7. ├─formatters::make_row_df(tt) 8. └─rtables::make_row_df(tt) 9. └─rtables (local) .local(...) 10. ├─formatters::make_row_df(...) 11. └─rtables::make_row_df(...) 12. └─rtables (local) .local(...) 13. ├─formatters::make_row_df(...) 14. └─rtables::make_row_df(...) 15. └─rtables (local) .local(...) 16. ├─formatters::make_row_df(...) 17. └─rtables::make_row_df(...) 18. └─rtables (local) .local(...) 19. ├─formatters::pagdfrow(...) 20. │ └─base::data.frame(...) 21. ├─formatters::nlines(...) 22. └─rtables::nlines(...) 23. ├─base::as.vector(get_formatted_cells(x)) 24. ├─rtables::get_formatted_cells(x) 25. └─rtables::get_formatted_cells(x) 26. ├─base::matrix(...) 27. ├─base::unlist(...) 28. └─base::Map(...) 29. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 30. └─rtables (local) `<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-Reporter.R:386:3'): from_reporter persists the cards structure ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─teal.reporter:::test_card2("Another title") at test-Reporter.R:386:3 2. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 3. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 4. └─rtables::update_ref_indexing(tab) 5. ├─formatters::make_row_df(tt) 6. └─rtables::make_row_df(tt) 7. └─rtables (local) .local(...) 8. ├─formatters::make_row_df(...) 9. └─rtables::make_row_df(...) 10. └─rtables (local) .local(...) 11. ├─formatters::make_row_df(...) 12. └─rtables::make_row_df(...) 13. └─rtables (local) .local(...) 14. ├─formatters::make_row_df(...) 15. └─rtables::make_row_df(...) 16. └─rtables (local) .local(...) 17. ├─formatters::pagdfrow(...) 18. │ └─base::data.frame(...) 19. ├─formatters::nlines(...) 20. └─rtables::nlines(...) 21. ├─base::as.vector(get_formatted_cells(x)) 22. ├─rtables::get_formatted_cells(x) 23. └─rtables::get_formatted_cells(x) 24. ├─base::matrix(...) 25. ├─base::unlist(...) 26. └─base::Map(...) 27. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 28. └─rtables (local) `<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-SimpleReporter.R:2:3'): simple_reporter_srv - render and downlaod a document ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─shiny::testServer(...) at test-SimpleReporter.R:2:3 2. │ └─"id" %in% names(args) 3. └─teal.reporter:::test_reporter() 4. ├─base::append(list(card1, card2), list(...)) at ./helper-Reporter.R:62:3 5. └─teal.reporter:::test_card2() 6. └─teal.reporter (local) fun(card) at ./helper-Reporter.R:25:5 7. └─rtables::build_table(lyt, within(airquality, Day <- factor(Day))) at ./helper-Reporter.R:17:5 8. └─rtables::update_ref_indexing(tab) 9. ├─formatters::make_row_df(tt) 10. └─rtables::make_row_df(tt) 11. └─rtables (local) .local(...) 12. ├─formatters::make_row_df(...) 13. └─rtables::make_row_df(...) 14. └─rtables (local) .local(...) 15. ├─formatters::make_row_df(...) 16. └─rtables::make_row_df(...) 17. └─rtables (local) .local(...) 18. ├─formatters::make_row_df(...) 19. └─rtables::make_row_df(...) 20. └─rtables (local) .local(...) 21. ├─formatters::pagdfrow(...) 22. │ └─base::data.frame(...) 23. ├─formatters::nlines(...) 24. └─rtables::nlines(...) 25. ├─base::as.vector(get_formatted_cells(x)) 26. ├─rtables::get_formatted_cells(x) 27. └─rtables::get_formatted_cells(x) 28. ├─base::matrix(...) 29. ├─base::unlist(...) 30. └─base::Map(...) 31. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 32. └─rtables (local) `<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-to_rmd.R:78:5'): to_rmd generating blocks with rds auxiliary files / data frames are converted to code chunks with readRDS ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─teal.reporter (local) expect_rds_generation(to_rmd(data.frame(x = 1:5, y = letters[1:5]))) at test-to_rmd.R:78:5 2. │ └─testthat::expect_match(result, "^```[{][rR].*[}].*readRDS[(].*[)].*```[ \n]*$") at test-to_rmd.R:59:5 3. │ └─testthat::quasi_label(enquo(object), label) 4. │ └─rlang::eval_bare(expr, quo_get_env(quo)) 5. ├─teal.reporter::to_rmd(data.frame(x = 1:5, y = letters[1:5])) 6. └─teal.reporter:::to_rmd.default(data.frame(x = 1:5, y = letters[1:5])) 7. ├─teal.reporter:::.to_rmd(block, ...) 8. └─teal.reporter:::.to_rmd.data.frame(block, ...) 9. └─teal.reporter:::to_flextable(block) 10. └─rtables.officer::tt_to_flextable(rtables::df_to_tt(content)) 11. ├─rtables::matrix_form(tt, fontspec = fontspec, indent_rownames = FALSE) 12. └─rtables::matrix_form(tt, fontspec = fontspec, indent_rownames = FALSE) 13. └─rtables:::.tbl_header_mat(obj) 14. ├─base::matrix(...) 15. └─base::rapply(...) 16. └─rtables (local) `<fn>`(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-utils.R:3:3'): to_flextable: supported class `data.frame` ────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─teal.reporter:::to_flextable(data_frame) at test-utils.R:3:3 2. └─rtables.officer::tt_to_flextable(rtables::df_to_tt(content)) 3. ├─rtables::matrix_form(tt, fontspec = fontspec, indent_rownames = FALSE) 4. └─rtables::matrix_form(tt, fontspec = fontspec, indent_rownames = FALSE) 5. └─rtables:::.tbl_header_mat(obj) 6. ├─base::matrix(...) 7. └─base::rapply(...) 8. └─rtables (local) `<fn>`(X, ...) 9. ├─rtables::get_formatted_cells(x) 10. └─rtables::get_formatted_cells(x) 11. ├─base::matrix(...) 12. ├─base::unlist(...) 13. └─base::Map(...) 14. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 15. └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 16. └─rtables::format_rcell(...) 17. └─formatters::format_value(...) 18. └─base::match.arg(round_type) ── Error ('test-utils.R:8:3'): to_flextable: supported class `rtables` ───────── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─... %>% rtables::build_table(formatters::DM) at test-utils.R:8:3 2. └─rtables::build_table(., formatters::DM) 3. └─rtables::update_ref_indexing(tab) 4. ├─formatters::make_row_df(tt) 5. └─rtables::make_row_df(tt) 6. └─rtables (local) .local(...) 7. ├─formatters::make_row_df(...) 8. └─rtables::make_row_df(...) 9. └─rtables (local) .local(...) 10. ├─formatters::pagdfrow(...) 11. │ └─base::data.frame(...) 12. ├─formatters::nlines(...) 13. └─rtables::nlines(...) 14. ├─base::as.vector(get_formatted_cells(x)) 15. ├─rtables::get_formatted_cells(x) 16. └─rtables::get_formatted_cells(x) 17. ├─base::matrix(...) 18. ├─base::unlist(...) 19. └─base::Map(...) 20. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 21. └─rtables (local) `<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-utils.R:17:3'): to_flextable: supported class `listing_df` ───── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. └─teal.reporter:::to_flextable(lsting) at test-utils.R:17:3 2. └─rtables.officer::tt_to_flextable(...) 3. ├─rtables::matrix_form(tt, fontspec = fontspec, indent_rownames = FALSE) 4. └─rtables::matrix_form(tt, fontspec = fontspec, indent_rownames = FALSE) 5. └─rtables:::.tbl_header_mat(obj) 6. ├─base::matrix(...) 7. └─base::rapply(...) 8. └─rtables (local) `<fn>`(X, ...) 9. ├─rtables::get_formatted_cells(x) 10. └─rtables::get_formatted_cells(x) 11. ├─base::matrix(...) 12. ├─base::unlist(...) 13. └─base::Map(...) 14. └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE) 15. └─rtables (local) `<fn>`(val = dots[[1L]][[1L]], spn = dots[[2L]][[1L]], shelli = dots[[3L]][[1L]]) 16. └─rtables::format_rcell(...) 17. └─formatters::format_value(...) 18. └─base::match.arg(round_type) [ FAIL 27 | WARN 1 | SKIP 6 | PASS 348 ] Error: ! Test failures. Execution halted Flavor: r-devel-linux-x86_64-fedora-gcc

Package teal.slice

Current CRAN status: OK: 13

Package teal.transform

Current CRAN status: OK: 13

Package teal.widgets

Current CRAN status: ERROR: 2, OK: 11

Version: 0.5.1
Check: tests
Result: ERROR Running ‘testthat.R’ [30s/79s] Running the tests in ‘tests/testthat.R’ failed. Complete output: > pkg_name <- "teal.widgets" > library(pkg_name, character.only = TRUE) > if (!is.null(requireNamespace("testthat"))) { + library(testthat) + test_check(pkg_name) + } else { + message("Please install testthat to run tests") + } Loading required namespace: testthat Loading required package: shiny Saving _problems/test-table_with_settings-39.R Saving _problems/test-table_with_settings-65.R Saving _problems/test-table_with_settings-83.R Saving _problems/test-table_with_settings-102.R Saving _problems/test-table_with_settings-121.R Saving _problems/test-table_with_settings-135.R Saving _problems/test-table_with_settings-158.R [ FAIL 9 | WARN 0 | SKIP 30 | PASS 225 ] ══ Skipped tests (30) ══════════════════════════════════════════════════════════ • On CRAN (3): 'test-optionalSliderInputValMinMax_ui.R:37:1', 'test-verbatim_popup_ui.R:153:1', 'test-white_small_well.R:7:1' • testing depth 3 is below current testing specification 5 (27): 'test-draggable_buckets.R:19:5', 'test-draggable_buckets.R:42:5', 'test-draggable_buckets.R:68:5', 'test-get_dt_rows_ui.R:48:5', 'test-optionalSelectInput_ui.R:95:5', 'test-optionalSliderInputValMinMax_ui.R:16:5', 'test-plot_with_settings_ui.R:110:5', 'test-plot_with_settings_ui.R:133:5', 'test-plot_with_settings_ui.R:196:5', 'test-plot_with_settings_ui.R:238:5', 'test-plot_with_settings_ui.R:278:5', 'test-plot_with_settings_ui.R:323:5', 'test-plot_with_settings_ui.R:348:5', 'test-plot_with_settings_ui.R:369:3', 'test-plot_with_settings_ui.R:424:3', 'test-plot_with_settings_ui.R:447:3', 'test-plot_with_settings_ui.R:493:3', 'test-table_with_settings_ui.R:72:5', 'test-table_with_settings_ui.R:96:5', 'test-table_with_settings_ui.R:162:5', 'test-table_with_settings_ui.R:191:5', 'test-table_with_settings_ui.R:230:5', 'test-table_with_settings_ui.R:298:5', 'test-table_with_settings_ui.R:324:5', 'test-table_with_settings_ui.R:348:3', 'test-verbatim_popup_ui.R:33:5', 'test-verbatim_popup_ui.R:92:5' ══ Failed tests ════════════════════════════════════════════════════════════════ ── Error ('test-table_with_settings.R:29:7'): table_with_settings_srv: hiding works ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─shiny::testServer(...) at test-table_with_settings.R:25:3 2. │ ├─shiny:::withMockContext(...) 3. │ │ ├─shiny::isolate(...) 4. │ │ │ ├─shiny::..stacktraceoff..(...) 5. │ │ │ └─ctx$run(...) 6. │ │ │ ├─promises::with_promise_domain(...) 7. │ │ │ │ └─domain$wrapSync(expr) 8. │ │ │ ├─shiny::withReactiveDomain(...) 9. │ │ │ │ └─promises::with_promise_domain(...) 10. │ │ │ │ └─domain$wrapSync(expr) 11. │ │ │ │ └─base::force(expr) 12. │ │ │ ├─shiny:::with_otel_span_context(...) 13. │ │ │ │ └─base::force(expr) 14. │ │ │ ├─shiny::captureStackTraces(...) 15. │ │ │ │ └─promises::with_promise_domain(...) 16. │ │ │ │ └─domain$wrapSync(expr) 17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack) 18. │ │ │ └─env$runWith(self, func) 19. │ │ │ └─shiny (local) contextFunc() 20. │ │ │ └─shiny::..stacktraceon..(expr) 21. │ │ ├─shiny::withReactiveDomain(...) 22. │ │ │ └─promises::with_promise_domain(...) 23. │ │ │ └─domain$wrapSync(expr) 24. │ │ │ └─base::force(expr) 25. │ │ └─withr::with_options(...) 26. │ │ └─base::force(code) 27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env()) 28. ├─testthat::expect_silent(output$table_out_modal$html) at test-table_with_settings.R:29:7 29. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise) 30. │ ├─testthat (local) .capture(...) 31. │ │ ├─withr::with_output_sink(...) 32. │ │ │ └─base::force(code) 33. │ │ ├─base::withCallingHandlers(...) 34. │ │ └─base::withVisible(code) 35. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo)) 36. ├─output$table_out_modal 37. ├─shiny:::`$.shinyoutput`(output, table_out_modal) 38. │ └─.subset2(x, "impl")$getOutput(name) 39. │ └─base::stop(v$err) 40. └─shiny (local) `<fn>`(`<smplErrr>`) ── Error ('test-table_with_settings.R:39:7'): table_with_settings_srv: return html table ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─shiny::testServer(...) at test-table_with_settings.R:35:3 2. │ ├─shiny:::withMockContext(...) 3. │ │ ├─shiny::isolate(...) 4. │ │ │ ├─shiny::..stacktraceoff..(...) 5. │ │ │ └─ctx$run(...) 6. │ │ │ ├─promises::with_promise_domain(...) 7. │ │ │ │ └─domain$wrapSync(expr) 8. │ │ │ ├─shiny::withReactiveDomain(...) 9. │ │ │ │ └─promises::with_promise_domain(...) 10. │ │ │ │ └─domain$wrapSync(expr) 11. │ │ │ │ └─base::force(expr) 12. │ │ │ ├─shiny:::with_otel_span_context(...) 13. │ │ │ │ └─base::force(expr) 14. │ │ │ ├─shiny::captureStackTraces(...) 15. │ │ │ │ └─promises::with_promise_domain(...) 16. │ │ │ │ └─domain$wrapSync(expr) 17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack) 18. │ │ │ └─env$runWith(self, func) 19. │ │ │ └─shiny (local) contextFunc() 20. │ │ │ └─shiny::..stacktraceon..(expr) 21. │ │ ├─shiny::withReactiveDomain(...) 22. │ │ │ └─promises::with_promise_domain(...) 23. │ │ │ └─domain$wrapSync(expr) 24. │ │ │ └─base::force(expr) 25. │ │ └─withr::with_options(...) 26. │ │ └─base::force(code) 27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env()) 28. ├─testthat::expect_s3_class(output$table_out_modal$html, "html") at test-table_with_settings.R:39:7 29. │ └─testthat::quasi_label(enquo(object)) 30. │ └─rlang::eval_bare(expr, quo_get_env(quo)) 31. ├─output$table_out_modal 32. ├─shiny:::`$.shinyoutput`(output, table_out_modal) 33. │ └─.subset2(x, "impl")$getOutput(name) 34. │ └─base::stop(v$err) 35. └─shiny (local) `<fn>`(`<smplErrr>`) ── Error ('test-table_with_settings.R:51:7'): table_with_settings_srv: expand works ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─shiny::testServer(...) at test-table_with_settings.R:46:3 2. │ ├─shiny:::withMockContext(...) 3. │ │ ├─shiny::isolate(...) 4. │ │ │ ├─shiny::..stacktraceoff..(...) 5. │ │ │ └─ctx$run(...) 6. │ │ │ ├─promises::with_promise_domain(...) 7. │ │ │ │ └─domain$wrapSync(expr) 8. │ │ │ ├─shiny::withReactiveDomain(...) 9. │ │ │ │ └─promises::with_promise_domain(...) 10. │ │ │ │ └─domain$wrapSync(expr) 11. │ │ │ │ └─base::force(expr) 12. │ │ │ ├─shiny:::with_otel_span_context(...) 13. │ │ │ │ └─base::force(expr) 14. │ │ │ ├─shiny::captureStackTraces(...) 15. │ │ │ │ └─promises::with_promise_domain(...) 16. │ │ │ │ └─domain$wrapSync(expr) 17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack) 18. │ │ │ └─env$runWith(self, func) 19. │ │ │ └─shiny (local) contextFunc() 20. │ │ │ └─shiny::..stacktraceon..(expr) 21. │ │ ├─shiny::withReactiveDomain(...) 22. │ │ │ └─promises::with_promise_domain(...) 23. │ │ │ └─domain$wrapSync(expr) 24. │ │ │ └─base::force(expr) 25. │ │ └─withr::with_options(...) 26. │ │ └─base::force(code) 27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env()) 28. ├─testthat::expect_silent(output$table_out_modal) at test-table_with_settings.R:51:7 29. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise) 30. │ ├─testthat (local) .capture(...) 31. │ │ ├─withr::with_output_sink(...) 32. │ │ │ └─base::force(code) 33. │ │ ├─base::withCallingHandlers(...) 34. │ │ └─base::withVisible(code) 35. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo)) 36. ├─output$table_out_modal 37. ├─shiny:::`$.shinyoutput`(output, table_out_modal) 38. │ └─.subset2(x, "impl")$getOutput(name) 39. │ └─base::stop(v$err) 40. └─shiny (local) `<fn>`(`<smplErrr>`) ── Error ('test-table_with_settings.R:65:9'): type_download_srv_table: downloading different output types, custom name ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─shiny::testServer(...) at test-table_with_settings.R:57:3 2. │ ├─shiny:::withMockContext(...) 3. │ │ ├─shiny::isolate(...) 4. │ │ │ ├─shiny::..stacktraceoff..(...) 5. │ │ │ └─ctx$run(...) 6. │ │ │ ├─promises::with_promise_domain(...) 7. │ │ │ │ └─domain$wrapSync(expr) 8. │ │ │ ├─shiny::withReactiveDomain(...) 9. │ │ │ │ └─promises::with_promise_domain(...) 10. │ │ │ │ └─domain$wrapSync(expr) 11. │ │ │ │ └─base::force(expr) 12. │ │ │ ├─shiny:::with_otel_span_context(...) 13. │ │ │ │ └─base::force(expr) 14. │ │ │ ├─shiny::captureStackTraces(...) 15. │ │ │ │ └─promises::with_promise_domain(...) 16. │ │ │ │ └─domain$wrapSync(expr) 17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack) 18. │ │ │ └─env$runWith(self, func) 19. │ │ │ └─shiny (local) contextFunc() 20. │ │ │ └─shiny::..stacktraceon..(expr) 21. │ │ ├─shiny::withReactiveDomain(...) 22. │ │ │ └─promises::with_promise_domain(...) 23. │ │ │ └─domain$wrapSync(expr) 24. │ │ │ └─base::force(expr) 25. │ │ └─withr::with_options(...) 26. │ │ └─base::force(code) 27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env()) 28. ├─testthat::expect_true(file.exists(output$data_download)) at test-table_with_settings.R:65:9 29. │ └─testthat::quasi_label(enquo(object), label) 30. │ └─rlang::eval_bare(expr, quo_get_env(quo)) 31. ├─base::file.exists(output$data_download) 32. ├─output$data_download 33. ├─shiny:::`$.shinyoutput`(output, data_download) 34. │ └─.subset2(x, "impl")$getOutput(name) 35. │ └─private$renderFile(self$ns(name), download) 36. │ └─download$content(file) 37. │ ├─rtables::export_as_txt(...) 38. │ │ └─formatters:::.is_list_of_tables_or_listings(x) 39. │ │ └─methods::is(a_list, "list") 40. │ └─shiny (local) table_reactive() 41. │ └─base::stop(.value) 42. └─shiny (local) `<fn>`(`<smplErrr>`) ── Error ('test-table_with_settings.R:83:9'): type_download_srv_table: downloading different output types, no name ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─shiny::testServer(...) at test-table_with_settings.R:76:3 2. │ ├─shiny:::withMockContext(...) 3. │ │ ├─shiny::isolate(...) 4. │ │ │ ├─shiny::..stacktraceoff..(...) 5. │ │ │ └─ctx$run(...) 6. │ │ │ ├─promises::with_promise_domain(...) 7. │ │ │ │ └─domain$wrapSync(expr) 8. │ │ │ ├─shiny::withReactiveDomain(...) 9. │ │ │ │ └─promises::with_promise_domain(...) 10. │ │ │ │ └─domain$wrapSync(expr) 11. │ │ │ │ └─base::force(expr) 12. │ │ │ ├─shiny:::with_otel_span_context(...) 13. │ │ │ │ └─base::force(expr) 14. │ │ │ ├─shiny::captureStackTraces(...) 15. │ │ │ │ └─promises::with_promise_domain(...) 16. │ │ │ │ └─domain$wrapSync(expr) 17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack) 18. │ │ │ └─env$runWith(self, func) 19. │ │ │ └─shiny (local) contextFunc() 20. │ │ │ └─shiny::..stacktraceon..(expr) 21. │ │ ├─shiny::withReactiveDomain(...) 22. │ │ │ └─promises::with_promise_domain(...) 23. │ │ │ └─domain$wrapSync(expr) 24. │ │ │ └─base::force(expr) 25. │ │ └─withr::with_options(...) 26. │ │ └─base::force(code) 27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env()) 28. ├─testthat::expect_true(file.exists(output$data_download)) at test-table_with_settings.R:83:9 29. │ └─testthat::quasi_label(enquo(object), label) 30. │ └─rlang::eval_bare(expr, quo_get_env(quo)) 31. ├─base::file.exists(output$data_download) 32. ├─output$data_download 33. ├─shiny:::`$.shinyoutput`(output, data_download) 34. │ └─.subset2(x, "impl")$getOutput(name) 35. │ └─private$renderFile(self$ns(name), download) 36. │ └─download$content(file) 37. │ ├─rtables::export_as_txt(...) 38. │ │ └─formatters:::.is_list_of_tables_or_listings(x) 39. │ │ └─methods::is(a_list, "list") 40. │ └─shiny (local) table_reactive() 41. │ └─base::stop(.value) 42. └─shiny (local) `<fn>`(`<smplErrr>`) ── Error ('test-table_with_settings.R:102:9'): type_download_srv_table: downloading different output types, pagination ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─shiny::testServer(...) at test-table_with_settings.R:93:3 2. │ ├─shiny:::withMockContext(...) 3. │ │ ├─shiny::isolate(...) 4. │ │ │ ├─shiny::..stacktraceoff..(...) 5. │ │ │ └─ctx$run(...) 6. │ │ │ ├─promises::with_promise_domain(...) 7. │ │ │ │ └─domain$wrapSync(expr) 8. │ │ │ ├─shiny::withReactiveDomain(...) 9. │ │ │ │ └─promises::with_promise_domain(...) 10. │ │ │ │ └─domain$wrapSync(expr) 11. │ │ │ │ └─base::force(expr) 12. │ │ │ ├─shiny:::with_otel_span_context(...) 13. │ │ │ │ └─base::force(expr) 14. │ │ │ ├─shiny::captureStackTraces(...) 15. │ │ │ │ └─promises::with_promise_domain(...) 16. │ │ │ │ └─domain$wrapSync(expr) 17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack) 18. │ │ │ └─env$runWith(self, func) 19. │ │ │ └─shiny (local) contextFunc() 20. │ │ │ └─shiny::..stacktraceon..(expr) 21. │ │ ├─shiny::withReactiveDomain(...) 22. │ │ │ └─promises::with_promise_domain(...) 23. │ │ │ └─domain$wrapSync(expr) 24. │ │ │ └─base::force(expr) 25. │ │ └─withr::with_options(...) 26. │ │ └─base::force(code) 27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env()) 28. ├─testthat::expect_true(file.exists(output$data_download)) at test-table_with_settings.R:102:9 29. │ └─testthat::quasi_label(enquo(object), label) 30. │ └─rlang::eval_bare(expr, quo_get_env(quo)) 31. ├─base::file.exists(output$data_download) 32. ├─output$data_download 33. ├─shiny:::`$.shinyoutput`(output, data_download) 34. │ └─.subset2(x, "impl")$getOutput(name) 35. │ └─private$renderFile(self$ns(name), download) 36. │ └─download$content(file) 37. │ ├─rtables::export_as_txt(...) 38. │ │ └─formatters:::.is_list_of_tables_or_listings(x) 39. │ │ └─methods::is(a_list, "list") 40. │ └─shiny (local) table_reactive() 41. │ └─base::stop(.value) 42. └─shiny (local) `<fn>`(`<smplErrr>`) ── Error ('test-table_with_settings.R:121:9'): type_download_srv_table: pagination, lpp to small ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─shiny::testServer(...) at test-table_with_settings.R:113:3 2. │ ├─shiny:::withMockContext(...) 3. │ │ ├─shiny::isolate(...) 4. │ │ │ ├─shiny::..stacktraceoff..(...) 5. │ │ │ └─ctx$run(...) 6. │ │ │ ├─promises::with_promise_domain(...) 7. │ │ │ │ └─domain$wrapSync(expr) 8. │ │ │ ├─shiny::withReactiveDomain(...) 9. │ │ │ │ └─promises::with_promise_domain(...) 10. │ │ │ │ └─domain$wrapSync(expr) 11. │ │ │ │ └─base::force(expr) 12. │ │ │ ├─shiny:::with_otel_span_context(...) 13. │ │ │ │ └─base::force(expr) 14. │ │ │ ├─shiny::captureStackTraces(...) 15. │ │ │ │ └─promises::with_promise_domain(...) 16. │ │ │ │ └─domain$wrapSync(expr) 17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack) 18. │ │ │ └─env$runWith(self, func) 19. │ │ │ └─shiny (local) contextFunc() 20. │ │ │ └─shiny::..stacktraceon..(expr) 21. │ │ ├─shiny::withReactiveDomain(...) 22. │ │ │ └─promises::with_promise_domain(...) 23. │ │ │ └─domain$wrapSync(expr) 24. │ │ │ └─base::force(expr) 25. │ │ └─withr::with_options(...) 26. │ │ └─base::force(code) 27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env()) 28. ├─testthat::expect_error(output$data_download, "Lines of repeated context") at test-table_with_settings.R:121:9 29. │ └─testthat:::expect_condition_matching_(...) 30. │ └─testthat:::quasi_capture(...) 31. │ ├─testthat (local) .capture(...) 32. │ │ └─base::withCallingHandlers(...) 33. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo)) 34. ├─output$data_download 35. ├─shiny:::`$.shinyoutput`(output, data_download) 36. │ └─.subset2(x, "impl")$getOutput(name) 37. │ └─private$renderFile(self$ns(name), download) 38. │ └─download$content(file) 39. │ ├─rtables::export_as_txt(...) 40. │ │ └─formatters:::.is_list_of_tables_or_listings(x) 41. │ │ └─methods::is(a_list, "list") 42. │ └─shiny (local) table_reactive() 43. │ └─base::stop(.value) 44. └─shiny (local) `<fn>`(`<smplErrr>`) ── Error ('test-table_with_settings.R:135:7'): type_download_srv_table: content of the table, csv ── Error in `(function (cond) .Internal(C_tryCatchHelper(addr, 1L, cond)))(structure(list(message = "'arg' must be of length 1", call = match.arg(round_type)), class = c("simpleError", "error", "condition")))`: error in evaluating the argument 'obj' in selecting a method for function 'matrix_form': 'arg' must be of length 1 Backtrace: ▆ 1. ├─shiny::testServer(...) at test-table_with_settings.R:128:3 2. │ ├─shiny:::withMockContext(...) 3. │ │ ├─shiny::isolate(...) 4. │ │ │ ├─shiny::..stacktraceoff..(...) 5. │ │ │ └─ctx$run(...) 6. │ │ │ ├─promises::with_promise_domain(...) 7. │ │ │ │ └─domain$wrapSync(expr) 8. │ │ │ ├─shiny::withReactiveDomain(...) 9. │ │ │ │ └─promises::with_promise_domain(...) 10. │ │ │ │ └─domain$wrapSync(expr) 11. │ │ │ │ └─base::force(expr) 12. │ │ │ ├─shiny:::with_otel_span_context(...) 13. │ │ │ │ └─base::force(expr) 14. │ │ │ ├─shiny::captureStackTraces(...) 15. │ │ │ │ └─promises::with_promise_domain(...) 16. │ │ │ │ └─domain$wrapSync(expr) 17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack) 18. │ │ │ └─env$runWith(self, func) 19. │ │ │ └─shiny (local) contextFunc() 20. │ │ │ └─shiny::..stacktraceon..(expr) 21. │ │ ├─shiny::withReactiveDomain(...) 22. │ │ │ └─promises::with_promise_domain(...) 23. │ │ │ └─domain$wrapSync(expr) 24. │ │ │ └─base::force(expr) 25. │ │ └─withr::with_options(...) 26. │ │ └─base::force(code) 27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env()) 28. ├─utils::read.csv(output$data_download) at test-table_with_settings.R:135:7 29. │ └─utils::read.table(...) 30. ├─output$data_download 31. ├─shiny:::`$.shinyoutput`(output, data_download) 32. │ └─.subset2(x, "impl")$getOutput(name) 33. │ └─private$renderFile(self$ns(name), download) 34. │ └─download$content(file) 35. │ ├─rtables::matrix_form(table_reactive()) 36. │ └─shiny (local) table_reactive() 37. │ └─base::stop(.value) 38. ├─base (local) `<fn>`(`<smplErrr>`) 39. └─base::.handleSimpleError(...) 40. └─shiny (local) h(simpleError(msg, call)) ── Error ('test-table_with_settings.R:158:7'): type_download_srv_table: content of the table, txt ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─shiny::testServer(...) at test-table_with_settings.R:151:3 2. │ ├─shiny:::withMockContext(...) 3. │ │ ├─shiny::isolate(...) 4. │ │ │ ├─shiny::..stacktraceoff..(...) 5. │ │ │ └─ctx$run(...) 6. │ │ │ ├─promises::with_promise_domain(...) 7. │ │ │ │ └─domain$wrapSync(expr) 8. │ │ │ ├─shiny::withReactiveDomain(...) 9. │ │ │ │ └─promises::with_promise_domain(...) 10. │ │ │ │ └─domain$wrapSync(expr) 11. │ │ │ │ └─base::force(expr) 12. │ │ │ ├─shiny:::with_otel_span_context(...) 13. │ │ │ │ └─base::force(expr) 14. │ │ │ ├─shiny::captureStackTraces(...) 15. │ │ │ │ └─promises::with_promise_domain(...) 16. │ │ │ │ └─domain$wrapSync(expr) 17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack) 18. │ │ │ └─env$runWith(self, func) 19. │ │ │ └─shiny (local) contextFunc() 20. │ │ │ └─shiny::..stacktraceon..(expr) 21. │ │ ├─shiny::withReactiveDomain(...) 22. │ │ │ └─promises::with_promise_domain(...) 23. │ │ │ └─domain$wrapSync(expr) 24. │ │ │ └─base::force(expr) 25. │ │ └─withr::with_options(...) 26. │ │ └─base::force(code) 27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env()) 28. ├─utils::read.delim(output$data_download, sep = "") at test-table_with_settings.R:158:7 29. │ └─utils::read.table(...) 30. ├─output$data_download 31. ├─shiny:::`$.shinyoutput`(output, data_download) 32. │ └─.subset2(x, "impl")$getOutput(name) 33. │ └─private$renderFile(self$ns(name), download) 34. │ └─download$content(file) 35. │ ├─rtables::export_as_txt(...) 36. │ │ └─formatters:::.is_list_of_tables_or_listings(x) 37. │ │ └─methods::is(a_list, "list") 38. │ └─shiny (local) table_reactive() 39. │ └─base::stop(.value) 40. └─shiny (local) `<fn>`(`<smplErrr>`) [ FAIL 9 | WARN 0 | SKIP 30 | PASS 225 ] Error: ! Test failures. Execution halted Flavor: r-devel-linux-x86_64-fedora-clang

Version: 0.5.1
Check: tests
Result: ERROR Running ‘testthat.R’ [29s/94s] Running the tests in ‘tests/testthat.R’ failed. Complete output: > pkg_name <- "teal.widgets" > library(pkg_name, character.only = TRUE) > if (!is.null(requireNamespace("testthat"))) { + library(testthat) + test_check(pkg_name) + } else { + message("Please install testthat to run tests") + } Loading required namespace: testthat Loading required package: shiny Saving _problems/test-table_with_settings-39.R Saving _problems/test-table_with_settings-65.R Saving _problems/test-table_with_settings-83.R Saving _problems/test-table_with_settings-102.R Saving _problems/test-table_with_settings-121.R Saving _problems/test-table_with_settings-135.R Saving _problems/test-table_with_settings-158.R [ FAIL 9 | WARN 0 | SKIP 30 | PASS 225 ] ══ Skipped tests (30) ══════════════════════════════════════════════════════════ • On CRAN (3): 'test-optionalSliderInputValMinMax_ui.R:37:1', 'test-verbatim_popup_ui.R:153:1', 'test-white_small_well.R:7:1' • testing depth 3 is below current testing specification 5 (27): 'test-draggable_buckets.R:19:5', 'test-draggable_buckets.R:42:5', 'test-draggable_buckets.R:68:5', 'test-get_dt_rows_ui.R:48:5', 'test-optionalSelectInput_ui.R:95:5', 'test-optionalSliderInputValMinMax_ui.R:16:5', 'test-plot_with_settings_ui.R:110:5', 'test-plot_with_settings_ui.R:133:5', 'test-plot_with_settings_ui.R:196:5', 'test-plot_with_settings_ui.R:238:5', 'test-plot_with_settings_ui.R:278:5', 'test-plot_with_settings_ui.R:323:5', 'test-plot_with_settings_ui.R:348:5', 'test-plot_with_settings_ui.R:369:3', 'test-plot_with_settings_ui.R:424:3', 'test-plot_with_settings_ui.R:447:3', 'test-plot_with_settings_ui.R:493:3', 'test-table_with_settings_ui.R:72:5', 'test-table_with_settings_ui.R:96:5', 'test-table_with_settings_ui.R:162:5', 'test-table_with_settings_ui.R:191:5', 'test-table_with_settings_ui.R:230:5', 'test-table_with_settings_ui.R:298:5', 'test-table_with_settings_ui.R:324:5', 'test-table_with_settings_ui.R:348:3', 'test-verbatim_popup_ui.R:33:5', 'test-verbatim_popup_ui.R:92:5' ══ Failed tests ════════════════════════════════════════════════════════════════ ── Error ('test-table_with_settings.R:29:7'): table_with_settings_srv: hiding works ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─shiny::testServer(...) at test-table_with_settings.R:25:3 2. │ ├─shiny:::withMockContext(...) 3. │ │ ├─shiny::isolate(...) 4. │ │ │ ├─shiny::..stacktraceoff..(...) 5. │ │ │ └─ctx$run(...) 6. │ │ │ ├─promises::with_promise_domain(...) 7. │ │ │ │ └─domain$wrapSync(expr) 8. │ │ │ ├─shiny::withReactiveDomain(...) 9. │ │ │ │ └─promises::with_promise_domain(...) 10. │ │ │ │ └─domain$wrapSync(expr) 11. │ │ │ │ └─base::force(expr) 12. │ │ │ ├─shiny:::with_otel_span_context(...) 13. │ │ │ │ └─base::force(expr) 14. │ │ │ ├─shiny::captureStackTraces(...) 15. │ │ │ │ └─promises::with_promise_domain(...) 16. │ │ │ │ └─domain$wrapSync(expr) 17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack) 18. │ │ │ └─env$runWith(self, func) 19. │ │ │ └─shiny (local) contextFunc() 20. │ │ │ └─shiny::..stacktraceon..(expr) 21. │ │ ├─shiny::withReactiveDomain(...) 22. │ │ │ └─promises::with_promise_domain(...) 23. │ │ │ └─domain$wrapSync(expr) 24. │ │ │ └─base::force(expr) 25. │ │ └─withr::with_options(...) 26. │ │ └─base::force(code) 27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env()) 28. ├─testthat::expect_silent(output$table_out_modal$html) at test-table_with_settings.R:29:7 29. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise) 30. │ ├─testthat (local) .capture(...) 31. │ │ ├─withr::with_output_sink(...) 32. │ │ │ └─base::force(code) 33. │ │ ├─base::withCallingHandlers(...) 34. │ │ └─base::withVisible(code) 35. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo)) 36. ├─output$table_out_modal 37. ├─shiny:::`$.shinyoutput`(output, table_out_modal) 38. │ └─.subset2(x, "impl")$getOutput(name) 39. │ └─base::stop(v$err) 40. └─shiny (local) `<fn>`(`<smplErrr>`) ── Error ('test-table_with_settings.R:39:7'): table_with_settings_srv: return html table ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─shiny::testServer(...) at test-table_with_settings.R:35:3 2. │ ├─shiny:::withMockContext(...) 3. │ │ ├─shiny::isolate(...) 4. │ │ │ ├─shiny::..stacktraceoff..(...) 5. │ │ │ └─ctx$run(...) 6. │ │ │ ├─promises::with_promise_domain(...) 7. │ │ │ │ └─domain$wrapSync(expr) 8. │ │ │ ├─shiny::withReactiveDomain(...) 9. │ │ │ │ └─promises::with_promise_domain(...) 10. │ │ │ │ └─domain$wrapSync(expr) 11. │ │ │ │ └─base::force(expr) 12. │ │ │ ├─shiny:::with_otel_span_context(...) 13. │ │ │ │ └─base::force(expr) 14. │ │ │ ├─shiny::captureStackTraces(...) 15. │ │ │ │ └─promises::with_promise_domain(...) 16. │ │ │ │ └─domain$wrapSync(expr) 17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack) 18. │ │ │ └─env$runWith(self, func) 19. │ │ │ └─shiny (local) contextFunc() 20. │ │ │ └─shiny::..stacktraceon..(expr) 21. │ │ ├─shiny::withReactiveDomain(...) 22. │ │ │ └─promises::with_promise_domain(...) 23. │ │ │ └─domain$wrapSync(expr) 24. │ │ │ └─base::force(expr) 25. │ │ └─withr::with_options(...) 26. │ │ └─base::force(code) 27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env()) 28. ├─testthat::expect_s3_class(output$table_out_modal$html, "html") at test-table_with_settings.R:39:7 29. │ └─testthat::quasi_label(enquo(object)) 30. │ └─rlang::eval_bare(expr, quo_get_env(quo)) 31. ├─output$table_out_modal 32. ├─shiny:::`$.shinyoutput`(output, table_out_modal) 33. │ └─.subset2(x, "impl")$getOutput(name) 34. │ └─base::stop(v$err) 35. └─shiny (local) `<fn>`(`<smplErrr>`) ── Error ('test-table_with_settings.R:51:7'): table_with_settings_srv: expand works ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─shiny::testServer(...) at test-table_with_settings.R:46:3 2. │ ├─shiny:::withMockContext(...) 3. │ │ ├─shiny::isolate(...) 4. │ │ │ ├─shiny::..stacktraceoff..(...) 5. │ │ │ └─ctx$run(...) 6. │ │ │ ├─promises::with_promise_domain(...) 7. │ │ │ │ └─domain$wrapSync(expr) 8. │ │ │ ├─shiny::withReactiveDomain(...) 9. │ │ │ │ └─promises::with_promise_domain(...) 10. │ │ │ │ └─domain$wrapSync(expr) 11. │ │ │ │ └─base::force(expr) 12. │ │ │ ├─shiny:::with_otel_span_context(...) 13. │ │ │ │ └─base::force(expr) 14. │ │ │ ├─shiny::captureStackTraces(...) 15. │ │ │ │ └─promises::with_promise_domain(...) 16. │ │ │ │ └─domain$wrapSync(expr) 17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack) 18. │ │ │ └─env$runWith(self, func) 19. │ │ │ └─shiny (local) contextFunc() 20. │ │ │ └─shiny::..stacktraceon..(expr) 21. │ │ ├─shiny::withReactiveDomain(...) 22. │ │ │ └─promises::with_promise_domain(...) 23. │ │ │ └─domain$wrapSync(expr) 24. │ │ │ └─base::force(expr) 25. │ │ └─withr::with_options(...) 26. │ │ └─base::force(code) 27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env()) 28. ├─testthat::expect_silent(output$table_out_modal) at test-table_with_settings.R:51:7 29. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise) 30. │ ├─testthat (local) .capture(...) 31. │ │ ├─withr::with_output_sink(...) 32. │ │ │ └─base::force(code) 33. │ │ ├─base::withCallingHandlers(...) 34. │ │ └─base::withVisible(code) 35. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo)) 36. ├─output$table_out_modal 37. ├─shiny:::`$.shinyoutput`(output, table_out_modal) 38. │ └─.subset2(x, "impl")$getOutput(name) 39. │ └─base::stop(v$err) 40. └─shiny (local) `<fn>`(`<smplErrr>`) ── Error ('test-table_with_settings.R:65:9'): type_download_srv_table: downloading different output types, custom name ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─shiny::testServer(...) at test-table_with_settings.R:57:3 2. │ ├─shiny:::withMockContext(...) 3. │ │ ├─shiny::isolate(...) 4. │ │ │ ├─shiny::..stacktraceoff..(...) 5. │ │ │ └─ctx$run(...) 6. │ │ │ ├─promises::with_promise_domain(...) 7. │ │ │ │ └─domain$wrapSync(expr) 8. │ │ │ ├─shiny::withReactiveDomain(...) 9. │ │ │ │ └─promises::with_promise_domain(...) 10. │ │ │ │ └─domain$wrapSync(expr) 11. │ │ │ │ └─base::force(expr) 12. │ │ │ ├─shiny:::with_otel_span_context(...) 13. │ │ │ │ └─base::force(expr) 14. │ │ │ ├─shiny::captureStackTraces(...) 15. │ │ │ │ └─promises::with_promise_domain(...) 16. │ │ │ │ └─domain$wrapSync(expr) 17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack) 18. │ │ │ └─env$runWith(self, func) 19. │ │ │ └─shiny (local) contextFunc() 20. │ │ │ └─shiny::..stacktraceon..(expr) 21. │ │ ├─shiny::withReactiveDomain(...) 22. │ │ │ └─promises::with_promise_domain(...) 23. │ │ │ └─domain$wrapSync(expr) 24. │ │ │ └─base::force(expr) 25. │ │ └─withr::with_options(...) 26. │ │ └─base::force(code) 27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env()) 28. ├─testthat::expect_true(file.exists(output$data_download)) at test-table_with_settings.R:65:9 29. │ └─testthat::quasi_label(enquo(object), label) 30. │ └─rlang::eval_bare(expr, quo_get_env(quo)) 31. ├─base::file.exists(output$data_download) 32. ├─output$data_download 33. ├─shiny:::`$.shinyoutput`(output, data_download) 34. │ └─.subset2(x, "impl")$getOutput(name) 35. │ └─private$renderFile(self$ns(name), download) 36. │ └─download$content(file) 37. │ ├─rtables::export_as_txt(...) 38. │ │ └─formatters:::.is_list_of_tables_or_listings(x) 39. │ │ └─methods::is(a_list, "list") 40. │ └─shiny (local) table_reactive() 41. │ └─base::stop(.value) 42. └─shiny (local) `<fn>`(`<smplErrr>`) ── Error ('test-table_with_settings.R:83:9'): type_download_srv_table: downloading different output types, no name ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─shiny::testServer(...) at test-table_with_settings.R:76:3 2. │ ├─shiny:::withMockContext(...) 3. │ │ ├─shiny::isolate(...) 4. │ │ │ ├─shiny::..stacktraceoff..(...) 5. │ │ │ └─ctx$run(...) 6. │ │ │ ├─promises::with_promise_domain(...) 7. │ │ │ │ └─domain$wrapSync(expr) 8. │ │ │ ├─shiny::withReactiveDomain(...) 9. │ │ │ │ └─promises::with_promise_domain(...) 10. │ │ │ │ └─domain$wrapSync(expr) 11. │ │ │ │ └─base::force(expr) 12. │ │ │ ├─shiny:::with_otel_span_context(...) 13. │ │ │ │ └─base::force(expr) 14. │ │ │ ├─shiny::captureStackTraces(...) 15. │ │ │ │ └─promises::with_promise_domain(...) 16. │ │ │ │ └─domain$wrapSync(expr) 17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack) 18. │ │ │ └─env$runWith(self, func) 19. │ │ │ └─shiny (local) contextFunc() 20. │ │ │ └─shiny::..stacktraceon..(expr) 21. │ │ ├─shiny::withReactiveDomain(...) 22. │ │ │ └─promises::with_promise_domain(...) 23. │ │ │ └─domain$wrapSync(expr) 24. │ │ │ └─base::force(expr) 25. │ │ └─withr::with_options(...) 26. │ │ └─base::force(code) 27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env()) 28. ├─testthat::expect_true(file.exists(output$data_download)) at test-table_with_settings.R:83:9 29. │ └─testthat::quasi_label(enquo(object), label) 30. │ └─rlang::eval_bare(expr, quo_get_env(quo)) 31. ├─base::file.exists(output$data_download) 32. ├─output$data_download 33. ├─shiny:::`$.shinyoutput`(output, data_download) 34. │ └─.subset2(x, "impl")$getOutput(name) 35. │ └─private$renderFile(self$ns(name), download) 36. │ └─download$content(file) 37. │ ├─rtables::export_as_txt(...) 38. │ │ └─formatters:::.is_list_of_tables_or_listings(x) 39. │ │ └─methods::is(a_list, "list") 40. │ └─shiny (local) table_reactive() 41. │ └─base::stop(.value) 42. └─shiny (local) `<fn>`(`<smplErrr>`) ── Error ('test-table_with_settings.R:102:9'): type_download_srv_table: downloading different output types, pagination ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─shiny::testServer(...) at test-table_with_settings.R:93:3 2. │ ├─shiny:::withMockContext(...) 3. │ │ ├─shiny::isolate(...) 4. │ │ │ ├─shiny::..stacktraceoff..(...) 5. │ │ │ └─ctx$run(...) 6. │ │ │ ├─promises::with_promise_domain(...) 7. │ │ │ │ └─domain$wrapSync(expr) 8. │ │ │ ├─shiny::withReactiveDomain(...) 9. │ │ │ │ └─promises::with_promise_domain(...) 10. │ │ │ │ └─domain$wrapSync(expr) 11. │ │ │ │ └─base::force(expr) 12. │ │ │ ├─shiny:::with_otel_span_context(...) 13. │ │ │ │ └─base::force(expr) 14. │ │ │ ├─shiny::captureStackTraces(...) 15. │ │ │ │ └─promises::with_promise_domain(...) 16. │ │ │ │ └─domain$wrapSync(expr) 17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack) 18. │ │ │ └─env$runWith(self, func) 19. │ │ │ └─shiny (local) contextFunc() 20. │ │ │ └─shiny::..stacktraceon..(expr) 21. │ │ ├─shiny::withReactiveDomain(...) 22. │ │ │ └─promises::with_promise_domain(...) 23. │ │ │ └─domain$wrapSync(expr) 24. │ │ │ └─base::force(expr) 25. │ │ └─withr::with_options(...) 26. │ │ └─base::force(code) 27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env()) 28. ├─testthat::expect_true(file.exists(output$data_download)) at test-table_with_settings.R:102:9 29. │ └─testthat::quasi_label(enquo(object), label) 30. │ └─rlang::eval_bare(expr, quo_get_env(quo)) 31. ├─base::file.exists(output$data_download) 32. ├─output$data_download 33. ├─shiny:::`$.shinyoutput`(output, data_download) 34. │ └─.subset2(x, "impl")$getOutput(name) 35. │ └─private$renderFile(self$ns(name), download) 36. │ └─download$content(file) 37. │ ├─rtables::export_as_txt(...) 38. │ │ └─formatters:::.is_list_of_tables_or_listings(x) 39. │ │ └─methods::is(a_list, "list") 40. │ └─shiny (local) table_reactive() 41. │ └─base::stop(.value) 42. └─shiny (local) `<fn>`(`<smplErrr>`) ── Error ('test-table_with_settings.R:121:9'): type_download_srv_table: pagination, lpp to small ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─shiny::testServer(...) at test-table_with_settings.R:113:3 2. │ ├─shiny:::withMockContext(...) 3. │ │ ├─shiny::isolate(...) 4. │ │ │ ├─shiny::..stacktraceoff..(...) 5. │ │ │ └─ctx$run(...) 6. │ │ │ ├─promises::with_promise_domain(...) 7. │ │ │ │ └─domain$wrapSync(expr) 8. │ │ │ ├─shiny::withReactiveDomain(...) 9. │ │ │ │ └─promises::with_promise_domain(...) 10. │ │ │ │ └─domain$wrapSync(expr) 11. │ │ │ │ └─base::force(expr) 12. │ │ │ ├─shiny:::with_otel_span_context(...) 13. │ │ │ │ └─base::force(expr) 14. │ │ │ ├─shiny::captureStackTraces(...) 15. │ │ │ │ └─promises::with_promise_domain(...) 16. │ │ │ │ └─domain$wrapSync(expr) 17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack) 18. │ │ │ └─env$runWith(self, func) 19. │ │ │ └─shiny (local) contextFunc() 20. │ │ │ └─shiny::..stacktraceon..(expr) 21. │ │ ├─shiny::withReactiveDomain(...) 22. │ │ │ └─promises::with_promise_domain(...) 23. │ │ │ └─domain$wrapSync(expr) 24. │ │ │ └─base::force(expr) 25. │ │ └─withr::with_options(...) 26. │ │ └─base::force(code) 27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env()) 28. ├─testthat::expect_error(output$data_download, "Lines of repeated context") at test-table_with_settings.R:121:9 29. │ └─testthat:::expect_condition_matching_(...) 30. │ └─testthat:::quasi_capture(...) 31. │ ├─testthat (local) .capture(...) 32. │ │ └─base::withCallingHandlers(...) 33. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo)) 34. ├─output$data_download 35. ├─shiny:::`$.shinyoutput`(output, data_download) 36. │ └─.subset2(x, "impl")$getOutput(name) 37. │ └─private$renderFile(self$ns(name), download) 38. │ └─download$content(file) 39. │ ├─rtables::export_as_txt(...) 40. │ │ └─formatters:::.is_list_of_tables_or_listings(x) 41. │ │ └─methods::is(a_list, "list") 42. │ └─shiny (local) table_reactive() 43. │ └─base::stop(.value) 44. └─shiny (local) `<fn>`(`<smplErrr>`) ── Error ('test-table_with_settings.R:135:7'): type_download_srv_table: content of the table, csv ── Error in `(function (cond) .Internal(C_tryCatchHelper(addr, 1L, cond)))(structure(list(message = "'arg' must be of length 1", call = match.arg(round_type)), class = c("simpleError", "error", "condition")))`: error in evaluating the argument 'obj' in selecting a method for function 'matrix_form': 'arg' must be of length 1 Backtrace: ▆ 1. ├─shiny::testServer(...) at test-table_with_settings.R:128:3 2. │ ├─shiny:::withMockContext(...) 3. │ │ ├─shiny::isolate(...) 4. │ │ │ ├─shiny::..stacktraceoff..(...) 5. │ │ │ └─ctx$run(...) 6. │ │ │ ├─promises::with_promise_domain(...) 7. │ │ │ │ └─domain$wrapSync(expr) 8. │ │ │ ├─shiny::withReactiveDomain(...) 9. │ │ │ │ └─promises::with_promise_domain(...) 10. │ │ │ │ └─domain$wrapSync(expr) 11. │ │ │ │ └─base::force(expr) 12. │ │ │ ├─shiny:::with_otel_span_context(...) 13. │ │ │ │ └─base::force(expr) 14. │ │ │ ├─shiny::captureStackTraces(...) 15. │ │ │ │ └─promises::with_promise_domain(...) 16. │ │ │ │ └─domain$wrapSync(expr) 17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack) 18. │ │ │ └─env$runWith(self, func) 19. │ │ │ └─shiny (local) contextFunc() 20. │ │ │ └─shiny::..stacktraceon..(expr) 21. │ │ ├─shiny::withReactiveDomain(...) 22. │ │ │ └─promises::with_promise_domain(...) 23. │ │ │ └─domain$wrapSync(expr) 24. │ │ │ └─base::force(expr) 25. │ │ └─withr::with_options(...) 26. │ │ └─base::force(code) 27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env()) 28. ├─utils::read.csv(output$data_download) at test-table_with_settings.R:135:7 29. │ └─utils::read.table(...) 30. ├─output$data_download 31. ├─shiny:::`$.shinyoutput`(output, data_download) 32. │ └─.subset2(x, "impl")$getOutput(name) 33. │ └─private$renderFile(self$ns(name), download) 34. │ └─download$content(file) 35. │ ├─rtables::matrix_form(table_reactive()) 36. │ └─shiny (local) table_reactive() 37. │ └─base::stop(.value) 38. ├─base (local) `<fn>`(`<smplErrr>`) 39. └─base::.handleSimpleError(...) 40. └─shiny (local) h(simpleError(msg, call)) ── Error ('test-table_with_settings.R:158:7'): type_download_srv_table: content of the table, txt ── Error in `match.arg(round_type)`: 'arg' must be of length 1 Backtrace: ▆ 1. ├─shiny::testServer(...) at test-table_with_settings.R:151:3 2. │ ├─shiny:::withMockContext(...) 3. │ │ ├─shiny::isolate(...) 4. │ │ │ ├─shiny::..stacktraceoff..(...) 5. │ │ │ └─ctx$run(...) 6. │ │ │ ├─promises::with_promise_domain(...) 7. │ │ │ │ └─domain$wrapSync(expr) 8. │ │ │ ├─shiny::withReactiveDomain(...) 9. │ │ │ │ └─promises::with_promise_domain(...) 10. │ │ │ │ └─domain$wrapSync(expr) 11. │ │ │ │ └─base::force(expr) 12. │ │ │ ├─shiny:::with_otel_span_context(...) 13. │ │ │ │ └─base::force(expr) 14. │ │ │ ├─shiny::captureStackTraces(...) 15. │ │ │ │ └─promises::with_promise_domain(...) 16. │ │ │ │ └─domain$wrapSync(expr) 17. │ │ │ │ └─base::withCallingHandlers(expr, error = doCaptureStack) 18. │ │ │ └─env$runWith(self, func) 19. │ │ │ └─shiny (local) contextFunc() 20. │ │ │ └─shiny::..stacktraceon..(expr) 21. │ │ ├─shiny::withReactiveDomain(...) 22. │ │ │ └─promises::with_promise_domain(...) 23. │ │ │ └─domain$wrapSync(expr) 24. │ │ │ └─base::force(expr) 25. │ │ └─withr::with_options(...) 26. │ │ └─base::force(code) 27. │ └─rlang::eval_tidy(quosure, mask, rlang::caller_env()) 28. ├─utils::read.delim(output$data_download, sep = "") at test-table_with_settings.R:158:7 29. │ └─utils::read.table(...) 30. ├─output$data_download 31. ├─shiny:::`$.shinyoutput`(output, data_download) 32. │ └─.subset2(x, "impl")$getOutput(name) 33. │ └─private$renderFile(self$ns(name), download) 34. │ └─download$content(file) 35. │ ├─rtables::export_as_txt(...) 36. │ │ └─formatters:::.is_list_of_tables_or_listings(x) 37. │ │ └─methods::is(a_list, "list") 38. │ └─shiny (local) table_reactive() 39. │ └─base::stop(.value) 40. └─shiny (local) `<fn>`(`<smplErrr>`) [ FAIL 9 | WARN 0 | SKIP 30 | PASS 225 ] 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.