Running ‘testthat.R’ [30s/47s]
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(janitor)
  
  Attaching package: 'janitor'
  
  The following objects are masked from 'package:stats':
  
      chisq.test, fisher.test
  
  > 
  > test_check("janitor")
  [ FAIL 40 | WARN 10 | SKIP 1 | PASS 676 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • On CRAN (1)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-adorn-ns.R:9:3'): spacing is correct ───────────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-adorn-ns.R:9:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─... %>% untabyl()
    5. ├─janitor::untabyl(.)
    6. ├─janitor::adorn_ns(.)
    7. ├─janitor::adorn_pct_formatting(.)
    8. ├─janitor::adorn_percentages(., "all")
    9. └─janitor::adorn_totals(.)
   10.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<chr>`)
   11.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<chr>`)
   12.     └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   13.       └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   14.         ├─base::withCallingHandlers(...)
   15.         └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-adorn-ns.R:27:3'): front parameter 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-adorn-ns.R:27:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─... %>% untabyl()
    5. ├─janitor::untabyl(.)
    6. ├─janitor::adorn_ns(., "front")
    7. ├─janitor::adorn_pct_formatting(.)
    8. ├─janitor::adorn_percentages(., "all")
    9. └─janitor::adorn_totals(.)
   10.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<chr>`)
   11.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<chr>`)
   12.     └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   13.       └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   14.         ├─base::withCallingHandlers(...)
   15.         └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-adorn-ns.R:71:3'): attributes make it through unaltered ────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-adorn-ns.R:71:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─... %>% adorn_ns("front")
    5. ├─janitor::adorn_ns(., "front")
    6. ├─janitor::adorn_pct_formatting(.)
    7. ├─janitor::adorn_percentages(., "all")
    8. └─janitor::adorn_totals(.)
    9.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<chr>`)
   10.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<chr>`)
   11.     └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   12.       └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   13.         ├─base::withCallingHandlers(...)
   14.         └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-adorn-ns.R:226:3'): formatting function works, #444 ────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% ... at test-adorn-ns.R:226:2
    2. ├─janitor::adorn_ns(...)
    3. ├─janitor::adorn_pct_formatting(., digits = 1)
    4. ├─janitor::adorn_percentages(., "col")
    5. └─janitor::adorn_totals(., c("row", "col"))
    6.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<chr>`)
    7.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<chr>`)
    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-adorn-pct-formatting.R:40:3'): works with totals row ───────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-adorn-pct-formatting.R:40:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─... %>% untabyl()
    5. ├─janitor::untabyl(.)
    6. ├─janitor::adorn_percentages(., "col")
    7. └─janitor::adorn_totals(., "row")
    8.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<chr>`)
    9.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<chr>`)
   10.     └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   11.       └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   12.         ├─base::withCallingHandlers(...)
   13.         └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-adorn-percentages.R:45: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. ├─source1 %>% adorn_totals(c("row", "col")) at test-adorn-percentages.R:45:0
   2. └─janitor::adorn_totals(., c("row", "col"))
   3.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<chr>`)
   4.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<chr>`)
   5.     └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   6.       └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   7.         ├─base::withCallingHandlers(...)
   8.         └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-adorn-title.R:95:3'): works with non-count inputs ──────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-adorn-title.R:95:2
    2. │ └─testthat::quasi_label(enquo(expected), expected.label, arg = "expected")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─janitor::adorn_title(source2_tibble, col_name = "Characteristics")
    5.   ├─base::`[<-`(`*tmp*`, 1, , value = `<list>`)
    6.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, , value = `<list>`)
    7.     └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
    8.       └─tibble:::tbl_subassign_row(xo, i, value, i_arg, value_arg, call)
    9.         ├─base::withCallingHandlers(...)
   10.         └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-adorn-title.R:115:3'): for printing purposes: tabyl class stays tabyl, data.frame stays data.frame, tibble is downgraded to data.frame ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_s3_class(...) at test-adorn-title.R:115:2
    2. │ └─testthat::quasi_label(enquo(object), arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─mpg_by_cyl_and_am %>% ...
    5. └─janitor::adorn_title(., "top", "Cylinders", "Automatic?")
    6.   ├─base::`[<-`(`*tmp*`, 1, , value = `<list>`)
    7.   ├─dplyr:::`[<-.grouped_df`(`*tmp*`, 1, , value = `<list>`)
    8.   ├─base::NextMethod()
    9.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, , value = `<list>`)
   10.     └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   11.       └─tibble:::tbl_subassign_row(xo, i, value, i_arg, value_arg, call)
   12.         ├─base::withCallingHandlers(...)
   13.         └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-adorn-totals.R:17:3'): totals row is correct ───────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-adorn-totals.R:17:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─janitor::untabyl(adorn_totals(ct, "row"))
    5. └─janitor::adorn_totals(ct, "row")
    6.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<chr>`)
    7.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<chr>`)
    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-adorn-totals.R:44:3'): totals row and col produce correct results when called together ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-adorn-totals.R:44:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─ct %>% adorn_totals(c("row", "col")) %>% untabyl()
    5. ├─janitor::untabyl(.)
    6. └─janitor::adorn_totals(., c("row", "col"))
    7.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<chr>`)
    8.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<chr>`)
    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-adorn-totals.R:60:3'): totals where='both' produce equivalent results to c('row','col') ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-adorn-totals.R:60:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─ct %>% adorn_totals("both") %>% untabyl()
    5. ├─janitor::untabyl(.)
    6. └─janitor::adorn_totals(., "both")
    7.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<chr>`)
    8.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<chr>`)
    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-adorn-totals.R:71:3'): order doesn't matter when row and col are called together ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-adorn-totals.R:71:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─ct %>% adorn_totals(c("row", "col")) %>% untabyl()
    5. ├─janitor::untabyl(.)
    6. └─janitor::adorn_totals(., c("row", "col"))
    7.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<chr>`)
    8.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<chr>`)
    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]])
  ── Failure ('test-adorn-totals.R:86:3'): both functions work with a single column ──
  `single_col %>% adorn_totals("row")` threw an unexpected error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(single_col %>% adorn_totals("row"), NA) at test-adorn-totals.R:86: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. ├─single_col %>% adorn_totals("row")
    8. └─janitor::adorn_totals(., "row")
    9.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<chr>`)
   10.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<chr>`)
   11.     └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   12.       └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   13.         ├─base::withCallingHandlers(...)
   14.         └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Failure ('test-adorn-totals.R:88:3'): both functions work with a single column ──
  `single_col %>% adorn_totals(c("col", "row"))` threw an unexpected error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test-adorn-totals.R:88: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. ├─single_col %>% adorn_totals(c("col", "row"))
    8. └─janitor::adorn_totals(., c("col", "row"))
    9.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<chr>`)
   10.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<chr>`)
   11.     └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   12.       └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   13.         ├─base::withCallingHandlers(...)
   14.         └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-adorn-totals.R:132:3'): grouped_df gets ungrouped and succeeds ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-adorn-totals.R:132:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─ct_2 %>% adorn_totals()
    5. └─janitor::adorn_totals(.)
    6.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<chr>`)
    7.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<chr>`)
    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-adorn-totals.R:139:3'): na.rm value works correctly ────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-adorn-totals.R:139:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─df1 %>% adorn_totals(c("row", "col"), na.rm = FALSE) %>% ...
    5. ├─janitor::untabyl(.)
    6. └─janitor::adorn_totals(., c("row", "col"), na.rm = FALSE)
    7.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<chr>`)
    8.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<chr>`)
    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-adorn-totals.R:151:3'): add_totals respects if input was data.frame ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-adorn-totals.R:151:2
    2. │ └─testthat::quasi_label(enquo(expected), expected.label, arg = "expected")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─df1 %>% adorn_totals() %>% untabyl()
    5. ├─janitor::untabyl(.)
    6. └─janitor::adorn_totals(.)
    7.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<chr>`)
    8.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<chr>`)
    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-adorn-totals.R:158:3'): add_totals respects if input was tibble ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-adorn-totals.R:158:2
    2. │ └─testthat::quasi_label(enquo(expected), expected.label, arg = "expected")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─df1 %>% tibble::as_tibble() %>% adorn_totals() %>% untabyl()
    5. ├─janitor::untabyl(.)
    6. └─janitor::adorn_totals(.)
    7.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<chr>`)
    8.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<chr>`)
    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-adorn-totals.R:200:3'): works with non-numeric columns mixed in; fill character specification ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-adorn-totals.R:200:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─... %>% untabyl()
    5. ├─janitor::untabyl(.)
    6. └─janitor::adorn_totals(., where = c("row", "col"), fill = "*")
    7.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<chr>`)
    8.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<chr>`)
    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-adorn-totals.R:220:3'): fill works with multiple factor and date columns ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-adorn-totals.R:220:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─adorn_totals(has_facs, "row") %>% untabyl
    5. ├─janitor::untabyl(.)
    6. └─janitor::adorn_totals(has_facs, "row")
    7.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<chr>`)
    8.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<chr>`)
    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-adorn-totals.R:231:3'): totals attributes are assigned correctly ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. └─janitor::adorn_totals(ct, c("row", "col")) at test-adorn-totals.R:231:2
   2.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<chr>`)
   3.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<chr>`)
   4.     └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   5.       └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   6.         ├─base::withCallingHandlers(...)
   7.         └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-adorn-totals.R:257:3'): trying to re-adorn a dimension fails ───
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test-adorn-totals.R:257: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. ├─ct %>% adorn_totals() %>% adorn_totals()
    8. ├─janitor::adorn_totals(.)
    9. └─janitor::adorn_totals(.)
   10.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<chr>`)
   11.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<chr>`)
   12.     └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   13.       └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   14.         ├─base::withCallingHandlers(...)
   15.         └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-adorn-totals.R:265:3'): automatically invokes purrr::map when called on a 3-way tabyl ──
  <purrr_error_indexed/rlang_error/error/condition>
  Error in `purrr::map(dat, adorn_totals, where, fill, na.rm, name)`: i In index: 1.
  i With name: 3.
  Caused by error in `vectbl_assign()`:
  ! DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-adorn-totals.R:265:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─janitor::adorn_totals(three)
    5. │ └─purrr::map(dat, adorn_totals, where, fill, na.rm, name)
    6. │   └─purrr:::map_("list", .x, .f, ..., .progress = .progress)
    7. │     ├─purrr:::with_indexed_errors(...)
    8. │     │ └─base::withCallingHandlers(...)
    9. │     ├─purrr:::call_with_cleanup(...)
   10. │     └─janitor (local) .f(.x[[i]], ...)
   11. │       ├─base::`[<-`(`*tmp*`, 1, 1, value = `<chr>`)
   12. │       └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<chr>`)
   13. │         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   14. │           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   15. │             ├─base::withCallingHandlers(...)
   16. │             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   17. └─base::.handleSimpleError(...)
   18.   └─purrr (local) h(simpleError(msg, call))
   19.     └─cli::cli_abort(...)
   20.       └─rlang::abort(...)
  ── Error ('test-adorn-totals.R:282:3'): row total name is changed ──────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-adorn-totals.R:282:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─janitor::adorn_totals(ct, name = "NewTitle")
    5.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<chr>`)
    6.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<chr>`)
    7.     └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
    8.       └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
    9.         ├─base::withCallingHandlers(...)
   10.         └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-adorn-totals.R:296:3'): tidyselecting works ────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. ├─mtcars %>% ... at test-adorn-totals.R:296:2
   2. └─janitor::adorn_totals(...)
   3.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<chr>`)
   4.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<chr>`)
   5.     └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   6.       └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   7.         ├─base::withCallingHandlers(...)
   8.         └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-adorn-totals.R:354:3'): supplying NA to fill preserves column types ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. └─janitor::adorn_totals(test_df, fill = NA) at test-adorn-totals.R:354:2
   2.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<chr>`)
   3.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<chr>`)
   4.     └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   5.       └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   6.         ├─base::withCallingHandlers(...)
   7.         └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-adorn-totals.R:390:3'): supplying NA as fill still works with non-character first col and numeric non-totaled cols ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. └─janitor::adorn_totals(...) at test-adorn-totals.R:390:2
   2.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<chr>`)
   3.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<chr>`)
   4.     └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   5.       └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   6.         ├─base::withCallingHandlers(...)
   7.         └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-adorn-totals.R:405:3'): one_way tabyl inputs retain that class ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-adorn-totals.R:405:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─mtcars %>% tabyl(am) %>% adorn_totals("both")
    5. └─janitor::adorn_totals(., "both")
    6.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<chr>`)
    7.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<chr>`)
    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-adorn-totals.R:414:3'): long vectors are trimmed ───────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-adorn-totals.R:414:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─... %>% untabyl()
    5. ├─janitor::untabyl(.)
    6. └─janitor::adorn_totals(...)
    7.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<chr>`)
    8.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<chr>`)
    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-adorn-totals.R:432:3'): row and column names are taken correctly from a vector ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-adorn-totals.R:432:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─... %>% untabyl()
    5. ├─janitor::untabyl(.)
    6. └─janitor::adorn_totals(...)
    7.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<chr>`)
    8.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<chr>`)
    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-adorn-totals.R:451:3'): row and column names are taken correctly from a single name ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-adorn-totals.R:451:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─... %>% untabyl()
    5. ├─janitor::untabyl(.)
    6. └─janitor::adorn_totals(., where = "both", name = "totals", fill = "-")
    7.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<chr>`)
    8.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<chr>`)
    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-adorn-totals.R:486:3'): long vectors are trimmed ───────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-adorn-totals.R:486:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─... %>% untabyl()
    5. ├─janitor::untabyl(.)
    6. └─janitor::adorn_totals(...)
    7.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<chr>`)
    8.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<chr>`)
    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-adorn-totals.R:504:3'): row and column names are taken correctly from a vector ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-adorn-totals.R:504:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─... %>% untabyl()
    5. ├─janitor::untabyl(.)
    6. └─janitor::adorn_totals(...)
    7.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<chr>`)
    8.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<chr>`)
    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-adorn-totals.R:523:3'): row and column names are taken correctly from a single name ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-adorn-totals.R:523:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─... %>% untabyl()
    5. ├─janitor::untabyl(.)
    6. └─janitor::adorn_totals(., where = "both", name = "totals", fill = "-")
    7.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<chr>`)
    8.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<chr>`)
    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-adorn-totals.R:548:3'): order is maintained when first column is a factor, #494 ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. ├─o %>% tabyl(ord, a) %>% adorn_totals("both") at test-adorn-totals.R:548:2
   2. └─janitor::adorn_totals(., "both")
   3.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<chr>`)
   4.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<chr>`)
   5.     └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   6.       └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   7.         ├─base::withCallingHandlers(...)
   8.         └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-statistical-tests.R:103:3'): totals are excluded from the statistical tests, #385 ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─base::suppressWarnings(chisq.test(adorn_totals(ttab, "both"))) at test-statistical-tests.R:103:2
    2. │ └─base::withCallingHandlers(...)
    3. ├─janitor::chisq.test(adorn_totals(ttab, "both"))
    4. └─janitor::adorn_totals(ttab, "both")
    5.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<chr>`)
    6.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<chr>`)
    7.     └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
    8.       └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
    9.         ├─base::withCallingHandlers(...)
   10.         └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-tabyl-classifiers.R:80:3'): adorn_totals and adorn_percentages reset the tabyl's core to reflect sorting, #407 ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-tabyl-classifiers.R:80:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─sorted %>% adorn_totals() %>% attr(., "core")
    5. └─janitor::adorn_totals(.)
    6.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<chr>`)
    7.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<chr>`)
    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-tabyl.R:259:3'): NA levels get moved to the last column in the data.frame, are suppressed properly ──
  Error in `vectbl_assign(x[[j]], cells[[j]], value)`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─tabyl(x, a, b) %>% untabyl() at test-tabyl.R:259:2
    2. ├─janitor::untabyl(.)
    3. ├─janitor::tabyl(x, a, b)
    4. └─janitor:::tabyl.data.frame(x, a, b)
    5.   └─janitor:::tabyl_2way(...)
    6.     ├─base::`[<-`(`*tmp*`, is.na(tabl[2]), value = `<chr>`)
    7.     └─tibble:::`[<-.tbl_df`(`*tmp*`, is.na(tabl[2]), value = `<chr>`)
    8.       └─tibble:::tbl_subassign_matrix(x, j, value, j_arg, substitute(value))
    9.         ├─base::withCallingHandlers(...)
   10.         └─tibble:::vectbl_assign(x[[j]], cells[[j]], value)
  ── Error ('test-tabyl.R:426:3'): empty strings converted to _emptystring ───────
  Error in `vectbl_assign(x[[j]], cells[[j]], value)`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-tabyl.R:426:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─mt_empty %>% tabyl(am, cyl) %>% names
    5. ├─janitor::tabyl(., am, cyl)
    6. └─janitor:::tabyl.data.frame(., am, cyl)
    7.   └─janitor:::tabyl_2way(...)
    8.     ├─base::`[<-`(`*tmp*`, is.na(tabl[2]), value = `<chr>`)
    9.     └─tibble:::`[<-.tbl_df`(`*tmp*`, is.na(tabl[2]), value = `<chr>`)
   10.       └─tibble:::tbl_subassign_matrix(x, j, value, j_arg, substitute(value))
   11.         ├─base::withCallingHandlers(...)
   12.         └─tibble:::vectbl_assign(x[[j]], cells[[j]], value)
  ── Error ('test-tabyl.R:478:3'): 2-way tabyl with numeric column names is sorted numerically ──
  Error in `vectbl_assign(x[[j]], cells[[j]], value)`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-tabyl.R:478:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─base::colnames(df %>% tabyl(var1, var2))
    5. │ └─base::is.data.frame(x)
    6. ├─df %>% tabyl(var1, var2)
    7. ├─janitor::tabyl(., var1, var2)
    8. └─janitor:::tabyl.data.frame(., var1, var2)
    9.   └─janitor:::tabyl_2way(...)
   10.     ├─base::`[<-`(`*tmp*`, is.na(tabl[2]), value = `<chr>`)
   11.     └─tibble:::`[<-.tbl_df`(`*tmp*`, is.na(tabl[2]), value = `<chr>`)
   12.       └─tibble:::tbl_subassign_matrix(x, j, value, j_arg, substitute(value))
   13.         ├─base::withCallingHandlers(...)
   14.         └─tibble:::vectbl_assign(x[[j]], cells[[j]], value)
  
  [ FAIL 40 | WARN 10 | SKIP 1 | PASS 676 ]
  Error: Test failures
  Execution halted