Running ‘testthat.R’ [16s/22s]
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