Running ‘spelling.R’ [0s/1s]
  Running ‘testthat.R’ [47s/38s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(gtsummary)
  
  Attaching package: 'gtsummary'
  
  The following object is masked from 'package:testthat':
  
      matches
  
  > 
  > test_check("gtsummary")
  Starting 2 test processes
  [ FAIL 6 | WARN 3 | SKIP 74 | PASS 10 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • On CRAN (74)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-modify_column_indent.R:10:3'): modify_column_indent() works ────
  `tbl %>% render_as_html()` threw an unexpected error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  ── Error ('test-modify_column_merge.R:12:3'): modify_column_merge() works ──────
  `tbl %>% render_as_html()` threw an unexpected error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  ── Error ('test-modify_column_merge.R:14:3'): modify_column_merge() works ──────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-modify_column_merge.R:14:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─as_tibble(tbl, col_labels = FALSE) %>% dplyr::pull(estimate)
    5. ├─dplyr::pull(., estimate)
    6. ├─tibble::as_tibble(tbl, col_labels = FALSE)
    7. ├─gtsummary:::as_tibble.gtsummary(tbl, col_labels = FALSE)
    8. │ ├─gtsummary:::.eval_list_of_exprs(tibble_calls[include])
    9. │ │ └─exprs %>% unlist() %>% compact() %>% ...
   10. │ └─x$table_body %>% ...
   11. ├─purrr::reduce(., function(x, y) rlang::inject(!!x %>% !!y, env = env))
   12. │ └─purrr:::reduce_impl(.x, .f, ..., .init = .init, .dir = .dir)
   13. │   └─gtsummary (local) fn(out, elt, ...)
   14. │     └─rlang::inject(!!x %>% !!y, env = env)
   15. └─gtsummary (local) `<fn>`(...)
   16.   ├─base::`[<-`(`*tmp*`, row_numbers, columns, drop = FALSE, value = `<tibble[,1]>`)
   17.   └─tibble:::`[<-.tbl_df`(...)
   18.     └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   19.       └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   20.         ├─base::withCallingHandlers(...)
   21.         └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Failure ('test-as_hux_xlsx.R:7:3'): as_hux_xlsx() works ─────────────────────
  `... <- NULL` threw an unexpected error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test-as_hux_xlsx.R:7:2
    2. │ └─testthat:::expect_condition_matching(...)
    3. │   └─testthat:::quasi_capture(...)
    4. │     ├─testthat (local) .capture(...)
    5. │     │ └─base::withCallingHandlers(...)
    6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─gtsummary::as_hux_xlsx(...)
    8. │ ├─.eval_list_of_exprs(huxtable_calls) %>% ...
    9. │ ├─gtsummary:::.eval_list_of_exprs(huxtable_calls)
   10. │ │ └─exprs %>% unlist() %>% compact() %>% ...
   11. │ └─x$table_body %>% ...
   12. ├─huxtable::quick_xlsx(., file = file, open = FALSE)
   13. │ └─huxtable:::huxtableize(list(...), borders)
   14. │   └─base::lapply(...)
   15. ├─purrr::reduce(., function(x, y) rlang::inject(!!x %>% !!y, env = env))
   16. │ └─purrr:::reduce_impl(.x, .f, ..., .init = .init, .dir = .dir)
   17. │   └─gtsummary (local) fn(out, elt, ...)
   18. │     └─rlang::inject(!!x %>% !!y, env = env)
   19. └─gtsummary (local) `<fn>`(...)
   20.   ├─base::`[<-`(`*tmp*`, row_numbers, columns, drop = FALSE, value = `<tibble[,1]>`)
   21.   └─tibble:::`[<-.tbl_df`(...)
   22.     └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   23.       └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   24.         ├─base::withCallingHandlers(...)
   25.         └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Failure ('test-as_hux_xlsx.R:11:3'): as_hux_xlsx() works ────────────────────
  `... <- NULL` threw an unexpected error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test-as_hux_xlsx.R:11:2
    2. │ └─testthat:::expect_condition_matching(...)
    3. │   └─testthat:::quasi_capture(...)
    4. │     ├─testthat (local) .capture(...)
    5. │     │ └─base::withCallingHandlers(...)
    6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─gtsummary::as_hux_xlsx(...)
    8. │ ├─.eval_list_of_exprs(huxtable_calls) %>% ...
    9. │ ├─gtsummary:::.eval_list_of_exprs(huxtable_calls)
   10. │ │ └─exprs %>% unlist() %>% compact() %>% ...
   11. │ └─x$table_body %>% ...
   12. ├─huxtable::quick_xlsx(., file = file, open = FALSE)
   13. │ └─huxtable:::huxtableize(list(...), borders)
   14. │   └─base::lapply(...)
   15. ├─purrr::reduce(., function(x, y) rlang::inject(!!x %>% !!y, env = env))
   16. │ └─purrr:::reduce_impl(.x, .f, ..., .init = .init, .dir = .dir)
   17. │   └─gtsummary (local) fn(out, elt, ...)
   18. │     └─rlang::inject(!!x %>% !!y, env = env)
   19. └─gtsummary (local) `<fn>`(...)
   20.   ├─base::`[<-`(`*tmp*`, row_numbers, columns, drop = FALSE, value = `<tibble[,1]>`)
   21.   └─tibble:::`[<-.tbl_df`(...)
   22.     └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   23.       └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   24.         ├─base::withCallingHandlers(...)
   25.         └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-tbl_butcher.R:7:3'): tbl_butcher() works ───────────────────────
  `tbl_sml %>% render_as_html()` threw an unexpected error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  
  [ FAIL 6 | WARN 3 | SKIP 74 | PASS 10 ]
  Error: Test failures
  Execution halted