Running ‘testthat.R’ [283s/247s]
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(crosstable)
  
  Attaching package: 'crosstable'
  
  The following object is masked from 'package:testthat':
  
      matches
  
  > 
  > test_check("crosstable")
  Starting 2 test processes
  [ FAIL 14 | WARN 846 | SKIP 32 | PASS 324 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • On CRAN (18)
  • On Linux (13)
  • Run `test-officer > crosstables helpers` manually one in a while! (1)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-compact.R:67:5'): Compacting inside or outside as_flextable.crosstable gives the same result ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_identical(...) at test-compact.R:67:4
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─flextable::as_flextable(ct1)
    5. └─crosstable:::as_flextable.crosstable(ct1)
    6.   ├─base::`[<-`(...)
    7.   └─tibble:::`[<-.tbl_df`(...)
    8.     └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
    9.       └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   10.         ├─base::withCallingHandlers(...)
   11.         └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-crosstable.R:7:3'): numeric+factor+surv by nothing ─────────────
  Error in `vectbl_assign(x[[j]], cells[[j]], value)`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. ├─x1 %>% as_flextable() at test-crosstable.R:7:2
   2. ├─flextable::as_flextable(.)
   3. └─crosstable:::as_flextable.crosstable(.)
   4.   └─base::replace(x, is.na(x), "NA")
   5.     ├─base::`[<-`(`*tmp*`, list, value = `<chr>`)
   6.     └─tibble:::`[<-.tbl_df`(`*tmp*`, list, value = `<chr>`)
   7.       └─tibble:::tbl_subassign_matrix(x, j, value, j_arg, substitute(value))
   8.         ├─base::withCallingHandlers(...)
   9.         └─tibble:::vectbl_assign(x[[j]], cells[[j]], value)
  ── Error ('test-labels.R:153:3'): Import labels: errors ────────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. ├─base::`[<-`(`*tmp*`, 4, , value = `<list>`) at test-labels.R:153:2
   2. └─tibble:::`[<-.tbl_df`(`*tmp*`, 4, , value = `<list>`) at test-labels.R:153:2
   3.   └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   4.     └─tibble:::tbl_subassign_row(xo, i, value, i_arg, value_arg, call)
   5.       ├─base::withCallingHandlers(...)
   6.       └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-officer.R:91:3'): crosstables: Double with effects ─────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% body_add_break() at test-officer.R:91:2
    2. ├─officer::body_add_break(.)
    3. │ └─officer::body_add_xml(x = x, str = str, pos = pos)
    4. │   └─officer::docx_current_block_xml(x)
    5. │     └─officer:::ooxml_on_cursor(x$officer_cursor, x$doc_obj$get())
    6. ├─crosstable::body_add_table_legend(., paste0(i, ", compacted before function"))
    7. │ ├─crosstable:::body_add_legend(...)
    8. │ │ └─officer::body_add_fpar(doc, legend_fpar, style = legend_style)
    9. │ └─base::getOption("crosstable_style_legend", doc$default_styles$paragraph)
   10. └─crosstable::body_add_crosstable(., ct_compact(ct), show_test_name = FALSE)
   11.   ├─flextable::as_flextable(x, ...)
   12.   └─crosstable:::as_flextable.crosstable(x, ...)
   13.     ├─base::`[<-`(...)
   14.     └─tibble:::`[<-.tbl_df`(...)
   15.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   16.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   17.           ├─base::withCallingHandlers(...)
   18.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-officer.R:117:3'): crosstables: Triple ─────────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% body_add_break() at test-officer.R:117:2
    2. ├─officer::body_add_break(.)
    3. │ └─officer::body_add_xml(x = x, str = str, pos = pos)
    4. │   └─officer::docx_current_block_xml(x)
    5. │     └─officer:::ooxml_on_cursor(x$officer_cursor, x$doc_obj$get())
    6. ├─crosstable::body_add_table_legend(., paste0(i, ", compacted before function"))
    7. │ ├─crosstable:::body_add_legend(...)
    8. │ │ └─officer::body_add_fpar(doc, legend_fpar, style = legend_style)
    9. │ └─base::getOption("crosstable_style_legend", doc$default_styles$paragraph)
   10. └─crosstable::body_add_crosstable(., ct_compact(ct), show_test_name = FALSE)
   11.   ├─flextable::as_flextable(x, ...)
   12.   └─crosstable:::as_flextable.crosstable(x, ...)
   13.     ├─base::`[<-`(...)
   14.     └─tibble:::`[<-.tbl_df`(...)
   15.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   16.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   17.           ├─base::withCallingHandlers(...)
   18.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-officer.R:308:3'): gt is working ───────────────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─crosstable::as_gt(x1) at test-officer.R:308:2
    2. ├─crosstable:::as_gt.crosstable(x1)
    3. │ └─... %>% ...
    4. └─gt::gt(., groupname_col = "groupname", rowname_col = "variable")
    5.   └─gt:::dt_stub_df_init(...)
    6.     └─gt:::dt_boxhead_set_stub(data = data, var = rowname_col)
    7.       ├─base::`[<-`(`*tmp*`, which(dt_boxhead$var == var), "type", value = `<chr>`)
    8.       └─tibble:::`[<-.tbl_df`(...)
    9.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   10.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   11.             ├─base::withCallingHandlers(...)
   12.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-options.R:5:1'): (code run outside of `test_that()`) ───────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─crosstable::as_gt(ct, generic_labels = list(value = "count")) at test-options.R:5:0
    2. ├─crosstable:::as_gt.crosstable(ct, generic_labels = list(value = "count"))
    3. │ └─... %>% ...
    4. └─gt::gt(., groupname_col = "groupname", rowname_col = "variable")
    5.   └─gt:::dt_stub_df_init(...)
    6.     └─gt:::dt_boxhead_set_stub(data = data, var = rowname_col)
    7.       ├─base::`[<-`(`*tmp*`, which(dt_boxhead$var == var), "type", value = `<chr>`)
    8.       └─tibble:::`[<-.tbl_df`(...)
    9.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   10.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   11.             ├─base::withCallingHandlers(...)
   12.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-by_factor.R:13:3'): showNA with NA in by ───────────────────────
  `{ ... }` threw an unexpected error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  ── Error ('test-by_factor.R:31:3'): showNA without NA in by ────────────────────
  `{ ... }` threw an unexpected error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  ── Error ('test-by_factor.R:51:3'): total ──────────────────────────────────────
  `{ ... }` threw an unexpected error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  ── Error ('test-by_factor.R:230:3'): By dummy ──────────────────────────────────
  `{ ... }` threw an unexpected error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  ── Error ('test-by_factor.R:238:3'): By dummy ──────────────────────────────────
  `{ ... }` threw an unexpected error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  ── Error ('test-by_factor.R:253:3'): By multiple ───────────────────────────────
  `{ ... }` threw an unexpected error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  ── Error ('test-tests.R:101:5'): Testing everything ────────────────────────────
  Error in `vectbl_assign(x[[j]], cells[[j]], value)`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. ├─flextable::as_flextable(x) at test-tests.R:101:4
   2. └─crosstable:::as_flextable.crosstable(x)
   3.   └─base::replace(x, is.na(x), "NA")
   4.     ├─base::`[<-`(`*tmp*`, list, value = `<chr>`)
   5.     └─tibble:::`[<-.tbl_df`(`*tmp*`, list, value = `<chr>`)
   6.       └─tibble:::tbl_subassign_matrix(x, j, value, j_arg, substitute(value))
   7.         ├─base::withCallingHandlers(...)
   8.         └─tibble:::vectbl_assign(x[[j]], cells[[j]], value)
  
  [ FAIL 14 | WARN 846 | SKIP 32 | PASS 324 ]
  Error: Test failures
  Execution halted