Running 'testthat.R' [78s]
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
  [WARNING] This document format requires a nonempty <title> element.
    Defaulting to 'report.knit' as the title.
    To specify a title, use 'title' in metadata or --metadata title="...".
  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
  [WARNING] This document format requires a nonempty <title> element.
    Defaulting to 'report.knit' as the title.
    To specify a title, use 'title' in metadata or --metadata title="...".
  [WARNING] This document format requires a nonempty <title> element.
    Defaulting to 'report.knit' as the title.
    To specify a title, use 'title' in metadata or --metadata title="...".
  [WARNING] This document format requires a nonempty <title> element.
    Defaulting to 'report.knit' as the title.
    To specify a title, use 'title' in metadata or --metadata title="...".
  [WARNING] This document format requires a nonempty <title> element.
    Defaulting to 'report.knit' as the title.
    To specify a title, use 'title' in metadata or --metadata title="...".
  [WARNING] This document format requires a nonempty <title> element.
    Defaulting to 'report.knit' as the title.
    To specify a title, use 'title' in metadata or --metadata title="...".
  [WARNING] This document format requires a nonempty <title> element.
    Defaulting to 'report.knit' as the title.
    To specify a title, use 'title' in metadata or --metadata title="...".
  [WARNING] This document format requires a nonempty <title> element.
    Defaulting to 'report.knit' as the title.
    To specify a title, use 'title' in metadata or --metadata title="...".
  [WARNING] This document format requires a nonempty <title> element.
    Defaulting to 'report.knit' as the title.
    To specify a title, use 'title' in metadata or --metadata title="...".
  [WARNING] This document format requires a nonempty <title> element.
    Defaulting to 'report.knit' as the title.
    To specify a title, use 'title' in metadata or --metadata title="...".
  [WARNING] This document format requires a nonempty <title> element.
    Defaulting to 'report.knit' as the title.
    To specify a title, use 'title' in metadata or --metadata title="...".
  [WARNING] This document format requires a nonempty <title> element.
    Defaulting to 'report.knit' as the title.
    To specify a title, use 'title' in metadata or --metadata title="...".
  [WARNING] This document format requires a nonempty <title> element.
    Defaulting to 'report.knit' as the title.
    To specify a title, use 'title' in metadata or --metadata title="...".
  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