Running ‘testthat.R’ [43s/62s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(inTextSummaryTable)
  > 
  > test_check("inTextSummaryTable")
  Saving _problems/test_exportSummaryStatisticsTable-DT-17.R
  Saving _problems/test_exportSummaryStatisticsTable-DT-42.R
  Saving _problems/test_exportSummaryStatisticsTable-DT-58.R
  Saving _problems/test_exportSummaryStatisticsTable-DT-77.R
  Saving _problems/test_exportSummaryStatisticsTable-DT-98.R
  Saving _problems/test_exportSummaryStatisticsTable-DT-116.R
  Saving _problems/test_exportSummaryStatisticsTable-DT-138.R
  Saving _problems/test_exportSummaryStatisticsTable-DT-159.R
  Saving _problems/test_exportSummaryStatisticsTable-DT-181.R
  Saving _problems/test_exportSummaryStatisticsTable-DT-205.R
  Saving _problems/test_exportSummaryStatisticsTable-DT-234.R
  Saving _problems/test_exportSummaryStatisticsTable-DT-267.R
  Saving _problems/test_exportSummaryStatisticsTable-DT-291.R
  Saving _problems/test_exportSummaryStatisticsTable-DT-315.R
  Saving _problems/test_exportSummaryStatisticsTable-DT-334.R
  Saving _problems/test_exportSummaryStatisticsTable-DT-357.R
  Saving _problems/test_exportSummaryStatisticsTable-DT-383.R
  Saving _problems/test_exportSummaryStatisticsTable-DT-403.R
  Saving _problems/test_exportSummaryStatisticsTable-DT-431.R
  Saving _problems/test_exportSummaryStatisticsTable-DT-453.R
  Saving _problems/test_exportSummaryStatisticsTable-DT-475.R
  Saving _problems/test_exportSummaryStatisticsTable-DT-492.R
  Saving _problems/test_exportSummaryStatisticsTable-DT-505.R
  Saving _problems/test_exportSummaryStatisticsTable-DT-544.R
  Saving _problems/test_exportSummaryStatisticsTable-DT-602.R
  Saving _problems/test_exportSummaryStatisticsTable-DT-624.R
  Saving _problems/test_exportSummaryStatisticsTable-DT-647.R
  Saving _problems/test_exportSummaryStatisticsTable-DT-667.R
  Saving _problems/test_exportSummaryStatisticsTable-DT-694.R
  Saving _problems/test_exportSummaryStatisticsTable-DT-714.R
  Saving _problems/test_exportSummaryStatisticsTable-DT-728.R
  Saving _problems/test_exportSummaryStatisticsTable-DT-762.R
  Saving _problems/test_exportSummaryStatisticsTable-DT-810.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-38.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-74.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-101.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-125.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-145.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-165.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-224.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-265.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-290.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-312.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-337.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-361.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-387.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-414.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-435.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-460.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-483.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-511.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-554.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-601.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-657.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-673.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-692.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-714.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-741.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-774.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-804.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-824.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-842.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-864.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-891.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-909.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-937.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-961.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-995.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-1027.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-1047.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-1079.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-1110.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-1139.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-1157.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-1174.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-1190.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-1216.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-1231.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-1275.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-1291.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-1314.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-1337.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-1360.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-1383.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-1400.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-1413.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-1430.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-1470.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-1510.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-1545.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-1593.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-1768.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-1791.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-1821.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-1853.R
  Saving _problems/test_exportSummaryStatisticsTable-flextable-1887.R
  Saving _problems/test_getSummaryStatisticsTable-16.R
  Saving _problems/test_getSummaryStatisticsTable-57.R
  Saving _problems/test_getSummaryStatisticsTable-92.R
  Saving _problems/test_getSummaryStatisticsTable-112.R
  [ FAIL 104 | WARN 0 | SKIP 0 | PASS 834 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test_exportSummaryStatisticsTable-DT.R:13:2'): A summary table with a row variable is correctly exported to DataTables ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-DT.R:13:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-DT.R:35:2'): A warning is generated if a summary table is exported to DataTables with multiple nested row variables ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
       ▆
    1. ├─testthat::expect_warning(...) at test_exportSummaryStatisticsTable-DT.R:35:9
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─inTextSummaryTable::exportSummaryStatisticsTable(...)
    7.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
    8.     ├─base::which(file_ext(file) == fileExt)
    9.     └─tools::file_ext(file)
   10.       ├─base::ifelse(...)
   11.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   12.       │ └─base::is.factor(x)
   13.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-DT.R:53:2'): The specified labels of the row variables are correctly set in a DataTables summary table ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-DT.R:53:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-DT.R:72:2'): The labels of the row variables, extracted from the labels of all variables, are correctly set in a DataTables summary table ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-DT.R:72:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-DT.R:93:2'): A summary table with a row variable in a separated column is correctly exported to DataTables ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-DT.R:93:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-DT.R:112:2'): A summary table with a column variable is correctly exported to DataTables ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-DT.R:112:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-DT.R:133:2'): A summary table with totals in the header is correctly exported to DataTables ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-DT.R:133:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-DT.R:154:2'): A summary table without totals in the header is correctly exported to DataTables ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-DT.R:154:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-DT.R:176:2'): A summary table without column total is correctly exported to DataTables without totals in header ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-DT.R:176:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-DT.R:199:2'): A summary table with statistics in a separated column is correctly exported to DataTables ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-DT.R:199:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-DT.R:228:2'): A summary table with statistics in rows is correctly exported to DataTables ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-DT.R:228:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-DT.R:261:2'): A summary table with statistics in columns is correctly exported to DataTables ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-DT.R:261:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-DT.R:287:2'): The label for the statistic value is correctly set in a DataTables summary table ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-DT.R:287:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Failure ('test_exportSummaryStatisticsTable-DT.R:308:2'): An error is generated if the label for the statistic value is set to the default name in a DataTables summary table ──
  `exportSummaryStatisticsTable(...)` threw an error with unexpected message.
  Expected match: "'statsValueLab' should be different than 'Statistic'."
  Actual message: "a character vector argument expected"
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test_exportSummaryStatisticsTable-DT.R:308:9
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─inTextSummaryTable::exportSummaryStatisticsTable(...)
    7.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
    8.     ├─base::which(file_ext(file) == fileExt)
    9.     └─tools::file_ext(file)
   10.       ├─base::ifelse(...)
   11.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   12.       │ └─base::is.factor(x)
   13.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-DT.R:328:2'): A summary table with one statistic is correctly exported to DataTables with the statistic name ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-DT.R:328:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-DT.R:351:2'): A summary table with one statistic is correctly exported to DataTables without the statistic name ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-DT.R:351:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-DT.R:374:2'): A warning is generated if a DataTables summary table contain multiple statistics but the names are specified to be not included ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
       ▆
    1. ├─testthat::expect_warning(...) at test_exportSummaryStatisticsTable-DT.R:374:9
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─inTextSummaryTable::exportSummaryStatisticsTable(...)
    7.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
    8.     ├─base::which(file_ext(file) == fileExt)
    9.     └─tools::file_ext(file)
   10.       ├─base::ifelse(...)
   11.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   12.       │ └─base::is.factor(x)
   13.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-DT.R:398:2'): A placeholder for empty value is correctly included by default in a DataTables summary table ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-DT.R:398:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-DT.R:425:2'): A specified placeholder for empty value is correctly included in a DataTables summary table ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-DT.R:425:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-DT.R:449:2'): Multiple titles are correctly included in a DataTables summary table ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-DT.R:449:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-DT.R:471:2'): Multiple titles are correctly included in HTML format in a DataTables summary table ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-DT.R:471:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-DT.R:489:2'): A warning is generated if no data remain after filtering of the column totals in a DataTables summary table ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
       ▆
    1. ├─testthat::expect_warning(...) at test_exportSummaryStatisticsTable-DT.R:489:9
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─inTextSummaryTable::exportSummaryStatisticsTable(data, outputType = "DT")
    7.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
    8.     ├─base::which(file_ext(file) == fileExt)
    9.     └─tools::file_ext(file)
   10.       ├─base::ifelse(...)
   11.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   12.       │ └─base::is.factor(x)
   13.       └─base::basename(x)
  ── Failure ('test_exportSummaryStatisticsTable-DT.R:502:2'): An error is generated if a DataTables summary table contains multiple values for the column total but no column variables are specified ──
  `exportSummaryStatisticsTable(data, outputType = "DT")` threw an error with unexpected message.
  Expected match: "Multiple values for the header total .*"
  Actual message: "a character vector argument expected"
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test_exportSummaryStatisticsTable-DT.R:502:9
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─inTextSummaryTable::exportSummaryStatisticsTable(data, outputType = "DT")
    7.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
    8.     ├─base::which(file_ext(file) == fileExt)
    9.     └─tools::file_ext(file)
   10.       ├─base::ifelse(...)
   11.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   12.       │ └─base::is.factor(x)
   13.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-DT.R:538:2'): Variables are correctly expanded in a DataTables summary table ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-DT.R:538:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-DT.R:570:2'): A subset of the variables are correctly expanded in a DataTables summary table ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
       ▆
    1. ├─testthat::expect_silent(...) at test_exportSummaryStatisticsTable-DT.R:570:9
    2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ ├─withr::with_output_sink(...)
    5. │   │ │ └─base::force(code)
    6. │   │ ├─base::withCallingHandlers(...)
    7. │   │ └─base::withVisible(code)
    8. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    9. └─inTextSummaryTable::exportSummaryStatisticsTable(...)
   10.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   11.     ├─base::which(file_ext(file) == fileExt)
   12.     └─tools::file_ext(file)
   13.       ├─base::ifelse(...)
   14.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   15.       │ └─base::is.factor(x)
   16.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-DT.R:598:2'): Page length is correctly set in a DataTables summary table ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-DT.R:598:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-DT.R:619:2'): All variables of a summary table are correctly not (HTML) escaped when exported to DataTables ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-DT.R:619:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-DT.R:641:2'): One variable of a summary table is correctly not (HTML) escaped when exported to DataTables ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-DT.R:641:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-DT.R:663:2'): A specified parameter is correctly passed to datatable ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-DT.R:663:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-DT.R:686:2'): A warning is generated if a datatable parameter is already set via in-text specific parameters in a DataTables summary table ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
       ▆
    1. ├─testthat::expect_warning(...) at test_exportSummaryStatisticsTable-DT.R:686:9
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─inTextSummaryTable::exportSummaryStatisticsTable(...)
    7.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
    8.     ├─base::which(file_ext(file) == fileExt)
    9.     └─tools::file_ext(file)
   10.       ├─base::ifelse(...)
   11.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   12.       │ └─base::is.factor(x)
   13.       └─base::basename(x)
  ── Failure ('test_exportSummaryStatisticsTable-DT.R:707:2'): An error is generated if a specified parameter is not a datatable parameter in a DataTables summary table ──
  `exportSummaryStatisticsTable(...)` threw an error with unexpected message.
  Expected match: "unused argument"
  Actual message: "a character vector argument expected"
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test_exportSummaryStatisticsTable-DT.R:707:9
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─inTextSummaryTable::exportSummaryStatisticsTable(...)
    7.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
    8.     ├─base::which(file_ext(file) == fileExt)
    9.     └─tools::file_ext(file)
   10.       ├─base::ifelse(...)
   11.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   12.       │ └─base::is.factor(x)
   13.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-DT.R:725:2'): A list of summary tables is correctly exported to DataTables ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-DT.R:725:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-DT.R:758:2'): A list of summary tables with different titles is correctly exported to DataTables ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-DT.R:758:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-DT.R:804:2'): A variable is successfully visualized as a colored bar in a DataTables summary table ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-DT.R:804:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:12:2'): A summary table with a row variable is correctly exported to flextable ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
       ▆
    1. ├─testthat::expect_silent(...) at test_exportSummaryStatisticsTable-flextable.R:12:9
    2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ ├─withr::with_output_sink(...)
    5. │   │ │ └─base::force(code)
    6. │   │ ├─base::withCallingHandlers(...)
    7. │   │ └─base::withVisible(code)
    8. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    9. └─inTextSummaryTable::exportSummaryStatisticsTable(...)
   10.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   11.     ├─base::which(file_ext(file) == fileExt)
   12.     └─tools::file_ext(file)
   13.       ├─base::ifelse(...)
   14.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   15.       │ └─base::is.factor(x)
   16.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:35:2'): Multiple row variables are nested correctly in a flextable summary table ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-flextable.R:35:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:70:2'): Padding is correctly set for nested row variables in a flextable summary table ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-flextable.R:70:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:97:2'): Horizontal lines are correctly set for nested row variables in a flextable summary table ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-flextable.R:97:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:121:2'): The specified labels of the row variables are correctly set in a flextable summary table ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-flextable.R:121:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:141:4'): The labels of the row variables, extracted from the labels of all variables, are correctly set in a flextable summary table ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
       ▆
    1. ├─testthat::expect_identical(...) at test_exportSummaryStatisticsTable-flextable.R:139:9
    2. │ └─testthat::quasi_label(enquo(object), label)
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-flextable.R:141:25
    5.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
    6.     ├─base::which(file_ext(file) == fileExt)
    7.     └─tools::file_ext(file)
    8.       ├─base::ifelse(...)
    9.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   10.       │ └─base::is.factor(x)
   11.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:161:2'): Row variables in a separated column are merged correctly in a flextable summary table ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-flextable.R:161:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:219:2'): Nested and merged row variables are displayed correctly in a flextable summary table ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-flextable.R:219:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:258:2'): Horizontal lines are correctly set for multiple row variables in a separated column in a flextable summary table ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
       ▆
    1. ├─testthat::expect_warning(...) at test_exportSummaryStatisticsTable-flextable.R:258:9
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─inTextSummaryTable::exportSummaryStatisticsTable(...)
    7.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
    8.     ├─base::which(file_ext(file) == fileExt)
    9.     └─tools::file_ext(file)
   10.       ├─base::ifelse(...)
   11.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   12.       │ └─base::is.factor(x)
   13.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:286:2'): Custom formatting is correctly set to a row variable in a flextable summary table ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-flextable.R:286:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:308:2'): Custom formatting is correctly set to a nested row variable in a flextable summary table ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-flextable.R:308:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:332:2'): Custom formatting is correctly set to a row variable in a different column in a flextable summary table ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-flextable.R:332:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:357:2'): Row totals are correctly included in the header row in a flextable summary table ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-flextable.R:357:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:382:2'): Row totals are correctly included in separated rows in a flextable summary table ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-flextable.R:382:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:410:2'): The variable group and name are correctly merged in a flextable summary table in case of unique group ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-flextable.R:410:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:431:2'): The variable group and name are correctly included in different rows when requested in a flextable summary table in case of unique group ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-flextable.R:431:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:455:2'): The variable name and the statistic are correctly merged in a flextable summary table in case of unique statistic ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-flextable.R:455:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:478:2'): The variable name and the statistic are correctly included in different rows when requested in a flextable summary table in case of unique statistic ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-flextable.R:478:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:507:2'): A summary table with a continuous and a categorical variables is correctly exported to flextable ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-flextable.R:507:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:548:2'): A summary table with a continuous and a categorical variables is correctly exported without row merging to flextable ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-flextable.R:548:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:597:2'): A summary table with a continuous and a categorical variable, with and without named statistic, is correctly exported to flextable ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-flextable.R:597:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:631:2'): A summary table with a column variable is correctly exported to flextable ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
       ▆
    1. ├─testthat::expect_silent(...) at test_exportSummaryStatisticsTable-flextable.R:631:9
    2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ ├─withr::with_output_sink(...)
    5. │   │ │ └─base::force(code)
    6. │   │ ├─base::withCallingHandlers(...)
    7. │   │ └─base::withVisible(code)
    8. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    9. └─inTextSummaryTable::exportSummaryStatisticsTable(...)
   10.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   11.     ├─base::which(file_ext(file) == fileExt)
   12.     └─tools::file_ext(file)
   13.       ├─base::ifelse(...)
   14.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   15.       │ └─base::is.factor(x)
   16.       └─base::basename(x)
  ── Failure ('test_exportSummaryStatisticsTable-flextable.R:651:2'): An error is generated if a flextable summary table contains multiple records for the same variable ──
  `exportSummaryStatisticsTable(summaryTable = summaryTable, colVar = "TRT")` threw an error with unexpected message.
  Expected match: "Table formatting to multiple columns failed because of duplicated records for each row/col"
  Actual message: "a character vector argument expected"
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test_exportSummaryStatisticsTable-flextable.R:651:9
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─inTextSummaryTable::exportSummaryStatisticsTable(...)
    7.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
    8.     ├─base::which(file_ext(file) == fileExt)
    9.     └─tools::file_ext(file)
   10.       ├─base::ifelse(...)
   11.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   12.       │ └─base::is.factor(x)
   13.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:669:2'): A summary table without totals in the header is correctly exported to flextable ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-flextable.R:669:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:688:2'): A summary table without totals in the header is correctly exported to flextable ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-flextable.R:688:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:709:2'): A summary table with statistics in rows is correctly exported to flextable ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-flextable.R:709:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:736:2'): A summary table with statistics in columns is correctly exported to flextable ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-flextable.R:736:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:769:2'): A summary table with statistics in a separated column is correctly exported to flextable ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-flextable.R:769:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:800:2'): The label for the statistic value is correctly set in a flextable summary table ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-flextable.R:800:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Failure ('test_exportSummaryStatisticsTable-flextable.R:819:2'): An error is generated if the label for the statistic value is set to the default name in a flextable summary table ──
  `exportSummaryStatisticsTable(...)` threw an error with unexpected message.
  Expected match: "'statsValueLab' should be different than 'Statistic'."
  Actual message: "a character vector argument expected"
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test_exportSummaryStatisticsTable-flextable.R:819:9
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─inTextSummaryTable::exportSummaryStatisticsTable(...)
    7.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
    8.     ├─base::which(file_ext(file) == fileExt)
    9.     └─tools::file_ext(file)
   10.       ├─base::ifelse(...)
   11.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   12.       │ └─base::is.factor(x)
   13.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:837:2'): A summary table with one statistic is correctly exported to flextable with the statistic name ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-flextable.R:837:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:859:2'): A summary table with one statistic is correctly exported to flextable without the statistic name ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-flextable.R:859:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:883:2'): A warning is generated if a flextable summary table contain multiple statistics but the names are specified to be not included ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
       ▆
    1. ├─testthat::expect_warning(...) at test_exportSummaryStatisticsTable-flextable.R:883:9
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─inTextSummaryTable::exportSummaryStatisticsTable(...)
    7.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
    8.     ├─base::which(file_ext(file) == fileExt)
    9.     └─tools::file_ext(file)
   10.       ├─base::ifelse(...)
   11.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   12.       │ └─base::is.factor(x)
   13.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:905:2'): A placeholder for empty value is correctly included by default in a flextable summary table ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-flextable.R:905:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:932:2'): A specified placeholder for empty value is correctly included in a flextable summary table ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-flextable.R:932:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:958:2'): A list of summary tables is correctly exported to flextable ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-flextable.R:958:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:991:2'): A list of summary tables with different titles is correctly exported to flextable ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-flextable.R:991:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:1019:2'): A warning is generated if the variable group with totals is not formatted correctly in a flextable summary table ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
       ▆
    1. ├─testthat::expect_warning(...) at test_exportSummaryStatisticsTable-flextable.R:1019:9
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─inTextSummaryTable::exportSummaryStatisticsTable(...)
    7.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
    8.     ├─base::which(file_ext(file) == fileExt)
    9.     └─tools::file_ext(file)
   10.       ├─base::ifelse(...)
   11.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   12.       │ └─base::is.factor(x)
   13.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:1042:2'): A flextable summary table is correctly formatted if totals are included only for a subset of the categorical variables ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-flextable.R:1042:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:1073:2'): A flextable summary table is correctly formatted if totals are included only for a subset of the categorical variables in separated rows ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-flextable.R:1073:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:1106:2'): Missing values in nested row variables are correctly represented in a flextable summary table ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-flextable.R:1106:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:1134:2'): A summary table with only one element in nested row variable in a row variable is correctly exported to flextable ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-flextable.R:1134:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:1153:2'): Page dimension are correctly set in a flextable summary table ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-flextable.R:1153:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:1170:2'): Margins are correctly set in a flextable summary table ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-flextable.R:1170:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:1187:2'): A summary table is correctly exported to flextable in landscape mode ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-flextable.R:1187:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:1213:4'): Multiple titles are correctly included in a flextable summary table ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
       ▆
    1. ├─testthat::expect_identical(...) at test_exportSummaryStatisticsTable-flextable.R:1211:9
    2. │ └─testthat::quasi_label(enquo(object), label)
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-flextable.R:1213:25
    5.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
    6.     ├─base::which(file_ext(file) == fileExt)
    7.     └─tools::file_ext(file)
    8.       ├─base::ifelse(...)
    9.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   10.       │ └─base::is.factor(x)
   11.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:1228:2'): Footers are correctly included in a flextable summary table ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-flextable.R:1228:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:1250:2'): Colors are correctly set in a flextable summary table ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
       ▆
    1. ├─testthat::expect_silent(...) at test_exportSummaryStatisticsTable-flextable.R:1250:9
    2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ ├─withr::with_output_sink(...)
    5. │   │ │ └─base::force(code)
    6. │   │ ├─base::withCallingHandlers(...)
    7. │   │ └─base::withVisible(code)
    8. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    9. └─inTextSummaryTable::exportSummaryStatisticsTable(...)
   10.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   11.     ├─base::which(file_ext(file) == fileExt)
   12.     └─tools::file_ext(file)
   13.       ├─base::ifelse(...)
   14.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   15.       │ └─base::is.factor(x)
   16.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:1272:2'): Fontsize is correctly set in a flextable summary table ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-flextable.R:1272:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:1288:2'): Fontname is correctly set in a flextable summary table ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-flextable.R:1288:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:1309:2'): Vertical lines are not included in a flextable summary table when requested ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-flextable.R:1309:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:1332:2'): Vertical lines are correctly set in a flextable summary table ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-flextable.R:1332:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:1355:2'): Horizontal lines are not included in a flextable summary table when requested ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-flextable.R:1355:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:1378:2'): Horizontal lines are correctly set in a flextable summary table ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-flextable.R:1378:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:1397:2'): A warning is generated if no data remain after filtering of the column totals in a flextable summary table ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
       ▆
    1. ├─testthat::expect_warning(...) at test_exportSummaryStatisticsTable-flextable.R:1397:9
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─inTextSummaryTable::exportSummaryStatisticsTable(data)
    7.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
    8.     ├─base::which(file_ext(file) == fileExt)
    9.     └─tools::file_ext(file)
   10.       ├─base::ifelse(...)
   11.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   12.       │ └─base::is.factor(x)
   13.       └─base::basename(x)
  ── Failure ('test_exportSummaryStatisticsTable-flextable.R:1410:2'): An error is generated if a flextable summary table contains multiple values for the column total but no column variables are specified ──
  `exportSummaryStatisticsTable(data)` threw an error with unexpected message.
  Expected match: "Multiple values for the header total .*"
  Actual message: "a character vector argument expected"
  Backtrace:
       ▆
    1. ├─testthat::expect_error(exportSummaryStatisticsTable(data), regexp = "Multiple values for the header total .*") at test_exportSummaryStatisticsTable-flextable.R:1410:9
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─inTextSummaryTable::exportSummaryStatisticsTable(data)
    7.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
    8.     ├─base::which(file_ext(file) == fileExt)
    9.     └─tools::file_ext(file)
   10.       ├─base::ifelse(...)
   11.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   12.       │ └─base::is.factor(x)
   13.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:1426:2'): A superscript is correctly formatted in a flextable summary table ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-flextable.R:1426:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:1466:2'): A subscript is correctly formatted in a flextable summary table ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-flextable.R:1466:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:1506:2'): A cell is correctly formatted in bold in a flextable summary table ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-flextable.R:1506:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:1541:2'): A cell is correctly formatted with multiple same text formatting in a flextable summary table ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-flextable.R:1541:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:1589:2'): A cell is correctly formatted with multiple and different text formatting in a flextable summary table ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-flextable.R:1589:9
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:1756:2'): A flextable summary table is correctly styled for a report ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
       ▆
    1. ├─testthat::expect_identical(...) at test_exportSummaryStatisticsTable-flextable.R:1756:9
    2. │ └─testthat::quasi_label(enquo(object), label)
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─inTextSummaryTable::exportSummaryStatisticsTable(...)
    5.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
    6.     ├─base::which(file_ext(file) == fileExt)
    7.     └─tools::file_ext(file)
    8.       ├─base::ifelse(...)
    9.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   10.       │ └─base::is.factor(x)
   11.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:1776:2'): A flextable summary table is correctly styled for a presentation ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
       ▆
    1. ├─testthat::expect_identical(...) at test_exportSummaryStatisticsTable-flextable.R:1776:9
    2. │ └─testthat::quasi_label(enquo(object), label)
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─inTextSummaryTable::exportSummaryStatisticsTable(...)
    5.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
    6.     ├─base::which(file_ext(file) == fileExt)
    7.     └─tools::file_ext(file)
    8.       ├─base::ifelse(...)
    9.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   10.       │ └─base::is.factor(x)
   11.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:1815:3'): Column headers of a summary table with identical elements across consecutive columns or rows are correctly merged ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-flextable.R:1815:3
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:1849:3'): Column headers of a summary table with identical elements across consecutive columns and rows are correctly merged ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-flextable.R:1849:3
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_exportSummaryStatisticsTable-flextable.R:1881:3'): Column headers of a summary table are not merged if specified ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::exportSummaryStatisticsTable(...) at test_exportSummaryStatisticsTable-flextable.R:1881:3
   2.   └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   3.     ├─base::which(file_ext(file) == fileExt)
   4.     └─tools::file_ext(file)
   5.       ├─base::ifelse(...)
   6.       ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   7.       │ └─base::is.factor(x)
   8.       └─base::basename(x)
  ── Error ('test_getSummaryStatisticsTable.R:12:2'): Getting a summary table is identical to computing and exporting a summary table ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::getSummaryStatisticsTable(...) at test_getSummaryStatisticsTable.R:12:9
   2.   └─inTextSummaryTable::exportSummaryStatisticsTable(...)
   3.     └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   4.       ├─base::which(file_ext(file) == fileExt)
   5.       └─tools::file_ext(file)
   6.         ├─base::ifelse(...)
   7.         ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   8.         │ └─base::is.factor(x)
   9.         └─base::basename(x)
  ── Error ('test_getSummaryStatisticsTable.R:51:2'): A variable with subgroups and a flag variable are correctly combined when multiple statistics are set ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::getSummaryStatisticsTable(...) at test_getSummaryStatisticsTable.R:51:9
   2.   └─inTextSummaryTable::exportSummaryStatisticsTable(...)
   3.     └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   4.       ├─base::which(file_ext(file) == fileExt)
   5.       └─tools::file_ext(file)
   6.         ├─base::ifelse(...)
   7.         ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   8.         │ └─base::is.factor(x)
   9.         └─base::basename(x)
  ── Error ('test_getSummaryStatisticsTable.R:92:2'): The width of the columns is correctly set ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
      ▆
   1. └─inTextSummaryTable::getSummaryStatisticsTable(...) at test_getSummaryStatisticsTable.R:92:9
   2.   └─inTextSummaryTable::exportSummaryStatisticsTable(...)
   3.     └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
   4.       ├─base::which(file_ext(file) == fileExt)
   5.       └─tools::file_ext(file)
   6.         ├─base::ifelse(...)
   7.         ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   8.         │ └─base::is.factor(x)
   9.         └─base::basename(x)
  ── Error ('test_getSummaryStatisticsTable.R:106:2'): A warning is generated if the width of the columns is not correctly set ──
  Error in `basename(x)`: a character vector argument expected
  Backtrace:
       ▆
    1. ├─testthat::expect_warning(...) at test_getSummaryStatisticsTable.R:106:9
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─inTextSummaryTable::getSummaryStatisticsTable(...)
    7.   └─inTextSummaryTable::exportSummaryStatisticsTable(...)
    8.     └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
    9.       ├─base::which(file_ext(file) == fileExt)
   10.       └─tools::file_ext(file)
   11.         ├─base::ifelse(...)
   12.         ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
   13.         │ └─base::is.factor(x)
   14.         └─base::basename(x)
  
  [ FAIL 104 | WARN 0 | SKIP 0 | PASS 834 ]
  Error:
  ! Test failures.
  Execution halted