inTextSummaryTable
Creation of in-Text Summary Table
v3.3.5
·
Sep 25, 2025
·
MIT + file LICENSE
Description
Creation of tables of summary statistics or counts for clinical data (for 'TLFs'). These tables can be exported as in-text table (with the 'flextable' package) for a Clinical Study Report (Word format) or a 'topline' presentation (PowerPoint format), or as interactive table (with the 'DT' package) to an html document for clinical data review.
Downloads
436
Last 30 days
7978th
436
Last 90 days
436
Last year
CRAN Check Status
1
ERROR
3
NOTE
10
OK
Show all 14 flavors
| Flavor | Status |
|---|---|
| r-devel-linux-x86_64-debian-clang | OK |
| r-devel-linux-x86_64-debian-gcc | ERROR |
| r-devel-linux-x86_64-fedora-clang | OK |
| r-devel-linux-x86_64-fedora-gcc | OK |
| r-devel-macos-arm64 | OK |
| r-devel-windows-x86_64 | OK |
| r-oldrel-macos-arm64 | NOTE |
| r-oldrel-macos-x86_64 | NOTE |
| r-oldrel-windows-x86_64 | NOTE |
| r-patched-linux-x86_64 | OK |
| r-release-linux-x86_64 | OK |
| r-release-macos-arm64 | OK |
| r-release-macos-x86_64 | OK |
| r-release-windows-x86_64 | OK |
Check details (15 non-OK)
OK
r-devel-linux-x86_64-debian-clang
*
ERROR
r-devel-linux-x86_64-debian-gcc
re-building of vignette outputs
Error(s) in re-building vignettes:
...
--- re-building ‘inTextSummaryTable-advanced.Rmd’ using rmarkdown
Quitting from inTextSummaryTable-advanced.Rmd:141-148 [export-flextable]
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
<error/rlang_error>
Error in `basename()`:
! a character vector argument expected
---
Backtrace:
▆
1. ├─inTextSummaryTable::export(summaryTable = summaryTable, outputType = "flextable")
2. └─inTextSummaryTable:::export.summaryTable(...)
3. └─inTextSummaryTable::exportSummaryStatisticsTable(...)
4. └─inTextSummaryTable (local) getFileForOutputType("data.frame-base", fileExt = "txt")
5. ├─base::which(file_ext(file) == fileExt)
6. └─tools::file_ext(file)
7. ├─base::ifelse(...)
8. ├─base::grepl("^(.*[^.]+.*)[.]([[:alnum:]]+)$", basename(x))
9. │ └─base::is.factor(x)
10. └─base::basename(x)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Error: processing vignette 'inTextSummaryTable-advanced.Rmd' failed with diagnostics:
a character vector argument expected
--- failed re-building ‘inTextSummaryTable-advanced.Rmd’
--- re-building ‘inTextSummaryTable-aesthetics.Rmd’ using rmarkdown
Quitting from inTextSummaryTable-aesthetics.Rmd:116-130 [aesthetics-defaultsReporting]
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
<error/rlang_error>
Error in `basename()`:
! a character vector argument expected
---
Backtrace:
▆
1. └─inTextSummaryTable::getSummaryStatisticsTable(...)
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: processing vignette 'inTextSummaryTable-aesthetics.Rmd' failed with diagnostics:
a character vector argument expected
--- failed re-building ‘inTextSummaryTable-aesthetics.Rmd’
--- re-building ‘inTextSummaryTable-createTables.Rmd’ using rmarkdown
Quitting from inTextSummaryTable-createTables.Rmd:106-110 [count-simple]
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
<error/rlang_error>
Error in `basename()`:
! a character vector argument expected
---
Backtrace:
▆
1. └─inTextSummaryTable::getSummaryStatisticsTable(data = dataSL)
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: processing vignette 'inTextSummaryTable-createTables.Rmd' failed with diagnostics:
a character vector argument expected
--- failed re-building ‘inTextSummaryTable-createTables.Rmd’
--- re-building ‘inTextSummaryTable-exportTables.Rmd’ using rmarkdown
Quitting from inTextSummaryTable-exportTables.Rmd:124-146 [outputType-flextable]
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
<error/rlang_error>
Error in `basename()`:
! a character vector argument expected
---
Backtrace:
▆
1. └─inTextSummaryTable::getSummaryStatisticsTable(...)
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: processing vignette 'inTextSummaryTable-exportTables.Rmd' failed with diagnostics:
a character vector argument expected
--- failed re-building ‘inTextSummaryTable-exportTables.Rmd’
--- re-building ‘inTextSummaryTable-introduction.Rmd’ using rmarkdown
--- finished re-building ‘inTextSummaryTable-introduction.Rmd’
--- re-building ‘inTextSummaryTable-standardTables.Rmd’ using rmarkdown
--- finished re-building ‘inTextSummaryTable-standardTables.Rmd’
--- re-building ‘inTextSummaryTable-visualization.Rmd’ using rmarkdown
--- finished re-building ‘inTextSummaryTable-visualization.Rmd’
SUMMARY: processing the following files failed:
‘inTextSummaryTable-advanced.Rmd’ ‘inTextSummaryTable-aesthetics.Rmd’
‘inTextSummaryTable-createTables.Rmd’
‘inTextSummaryTable-exportTables.Rmd’
Error: Vignette re-building failed.
Execution halted
ERROR
r-devel-linux-x86_64-debian-gcc
tests
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
OK
r-devel-linux-x86_64-fedora-clang
*
OK
r-devel-linux-x86_64-fedora-gcc
*
OK
r-devel-macos-arm64
*
OK
r-devel-windows-x86_64
*
NOTE
r-oldrel-macos-arm64
installed package size
installed size is 10.3Mb
sub-directories of 1Mb or more:
doc 9.8Mb
NOTE
r-oldrel-macos-x86_64
installed package size
installed size is 10.3Mb
sub-directories of 1Mb or more:
doc 9.8Mb
NOTE
r-oldrel-windows-x86_64
installed package size
installed size is 10.3Mb
sub-directories of 1Mb or more:
doc 9.8Mb
OK
r-patched-linux-x86_64
*
OK
r-release-linux-x86_64
*
OK
r-release-macos-arm64
*
OK
r-release-macos-x86_64
*
OK
r-release-windows-x86_64
*
Check History
ERROR 10 OK · 3 NOTE · 0 WARNING · 1 ERROR · 0 FAILURE Mar 9, 2026
ERROR
r-devel-linux-x86_64-debian-gcc
tests
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
NOTE
r-oldrel-macos-arm64
installed package size
installed size is 10.3Mb
sub-directories of 1Mb or more:
doc 9.8Mb
NOTE
r-oldrel-macos-x86_64
installed package size
installed size is 10.3Mb
sub-directories of 1Mb or more:
doc 9.8Mb
NOTE
r-oldrel-windows-x86_64
installed package size
installed size is 10.3Mb
sub-directories of 1Mb or more:
doc 9.8Mb
Reverse Dependencies (1)
suggests
Dependency Network
Version History
new
3.3.5
Mar 9, 2026