Last updated on 2025-12-28 01:49:09 CET.
| Package | ERROR | OK |
|---|---|---|
| flexlsx | 1 | 12 |
Current CRAN status: ERROR: 1, OK: 12
Version: 0.3.5
Check: examples
Result: ERROR
Running examples in 'flexlsx-Ex.R' failed
The error most likely occurred in:
> ### Name: wb_add_flextable
> ### Title: Adds a flextable to an openxlsx2 workbook sheet
> ### Aliases: wb_add_flextable
>
> ### ** Examples
>
>
> if (requireNamespace("flextable", quietly = TRUE)) {
+ # Create a flextable
+ ft <- flextable::as_flextable(table(mtcars[, c("am", "cyl")]))
+
+ # Create a workbook
+ wb <- openxlsx2::wb_workbook()$add_worksheet("mtcars")
+
+ # Add flextable to workbook
+ wb <- wb_add_flextable(wb, "mtcars", ft)
+
+ # Workbook can now be saved wb$save(),
+ # opened wb$open() - or removed
+ rm(wb)
+ }
Error in `[.data.table`(as.data.table(x), , `:=`(c("cts"), .N), by = c(columns, :
attempt access index 9/9 in VECTOR_ELT
Calls: <Anonymous> ... as_flextable.table -> proc_freq -> tabulator -> [ -> [.data.table
Execution halted
Flavor: r-devel-windows-x86_64
Version: 0.3.5
Check: tests
Result: ERROR
Running 'testthat.R' [21s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
> # This file is part of the standard setup for testthat.
> # It is recommended that you do not modify it.
> #
> # Where should you do additional test configuration?
> # Learn more about the roles of various files in:
> # * https://r-pkgs.org/tests.html
> # * https://testthat.r-lib.org/reference/test_package.html#special-files
>
> library(testthat)
> library(flexlsx)
>
> test_check("flexlsx")
Saving _problems/test-ft_to_style-5.R
Saving _problems/test-ft_to_style-24.R
Saving _problems/test-wb_add_flextable-142.R
Saving _problems/test-wb_add_flextable-178.R
[ FAIL 4 | WARN 0 | SKIP 2 | PASS 46 ]
══ Skipped tests (2) ═══════════════════════════════════════════════════════════
• Sys.getenv("flexlsxtestdir") == "" is TRUE (2):
'test-wb_add_flextable.R:408:3', 'test-wb_add_flextable.R:430:3'
══ Failed tests ════════════════════════════════════════════════════════════════
── Error ('test-ft_to_style.R:5:3'): ft_to_style_tibble does not break ─────────
Error in ``[.data.table`(as.data.table(x), , `:=`(c("cts"), .N), by = c(columns, rows))`: attempt access index 9/9 in VECTOR_ELT
Backtrace:
▆
1. ├─flextable::as_flextable(table(mtcars[, 1:2])) at test-ft_to_style.R:5:3
2. └─flextable:::as_flextable.table(table(mtcars[, 1:2]))
3. └─flextable::proc_freq(...)
4. └─flextable::tabulator(...)
5. ├─as.data.table(x)[, `:=`(c("cts"), .N), by = c(columns, rows)]
6. └─data.table:::`[.data.table`(...)
── Error ('test-ft_to_style.R:24:3'): ft_to_style_tibble does not break with offsets ──
Error in ``[.data.table`(as.data.table(x), , `:=`(c("cts"), .N), by = c(columns, rows))`: attempt access index 9/9 in VECTOR_ELT
Backtrace:
▆
1. ├─flextable::as_flextable(table(mtcars[, 1:2])) at test-ft_to_style.R:24:3
2. └─flextable:::as_flextable.table(table(mtcars[, 1:2]))
3. └─flextable::proc_freq(...)
4. └─flextable::tabulator(...)
5. ├─as.data.table(x)[, `:=`(c("cts"), .N), by = c(columns, rows)]
6. └─data.table:::`[.data.table`(...)
── Error ('test-wb_add_flextable.R:142:3'): using openxlsx2::current_sheet() works ──
Error in ``[.data.table`(as.data.table(x), , `:=`(c("cts"), .N), by = c(columns, rows))`: attempt access index 9/9 in VECTOR_ELT
Backtrace:
▆
1. ├─flextable::as_flextable(table(mtcars[, 1:2])) at test-wb_add_flextable.R:142:3
2. └─flextable:::as_flextable.table(table(mtcars[, 1:2]))
3. └─flextable::proc_freq(...)
4. └─flextable::tabulator(...)
5. ├─as.data.table(x)[, `:=`(c("cts"), .N), by = c(columns, rows)]
6. └─data.table:::`[.data.table`(...)
── Error ('test-wb_add_flextable.R:178:3'): When sheet does not exists throws an error ──
Error in ``[.data.table`(as.data.table(x), , `:=`(c("cts"), .N), by = c(columns, rows))`: attempt access index 9/9 in VECTOR_ELT
Backtrace:
▆
1. ├─flextable::as_flextable(table(mtcars[, 1:2])) at test-wb_add_flextable.R:178:3
2. └─flextable:::as_flextable.table(table(mtcars[, 1:2]))
3. └─flextable::proc_freq(...)
4. └─flextable::tabulator(...)
5. ├─as.data.table(x)[, `:=`(c("cts"), .N), by = c(columns, rows)]
6. └─data.table:::`[.data.table`(...)
[ FAIL 4 | WARN 0 | SKIP 2 | PASS 46 ]
Error:
! Test failures.
Execution halted
Flavor: r-devel-windows-x86_64
These binaries (installable software) and packages are in development.
They may not be fully stable and should be used with caution. We make no claims about them.
Health stats visible at Monitor.