Running ‘testthat.R’ [101s/159s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(tfrmt)
  > 
  > test_check("tfrmt")
  Writing json file out to:
  test.json
  Unable to create dataset subset vars
  Reason: DLL requires the use of native symbols
  Unable to create dataset subset vars
  Reason: DLL requires the use of native symbols
  Unable to create dataset subset vars
  Reason: DLL requires the use of native symbols
  Unable to create dataset subset vars
  Reason: DLL requires the use of native symbols
  Unable to create dataset subset vars
  Reason: DLL requires the use of native symbols
  The following rows of the given dataset have no format applied to them 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36
  The following rows of the given dataset have no format applied to them 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12
  [ FAIL 27 | WARN 0 | SKIP 8 | PASS 419 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • On CRAN (8)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-apply_footnote_plan.R:13:3'): applying footnote plan ───────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% print_to_gt(es_data) at test-apply_footnote_plan.R:13:2
    2. ├─tfrmt::print_to_gt(., es_data)
    3. │ └─apply_tfrmt(.data, tfrmt, mock = FALSE) %>% ...
    4. ├─tfrmt:::cleaned_data_to_gt(., tfrmt)
    5. │ └─... %>% ...
    6. ├─gt::tab_style(...)
    7. │ └─gt:::stop_if_not_gt(data = data)
    8. │   └─gt:::is_gt(data)
    9. ├─tfrmt:::format_gt_column_labels(., .data)
   10. │ └─gt_table %>% cols_label(.list = lapply(renm_vals, md))
   11. ├─gt::cols_label(., .list = lapply(renm_vals, md))
   12. │ └─gt:::stop_if_not_gt(data = .data)
   13. │   └─gt:::is_gt(data)
   14. ├─gt::cols_hide(., columns = "..tfrmt_row_grp_lbl")
   15. │ └─gt:::stop_if_not_gt(data = data)
   16. │   └─gt:::is_gt(data)
   17. ├─gt::sub_missing(...)
   18. │ └─gt:::stop_if_not_gt(data = data)
   19. │   └─gt:::is_gt(data)
   20. ├─gt::tab_header(., title = tfrmt$title, subtitle = tfrmt$subtitle)
   21. │ └─gt:::stop_if_not_gt(data = data)
   22. │   └─gt:::is_gt(data)
   23. └─gt::gt(., rowname_col = as_label(tfrmt$label))
   24.   └─gt:::dt_stub_df_init(...)
   25.     └─gt:::dt_boxhead_set_stub(data = data, var = rowname_col)
   26.       ├─base::`[<-`(`*tmp*`, which(dt_boxhead$var == var), "type", value = `<chr>`)
   27.       └─tibble:::`[<-.tbl_df`(...)
   28.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   29.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   30.             ├─base::withCallingHandlers(...)
   31.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-apply_row_grp_plan.R:574:3'): row order is retained for all selections ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% print_to_gt(dat) at test-apply_row_grp_plan.R:574:2
    2. ├─tfrmt::print_to_gt(., dat)
    3. │ └─apply_tfrmt(.data, tfrmt, mock = FALSE) %>% ...
    4. ├─tfrmt:::cleaned_data_to_gt(., tfrmt)
    5. │ └─... %>% ...
    6. ├─gt::tab_style(...)
    7. │ └─gt:::stop_if_not_gt(data = data)
    8. │   └─gt:::is_gt(data)
    9. ├─tfrmt:::format_gt_column_labels(., .data)
   10. │ └─gt_table %>% cols_label(.list = lapply(renm_vals, md))
   11. ├─gt::cols_label(., .list = lapply(renm_vals, md))
   12. │ └─gt:::stop_if_not_gt(data = .data)
   13. │   └─gt:::is_gt(data)
   14. ├─gt::cols_hide(., columns = "..tfrmt_row_grp_lbl")
   15. │ └─gt:::stop_if_not_gt(data = data)
   16. │   └─gt:::is_gt(data)
   17. ├─gt::sub_missing(...)
   18. │ └─gt:::stop_if_not_gt(data = data)
   19. │   └─gt:::is_gt(data)
   20. ├─gt::tab_header(., title = tfrmt$title, subtitle = tfrmt$subtitle)
   21. │ └─gt:::stop_if_not_gt(data = data)
   22. │   └─gt:::is_gt(data)
   23. └─gt::gt(., rowname_col = as_label(tfrmt$label))
   24.   └─gt:::dt_stub_df_init(...)
   25.     └─gt:::dt_boxhead_set_stub(data = data, var = rowname_col)
   26.       ├─base::`[<-`(`*tmp*`, which(dt_boxhead$var == var), "type", value = `<chr>`)
   27.       └─tibble:::`[<-.tbl_df`(...)
   28.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   29.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   30.             ├─base::withCallingHandlers(...)
   31.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-apply_row_grp_plan.R:732:3'): Row group plans with col style plan ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─base::suppressWarnings(...) at test-apply_row_grp_plan.R:732:2
    2. │ └─base::withCallingHandlers(...)
    3. ├─tfrmt::print_to_gt(plan, raw_dat) at test-apply_row_grp_plan.R:733:4
    4. │ └─apply_tfrmt(.data, tfrmt, mock = FALSE) %>% ...
    5. ├─tfrmt:::cleaned_data_to_gt(., tfrmt)
    6. │ └─... %>% ...
    7. ├─gt::tab_style(...)
    8. │ └─gt:::stop_if_not_gt(data = data)
    9. │   └─gt:::is_gt(data)
   10. ├─tfrmt:::format_gt_column_labels(., .data)
   11. │ └─gt_table %>% cols_label(.list = lapply(renm_vals, md))
   12. ├─gt::cols_label(., .list = lapply(renm_vals, md))
   13. │ └─gt:::stop_if_not_gt(data = .data)
   14. │   └─gt:::is_gt(data)
   15. ├─gt::cols_hide(., columns = "..tfrmt_row_grp_lbl")
   16. │ └─gt:::stop_if_not_gt(data = data)
   17. │   └─gt:::is_gt(data)
   18. ├─gt::sub_missing(...)
   19. │ └─gt:::stop_if_not_gt(data = data)
   20. │   └─gt:::is_gt(data)
   21. ├─gt::tab_header(., title = tfrmt$title, subtitle = tfrmt$subtitle)
   22. │ └─gt:::stop_if_not_gt(data = data)
   23. │   └─gt:::is_gt(data)
   24. └─gt::gt(., rowname_col = as_label(tfrmt$label))
   25.   └─gt:::dt_stub_df_init(...)
   26.     └─gt:::dt_boxhead_set_stub(data = data, var = rowname_col)
   27.       ├─base::`[<-`(`*tmp*`, which(dt_boxhead$var == var), "type", value = `<chr>`)
   28.       └─tibble:::`[<-.tbl_df`(...)
   29.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   30.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   31.             ├─base::withCallingHandlers(...)
   32.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Failure ('test-big_ns.R:172:3'): Test with spanning headers ─────────────────
  `auto` (`actual`) not equal to `man` (`expected`).
  
      lines(actual[[5]]) | lines(expected[[5]])                                   
  [1] "mycol3"           - "column cols"                                       [1]
                         - "N = 18___tlang_delim___col 4___tlang_delim___col4" [2]
  [2] "N =  6"           | "N =  6"                                            [3]
  
  lines(actual[[6]]) vs lines(expected[[6]])
  - "column cols"
  - "N = 18___tlang_delim___col 4___tlang_delim___col4"
  + "new_col_3"
    "N =  6"
  
  `lines(actual[[7]])`:   "mycol5"             
  `lines(expected[[7]])`: "..tfrmt_row_grp_lbl"
  
  `lines(actual[[8]])` is a character vector ('..tfrmt_row_grp_lbl')
  `lines(expected[[8]])` is absent
  ── Failure ('test-big_ns.R:182:3'): Test with spanning headers ─────────────────
  `auto_blank` (`actual`) not equal to `man` (`expected`).
  
      lines(actual[[5]]) | lines(expected[[5]])                                   
  [1] "mycol3"           - "column cols"                                       [1]
                         - "N = 18___tlang_delim___col 4___tlang_delim___col4" [2]
  [2] "N =  6"           | "N =  6"                                            [3]
  
  lines(actual[[6]]) vs lines(expected[[6]])
  - "column cols"
  - "N = 18___tlang_delim___col 4___tlang_delim___col4"
  + "new_col_3"
    "N =  6"
  
  `lines(actual[[7]])`:   "mycol5"             
  `lines(expected[[7]])`: "..tfrmt_row_grp_lbl"
  
  `lines(actual[[8]])` is a character vector ('..tfrmt_row_grp_lbl')
  `lines(expected[[8]])` is absent
  ── Failure ('test-big_ns.R:400:3'): using 'value' for values column where there may be conflict in big_n ──
  `auto` (`actual`) not equal to `man` (`expected`).
  
      lines(actual[[5]]) | lines(expected[[5]])                                   
  [1] "mycol3"           - "column cols"                                       [1]
                         - "N = 18___tlang_delim___col 4___tlang_delim___col4" [2]
  [2] "N =  6"           | "N =  6"                                            [3]
  
  lines(actual[[6]]) vs lines(expected[[6]])
  - "column cols"
  - "N = 18___tlang_delim___col 4___tlang_delim___col4"
  + "new_col_3"
    "N =  6"
  
  `lines(actual[[7]])`:   "mycol5"             
  `lines(expected[[7]])`: "..tfrmt_row_grp_lbl"
  
  `lines(actual[[8]])` is a character vector ('..tfrmt_row_grp_lbl')
  `lines(expected[[8]])` is absent
  ── Error ('test-big_ns.R:432:3'): Test big n with footnotes ────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% print_mock_gt(span_df_big_n) at test-big_ns.R:432:2
    2. ├─tfrmt::print_mock_gt(., span_df_big_n)
    3. │ └─apply_tfrmt(.data, tfrmt, mock = TRUE) %>% ...
    4. ├─tfrmt:::cleaned_data_to_gt(., tfrmt)
    5. │ └─... %>% ...
    6. ├─gt::tab_style(...)
    7. │ └─gt:::stop_if_not_gt(data = data)
    8. │   └─gt:::is_gt(data)
    9. ├─tfrmt:::format_gt_column_labels(., .data)
   10. │ └─gt_table %>% ...
   11. ├─gt::tab_spanner(., md(spans_to_apply$value[i]), columns = all_of(spans_to_apply$set[[i]]))
   12. │ └─gt:::stop_if_not_gt(data = data)
   13. │   └─gt:::is_gt(data)
   14. ├─gt::cols_hide(., columns = "..tfrmt_row_grp_lbl")
   15. │ └─gt:::stop_if_not_gt(data = data)
   16. │   └─gt:::is_gt(data)
   17. ├─gt::sub_missing(...)
   18. │ └─gt:::stop_if_not_gt(data = data)
   19. │   └─gt:::is_gt(data)
   20. ├─gt::tab_header(., title = tfrmt$title, subtitle = tfrmt$subtitle)
   21. │ └─gt:::stop_if_not_gt(data = data)
   22. │   └─gt:::is_gt(data)
   23. └─gt::gt(., rowname_col = as_label(tfrmt$label))
   24.   └─gt:::dt_stub_df_init(...)
   25.     └─gt:::dt_boxhead_set_stub(data = data, var = rowname_col)
   26.       ├─base::`[<-`(`*tmp*`, which(dt_boxhead$var == var), "type", value = `<chr>`)
   27.       └─tibble:::`[<-.tbl_df`(...)
   28.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   29.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   30.             ├─base::withCallingHandlers(...)
   31.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-col_plan.R:350:3'): Test applying a col_plan - renaming ────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-col_plan.R:350:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─tfrmt:::create_col_order(cp = cp_keep, columns = col_vars, data_names = name_col)
    5.   └─tfrmt:::col_plan_quo_to_vars(...)
    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-col_plan.R:479:3'): Test applying a col_plan - renaming twice ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-col_plan.R:479:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─tfrmt:::create_col_order(cp = cp_keep, columns = col_vars, data_names = name_col)
    5.   └─tfrmt:::col_plan_quo_to_vars(...)
    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-col_plan.R:564:3'): Test applying a col_plan - tidyselect with renaming ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. └─tfrmt:::create_col_order(cp = cp_keep, columns = col_vars, data_names = name_col) at test-col_plan.R:564:2
   2.   └─tfrmt:::col_plan_span_structure_to_vars(...)
   3.     ├─base::`[<-`(...)
   4.     └─tibble:::`[<-.tbl_df`(...)
   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-col_plan.R:832:3'): Build simple tfrmt with multiple columns and apply to basic data and compare against spanning_structure ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─base::suppressMessages(...) at test-col_plan.R:832:2
    2. │ └─base::withCallingHandlers(...)
    3. ├─tfrmt::print_to_gt(tfrmt = basic_multi_column_template, .data = basic_example_dataset) at test-col_plan.R:833:4
    4. │ └─apply_tfrmt(.data, tfrmt, mock = FALSE) %>% ...
    5. ├─tfrmt:::cleaned_data_to_gt(., tfrmt)
    6. │ └─... %>% ...
    7. ├─gt::tab_style(...)
    8. │ └─gt:::stop_if_not_gt(data = data)
    9. │   └─gt:::is_gt(data)
   10. ├─tfrmt:::format_gt_column_labels(., .data)
   11. │ └─gt_table %>% ...
   12. ├─gt::tab_spanner(., md(spans_to_apply$value[i]), columns = all_of(spans_to_apply$set[[i]]))
   13. │ └─gt:::stop_if_not_gt(data = data)
   14. │   └─gt:::is_gt(data)
   15. ├─gt::cols_hide(., columns = "..tfrmt_row_grp_lbl")
   16. │ └─gt:::stop_if_not_gt(data = data)
   17. │   └─gt:::is_gt(data)
   18. ├─gt::sub_missing(...)
   19. │ └─gt:::stop_if_not_gt(data = data)
   20. │   └─gt:::is_gt(data)
   21. ├─gt::tab_header(., title = tfrmt$title, subtitle = tfrmt$subtitle)
   22. │ └─gt:::stop_if_not_gt(data = data)
   23. │   └─gt:::is_gt(data)
   24. └─gt::gt(., rowname_col = as_label(tfrmt$label))
   25.   └─gt:::dt_stub_df_init(...)
   26.     └─gt:::dt_boxhead_set_stub(data = data, var = rowname_col)
   27.       ├─base::`[<-`(`*tmp*`, which(dt_boxhead$var == var), "type", value = `<chr>`)
   28.       └─tibble:::`[<-.tbl_df`(...)
   29.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   30.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   31.             ├─base::withCallingHandlers(...)
   32.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-col_plan.R:891:3'): Build simple tfrmt with multiple columns and apply to basic data and compare against spanning_structure - with renaming ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─base::suppressMessages(...) at test-col_plan.R:891:2
    2. │ └─base::withCallingHandlers(...)
    3. ├─tfrmt::print_to_gt(tfrmt = basic_multi_column_template, .data = basic_example_dataset) at test-col_plan.R:892:6
    4. │ └─apply_tfrmt(.data, tfrmt, mock = FALSE) %>% ...
    5. ├─tfrmt:::cleaned_data_to_gt(., tfrmt)
    6. │ └─... %>% ...
    7. ├─gt::tab_style(...)
    8. │ └─gt:::stop_if_not_gt(data = data)
    9. │   └─gt:::is_gt(data)
   10. ├─tfrmt:::format_gt_column_labels(., .data)
   11. │ └─gt_table %>% ...
   12. ├─gt::tab_spanner(., md(spans_to_apply$value[i]), columns = all_of(spans_to_apply$set[[i]]))
   13. │ └─gt:::stop_if_not_gt(data = data)
   14. │   └─gt:::is_gt(data)
   15. ├─gt::cols_hide(., columns = "..tfrmt_row_grp_lbl")
   16. │ └─gt:::stop_if_not_gt(data = data)
   17. │   └─gt:::is_gt(data)
   18. ├─gt::sub_missing(...)
   19. │ └─gt:::stop_if_not_gt(data = data)
   20. │   └─gt:::is_gt(data)
   21. ├─gt::tab_header(., title = tfrmt$title, subtitle = tfrmt$subtitle)
   22. │ └─gt:::stop_if_not_gt(data = data)
   23. │   └─gt:::is_gt(data)
   24. └─gt::gt(., rowname_col = as_label(tfrmt$label))
   25.   └─gt:::dt_stub_df_init(...)
   26.     └─gt:::dt_boxhead_set_stub(data = data, var = rowname_col)
   27.       ├─base::`[<-`(`*tmp*`, which(dt_boxhead$var == var), "type", value = `<chr>`)
   28.       └─tibble:::`[<-.tbl_df`(...)
   29.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   30.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   31.             ├─base::withCallingHandlers(...)
   32.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-col_plan.R:955:3'): Build simple tfrmt with multiple columns and apply to basic data and compare against spanning_structure - with renaming multiple levels ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─base::suppressMessages(...) at test-col_plan.R:955:2
    2. │ └─base::withCallingHandlers(...)
    3. ├─tfrmt::print_to_gt(tfrmt = basic_multi_column_template, .data = basic_example_dataset) at test-col_plan.R:956:4
    4. │ └─apply_tfrmt(.data, tfrmt, mock = FALSE) %>% ...
    5. ├─tfrmt:::cleaned_data_to_gt(., tfrmt)
    6. │ └─... %>% ...
    7. ├─gt::tab_style(...)
    8. │ └─gt:::stop_if_not_gt(data = data)
    9. │   └─gt:::is_gt(data)
   10. ├─tfrmt:::format_gt_column_labels(., .data)
   11. │ └─gt_table %>% ...
   12. ├─gt::tab_spanner(., md(spans_to_apply$value[i]), columns = all_of(spans_to_apply$set[[i]]))
   13. │ └─gt:::stop_if_not_gt(data = data)
   14. │   └─gt:::is_gt(data)
   15. ├─gt::cols_hide(., columns = "..tfrmt_row_grp_lbl")
   16. │ └─gt:::stop_if_not_gt(data = data)
   17. │   └─gt:::is_gt(data)
   18. ├─gt::sub_missing(...)
   19. │ └─gt:::stop_if_not_gt(data = data)
   20. │   └─gt:::is_gt(data)
   21. ├─gt::tab_header(., title = tfrmt$title, subtitle = tfrmt$subtitle)
   22. │ └─gt:::stop_if_not_gt(data = data)
   23. │   └─gt:::is_gt(data)
   24. └─gt::gt(., rowname_col = as_label(tfrmt$label))
   25.   └─gt:::dt_stub_df_init(...)
   26.     └─gt:::dt_boxhead_set_stub(data = data, var = rowname_col)
   27.       ├─base::`[<-`(`*tmp*`, which(dt_boxhead$var == var), "type", value = `<chr>`)
   28.       └─tibble:::`[<-.tbl_df`(...)
   29.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   30.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   31.             ├─base::withCallingHandlers(...)
   32.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-col_plan.R:1022:3'): Build simple tfrmt with multiple columns and with renaming duplicated colnames across spans ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─base::suppressMessages(...) at test-col_plan.R:1022:2
    2. │ └─base::withCallingHandlers(...)
    3. ├─tfrmt::print_to_gt(tfrmt = multi_column_template, .data = multi_col_df) at test-col_plan.R:1023:6
    4. │ └─apply_tfrmt(.data, tfrmt, mock = FALSE) %>% ...
    5. ├─tfrmt:::cleaned_data_to_gt(., tfrmt)
    6. │ └─... %>% ...
    7. ├─gt::tab_style(...)
    8. │ └─gt:::stop_if_not_gt(data = data)
    9. │   └─gt:::is_gt(data)
   10. ├─tfrmt:::format_gt_column_labels(., .data)
   11. │ └─gt_table %>% ...
   12. ├─gt::tab_spanner(., md(spans_to_apply$value[i]), columns = all_of(spans_to_apply$set[[i]]))
   13. │ └─gt:::stop_if_not_gt(data = data)
   14. │   └─gt:::is_gt(data)
   15. ├─gt::cols_hide(., columns = "..tfrmt_row_grp_lbl")
   16. │ └─gt:::stop_if_not_gt(data = data)
   17. │   └─gt:::is_gt(data)
   18. ├─gt::sub_missing(...)
   19. │ └─gt:::stop_if_not_gt(data = data)
   20. │   └─gt:::is_gt(data)
   21. ├─gt::tab_header(., title = tfrmt$title, subtitle = tfrmt$subtitle)
   22. │ └─gt:::stop_if_not_gt(data = data)
   23. │   └─gt:::is_gt(data)
   24. └─gt::gt(., rowname_col = as_label(tfrmt$label))
   25.   └─gt:::dt_stub_df_init(...)
   26.     └─gt:::dt_boxhead_set_stub(data = data, var = rowname_col)
   27.       ├─base::`[<-`(`*tmp*`, which(dt_boxhead$var == var), "type", value = `<chr>`)
   28.       └─tibble:::`[<-.tbl_df`(...)
   29.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   30.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   31.             ├─base::withCallingHandlers(...)
   32.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-col_plan.R:1125:3'): Build simple tfrmt with spans with child spans that are and are not spanned ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─base::suppressMessages(...) at test-col_plan.R:1125:2
    2. │ └─base::withCallingHandlers(...)
    3. ├─tfrmt::print_to_gt(tfrmt = tfrmt_with_parial_child_span, .data = dat) at test-col_plan.R:1126:6
    4. │ └─apply_tfrmt(.data, tfrmt, mock = FALSE) %>% ...
    5. ├─tfrmt:::cleaned_data_to_gt(., tfrmt)
    6. │ └─... %>% ...
    7. ├─gt::tab_style(...)
    8. │ └─gt:::stop_if_not_gt(data = data)
    9. │   └─gt:::is_gt(data)
   10. ├─tfrmt:::format_gt_column_labels(., .data)
   11. │ └─gt_table %>% ...
   12. ├─gt::tab_spanner(., md(spans_to_apply$value[i]), columns = all_of(spans_to_apply$set[[i]]))
   13. │ └─gt:::stop_if_not_gt(data = data)
   14. │   └─gt:::is_gt(data)
   15. ├─gt::cols_hide(., columns = "..tfrmt_row_grp_lbl")
   16. │ └─gt:::stop_if_not_gt(data = data)
   17. │   └─gt:::is_gt(data)
   18. ├─gt::sub_missing(...)
   19. │ └─gt:::stop_if_not_gt(data = data)
   20. │   └─gt:::is_gt(data)
   21. ├─gt::tab_header(., title = tfrmt$title, subtitle = tfrmt$subtitle)
   22. │ └─gt:::stop_if_not_gt(data = data)
   23. │   └─gt:::is_gt(data)
   24. └─gt::gt(., rowname_col = as_label(tfrmt$label))
   25.   └─gt:::dt_stub_df_init(...)
   26.     └─gt:::dt_boxhead_set_stub(data = data, var = rowname_col)
   27.       ├─base::`[<-`(`*tmp*`, which(dt_boxhead$var == var), "type", value = `<chr>`)
   28.       └─tibble:::`[<-.tbl_df`(...)
   29.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   30.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   31.             ├─base::withCallingHandlers(...)
   32.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-col_plan.R:1216:3'): Build simple tfrmt with spans with child spans that are and are not spanned - removal ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─base::suppressMessages(...) at test-col_plan.R:1216:2
    2. │ └─base::withCallingHandlers(...)
    3. ├─tfrmt::print_to_gt(tfrmt = tfrmt_with_parial_child_span, .data = dat) at test-col_plan.R:1217:4
    4. │ └─apply_tfrmt(.data, tfrmt, mock = FALSE) %>% ...
    5. ├─tfrmt:::cleaned_data_to_gt(., tfrmt)
    6. │ └─... %>% ...
    7. ├─gt::tab_style(...)
    8. │ └─gt:::stop_if_not_gt(data = data)
    9. │   └─gt:::is_gt(data)
   10. ├─tfrmt:::format_gt_column_labels(., .data)
   11. │ └─gt_table %>% ...
   12. ├─gt::tab_spanner(., md(spans_to_apply$value[i]), columns = all_of(spans_to_apply$set[[i]]))
   13. │ └─gt:::stop_if_not_gt(data = data)
   14. │   └─gt:::is_gt(data)
   15. ├─gt::cols_hide(., columns = "..tfrmt_row_grp_lbl")
   16. │ └─gt:::stop_if_not_gt(data = data)
   17. │   └─gt:::is_gt(data)
   18. ├─gt::sub_missing(...)
   19. │ └─gt:::stop_if_not_gt(data = data)
   20. │   └─gt:::is_gt(data)
   21. ├─gt::tab_header(., title = tfrmt$title, subtitle = tfrmt$subtitle)
   22. │ └─gt:::stop_if_not_gt(data = data)
   23. │   └─gt:::is_gt(data)
   24. └─gt::gt(., rowname_col = as_label(tfrmt$label))
   25.   └─gt:::dt_stub_df_init(...)
   26.     └─gt:::dt_boxhead_set_stub(data = data, var = rowname_col)
   27.       ├─base::`[<-`(`*tmp*`, which(dt_boxhead$var == var), "type", value = `<chr>`)
   28.       └─tibble:::`[<-.tbl_df`(...)
   29.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   30.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   31.             ├─base::withCallingHandlers(...)
   32.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-col_plan.R:1349:3'): Tidyselect subtraction with span_structure ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─tfrmt::print_mock_gt(tfrmt_minus_selection, df) at test-col_plan.R:1349:2
    2. │ └─apply_tfrmt(.data, tfrmt, mock = TRUE) %>% ...
    3. ├─tfrmt:::cleaned_data_to_gt(., tfrmt)
    4. │ └─... %>% ...
    5. ├─gt::tab_style(...)
    6. │ └─gt:::stop_if_not_gt(data = data)
    7. │   └─gt:::is_gt(data)
    8. ├─tfrmt:::format_gt_column_labels(., .data)
    9. │ └─gt_table %>% ...
   10. ├─gt::tab_spanner(., md(spans_to_apply$value[i]), columns = all_of(spans_to_apply$set[[i]]))
   11. │ └─gt:::stop_if_not_gt(data = data)
   12. │   └─gt:::is_gt(data)
   13. ├─gt::cols_hide(., columns = "..tfrmt_row_grp_lbl")
   14. │ └─gt:::stop_if_not_gt(data = data)
   15. │   └─gt:::is_gt(data)
   16. ├─gt::sub_missing(...)
   17. │ └─gt:::stop_if_not_gt(data = data)
   18. │   └─gt:::is_gt(data)
   19. ├─gt::tab_header(., title = tfrmt$title, subtitle = tfrmt$subtitle)
   20. │ └─gt:::stop_if_not_gt(data = data)
   21. │   └─gt:::is_gt(data)
   22. └─gt::gt(., rowname_col = as_label(tfrmt$label))
   23.   └─gt:::dt_stub_df_init(...)
   24.     └─gt:::dt_boxhead_set_stub(data = data, var = rowname_col)
   25.       ├─base::`[<-`(`*tmp*`, which(dt_boxhead$var == var), "type", value = `<chr>`)
   26.       └─tibble:::`[<-.tbl_df`(...)
   27.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   28.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   29.             ├─base::withCallingHandlers(...)
   30.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Failure ('test-col_style_structure.R:454:3'): span_structure works on a renamed column ──
  `dat_aligned` (`actual`) not equal to `dat_aligned_man` (`expected`).
  
  names(actual) vs names(expected)
    "one"
    "Test Span1___tlang_delim___trt1"
  - "Test Span2___tlang_delim___trt2"
  + "New Test Span2___tlang_delim___trt2"
    "four"
  
  `actual$Test Span2___tlang_delim___trt2` is a character vector (' 24 (58%)', ' 15.4    ', '  8.25   ', ' 16      ', '(11, 22) ')
  `expected$Test Span2___tlang_delim___trt2` is absent
  
  `actual$New Test Span2___tlang_delim___trt2` is absent
  `expected$New Test Span2___tlang_delim___trt2` is a character vector (' 24 (58%)', ' 15.4    ', '  8.25   ', ' 16      ', '(11, 22) ')
  ── Error ('test-make_mock_data.R:197:3'): Check mock when value is missing ─────
  `out <- print_mock_gt(plan, data)` threw an unexpected error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  ── Error ('test-make_mock_data.R:228:3'): Test when no body_style or values is present ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_message(...) at test-make_mock_data.R:228: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. ├─tfrmt::print_mock_gt(tfrmt_obj_one_span, input_data)
    8. │ └─apply_tfrmt(.data, tfrmt, mock = TRUE) %>% ...
    9. ├─tfrmt:::cleaned_data_to_gt(., tfrmt)
   10. │ └─... %>% ...
   11. ├─gt::tab_style(...)
   12. │ └─gt:::stop_if_not_gt(data = data)
   13. │   └─gt:::is_gt(data)
   14. ├─tfrmt:::format_gt_column_labels(., .data)
   15. │ └─gt_table %>% ...
   16. ├─gt::tab_spanner(., md(spans_to_apply$value[i]), columns = all_of(spans_to_apply$set[[i]]))
   17. │ └─gt:::stop_if_not_gt(data = data)
   18. │   └─gt:::is_gt(data)
   19. ├─gt::cols_hide(., columns = "..tfrmt_row_grp_lbl")
   20. │ └─gt:::stop_if_not_gt(data = data)
   21. │   └─gt:::is_gt(data)
   22. ├─gt::sub_missing(...)
   23. │ └─gt:::stop_if_not_gt(data = data)
   24. │   └─gt:::is_gt(data)
   25. ├─gt::tab_header(., title = tfrmt$title, subtitle = tfrmt$subtitle)
   26. │ └─gt:::stop_if_not_gt(data = data)
   27. │   └─gt:::is_gt(data)
   28. └─gt::gt(., rowname_col = as_label(tfrmt$label))
   29.   └─gt:::dt_stub_df_init(...)
   30.     └─gt:::dt_boxhead_set_stub(data = data, var = rowname_col)
   31.       ├─base::`[<-`(`*tmp*`, which(dt_boxhead$var == var), "type", value = `<chr>`)
   32.       └─tibble:::`[<-.tbl_df`(...)
   33.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   34.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   35.             ├─base::withCallingHandlers(...)
   36.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-make_mock_data.R:431:3'): Printing Mock data removes value when it exists in the input data ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_message(...) at test-make_mock_data.R:431: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. ├─tfrmt::print_mock_gt(plan, data)
    8. │ └─apply_tfrmt(.data, tfrmt, mock = TRUE) %>% ...
    9. ├─tfrmt:::cleaned_data_to_gt(., tfrmt)
   10. │ └─... %>% ...
   11. ├─gt::tab_style(...)
   12. │ └─gt:::stop_if_not_gt(data = data)
   13. │   └─gt:::is_gt(data)
   14. ├─tfrmt:::format_gt_column_labels(., .data)
   15. │ └─gt_table %>% cols_label(.list = lapply(renm_vals, md))
   16. ├─gt::cols_label(., .list = lapply(renm_vals, md))
   17. │ └─gt:::stop_if_not_gt(data = .data)
   18. │   └─gt:::is_gt(data)
   19. ├─gt::cols_hide(., columns = "..tfrmt_row_grp_lbl")
   20. │ └─gt:::stop_if_not_gt(data = data)
   21. │   └─gt:::is_gt(data)
   22. ├─gt::sub_missing(...)
   23. │ └─gt:::stop_if_not_gt(data = data)
   24. │   └─gt:::is_gt(data)
   25. ├─gt::tab_header(., title = tfrmt$title, subtitle = tfrmt$subtitle)
   26. │ └─gt:::stop_if_not_gt(data = data)
   27. │   └─gt:::is_gt(data)
   28. └─gt::gt(., rowname_col = as_label(tfrmt$label))
   29.   └─gt:::dt_stub_df_init(...)
   30.     └─gt:::dt_boxhead_set_stub(data = data, var = rowname_col)
   31.       ├─base::`[<-`(`*tmp*`, which(dt_boxhead$var == var), "type", value = `<chr>`)
   32.       └─tibble:::`[<-.tbl_df`(...)
   33.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   34.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   35.             ├─base::withCallingHandlers(...)
   36.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-make_mock_data.R:469:3'): Mock data can be made and printed without label ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_silent(print_mock_gt(plan, .data = dat)) at test-make_mock_data.R:469:2
    2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ ├─withr::with_output_sink(...)
    5. │   │ │ └─base::force(code)
    6. │   │ ├─base::withCallingHandlers(...)
    7. │   │ └─base::withVisible(code)
    8. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    9. ├─tfrmt::print_mock_gt(plan, .data = dat)
   10. │ └─apply_tfrmt(.data, tfrmt, mock = TRUE) %>% ...
   11. ├─tfrmt:::cleaned_data_to_gt(., tfrmt)
   12. │ └─... %>% ...
   13. ├─gt::tab_style(...)
   14. │ └─gt:::stop_if_not_gt(data = data)
   15. │   └─gt:::is_gt(data)
   16. ├─tfrmt:::format_gt_column_labels(., .data)
   17. │ └─gt_table %>% cols_label(.list = lapply(renm_vals, md))
   18. ├─gt::cols_label(., .list = lapply(renm_vals, md))
   19. │ └─gt:::stop_if_not_gt(data = .data)
   20. │   └─gt:::is_gt(data)
   21. ├─gt::cols_hide(., columns = "..tfrmt_row_grp_lbl")
   22. │ └─gt:::stop_if_not_gt(data = data)
   23. │   └─gt:::is_gt(data)
   24. ├─gt::sub_missing(...)
   25. │ └─gt:::stop_if_not_gt(data = data)
   26. │   └─gt:::is_gt(data)
   27. ├─gt::tab_header(., title = tfrmt$title, subtitle = tfrmt$subtitle)
   28. │ └─gt:::stop_if_not_gt(data = data)
   29. │   └─gt:::is_gt(data)
   30. └─gt::gt(., rowname_col = as_label(tfrmt$label))
   31.   └─gt::cols_align(data = data, align = "auto")
   32.     └─gt:::dt_boxhead_edit(data = data, var = column_names[i], column_align = align[i])
   33.       ├─base::`[[<-`(...)
   34.       └─tibble:::`[[<-.tbl_df`(...)
   35.         └─tibble:::tbl_subassign(...)
   36.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   37.             ├─base::withCallingHandlers(...)
   38.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-make_mock_data.R:486:3'): Mock data can be printed from a tfrmt without a body plan ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─tfrmt::print_mock_gt(plan) at test-make_mock_data.R:486:2
    2. │ └─apply_tfrmt(.data, tfrmt, mock = TRUE) %>% ...
    3. ├─tfrmt:::cleaned_data_to_gt(., tfrmt)
    4. │ └─... %>% ...
    5. ├─gt::tab_style(...)
    6. │ └─gt:::stop_if_not_gt(data = data)
    7. │   └─gt:::is_gt(data)
    8. ├─tfrmt:::format_gt_column_labels(., .data)
    9. │ └─gt_table %>% cols_label(.list = lapply(renm_vals, md))
   10. ├─gt::cols_label(., .list = lapply(renm_vals, md))
   11. │ └─gt:::stop_if_not_gt(data = .data)
   12. │   └─gt:::is_gt(data)
   13. ├─gt::cols_hide(., columns = "..tfrmt_row_grp_lbl")
   14. │ └─gt:::stop_if_not_gt(data = data)
   15. │   └─gt:::is_gt(data)
   16. ├─gt::sub_missing(...)
   17. │ └─gt:::stop_if_not_gt(data = data)
   18. │   └─gt:::is_gt(data)
   19. ├─gt::tab_header(., title = tfrmt$title, subtitle = tfrmt$subtitle)
   20. │ └─gt:::stop_if_not_gt(data = data)
   21. │   └─gt:::is_gt(data)
   22. └─gt::gt(., rowname_col = as_label(tfrmt$label))
   23.   └─gt::cols_align(data = data, align = "auto")
   24.     └─gt:::dt_boxhead_edit(data = data, var = column_names[i], column_align = align[i])
   25.       ├─base::`[[<-`(...)
   26.       └─tibble:::`[[<-.tbl_df`(...)
   27.         └─tibble:::tbl_subassign(...)
   28.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   29.             ├─base::withCallingHandlers(...)
   30.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-mrkdown_labels.R:12:3'): markdown column labels - no spanning ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% tab_options(container.width = 1000) at test-mrkdown_labels.R:12:2
    2. ├─gt::tab_options(., container.width = 1000)
    3. │ └─gt:::stop_if_not_gt(data = data)
    4. │   └─gt:::is_gt(data)
    5. ├─tfrmt::print_to_gt(., mock_data)
    6. │ └─apply_tfrmt(.data, tfrmt, mock = FALSE) %>% ...
    7. ├─tfrmt:::cleaned_data_to_gt(., tfrmt)
    8. │ └─... %>% ...
    9. ├─gt::tab_style(...)
   10. │ └─gt:::stop_if_not_gt(data = data)
   11. │   └─gt:::is_gt(data)
   12. ├─tfrmt:::format_gt_column_labels(., .data)
   13. │ └─gt_table %>% cols_label(.list = lapply(renm_vals, md))
   14. ├─gt::cols_label(., .list = lapply(renm_vals, md))
   15. │ └─gt:::stop_if_not_gt(data = .data)
   16. │   └─gt:::is_gt(data)
   17. ├─gt::cols_hide(., columns = "..tfrmt_row_grp_lbl")
   18. │ └─gt:::stop_if_not_gt(data = data)
   19. │   └─gt:::is_gt(data)
   20. ├─gt::sub_missing(...)
   21. │ └─gt:::stop_if_not_gt(data = data)
   22. │   └─gt:::is_gt(data)
   23. ├─gt::tab_header(., title = tfrmt$title, subtitle = tfrmt$subtitle)
   24. │ └─gt:::stop_if_not_gt(data = data)
   25. │   └─gt:::is_gt(data)
   26. └─gt::gt(., rowname_col = as_label(tfrmt$label))
   27.   └─gt:::dt_stub_df_init(...)
   28.     └─gt:::dt_boxhead_set_stub(data = data, var = rowname_col)
   29.       ├─base::`[<-`(`*tmp*`, which(dt_boxhead$var == var), "type", value = `<chr>`)
   30.       └─tibble:::`[<-.tbl_df`(...)
   31.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   32.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   33.             ├─base::withCallingHandlers(...)
   34.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-mrkdown_labels.R:83:3'): markdown column labels - spanning ─────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% print_to_gt(mock_data) at test-mrkdown_labels.R:83:2
    2. ├─tfrmt::print_to_gt(., mock_data)
    3. │ └─apply_tfrmt(.data, tfrmt, mock = FALSE) %>% ...
    4. ├─tfrmt:::cleaned_data_to_gt(., tfrmt)
    5. │ └─... %>% ...
    6. ├─gt::tab_style(...)
    7. │ └─gt:::stop_if_not_gt(data = data)
    8. │   └─gt:::is_gt(data)
    9. ├─tfrmt:::format_gt_column_labels(., .data)
   10. │ └─gt_table %>% ...
   11. ├─gt::tab_spanner(., md(spans_to_apply$value[i]), columns = all_of(spans_to_apply$set[[i]]))
   12. │ └─gt:::stop_if_not_gt(data = data)
   13. │   └─gt:::is_gt(data)
   14. ├─gt::cols_hide(., columns = "..tfrmt_row_grp_lbl")
   15. │ └─gt:::stop_if_not_gt(data = data)
   16. │   └─gt:::is_gt(data)
   17. ├─gt::sub_missing(...)
   18. │ └─gt:::stop_if_not_gt(data = data)
   19. │   └─gt:::is_gt(data)
   20. ├─gt::tab_header(., title = tfrmt$title, subtitle = tfrmt$subtitle)
   21. │ └─gt:::stop_if_not_gt(data = data)
   22. │   └─gt:::is_gt(data)
   23. └─gt::gt(., rowname_col = as_label(tfrmt$label))
   24.   └─gt::cols_align(data = data, align = "auto")
   25.     └─gt:::dt_boxhead_edit(data = data, var = column_names[i], column_align = align[i])
   26.       ├─base::`[[<-`(...)
   27.       └─tibble:::`[[<-.tbl_df`(...)
   28.         └─tibble:::tbl_subassign(...)
   29.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   30.             ├─base::withCallingHandlers(...)
   31.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-mrkdown_labels.R:131:3'): markdown column labels - renamed ─────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% print_to_gt(mock_data) at test-mrkdown_labels.R:131:2
    2. ├─tfrmt::print_to_gt(., mock_data)
    3. │ └─apply_tfrmt(.data, tfrmt, mock = FALSE) %>% ...
    4. ├─tfrmt:::cleaned_data_to_gt(., tfrmt)
    5. │ └─... %>% ...
    6. ├─gt::tab_style(...)
    7. │ └─gt:::stop_if_not_gt(data = data)
    8. │   └─gt:::is_gt(data)
    9. ├─tfrmt:::format_gt_column_labels(., .data)
   10. │ └─gt_table %>% cols_label(.list = lapply(renm_vals, md))
   11. ├─gt::cols_label(., .list = lapply(renm_vals, md))
   12. │ └─gt:::stop_if_not_gt(data = .data)
   13. │   └─gt:::is_gt(data)
   14. ├─gt::cols_hide(., columns = "..tfrmt_row_grp_lbl")
   15. │ └─gt:::stop_if_not_gt(data = data)
   16. │   └─gt:::is_gt(data)
   17. ├─gt::sub_missing(...)
   18. │ └─gt:::stop_if_not_gt(data = data)
   19. │   └─gt:::is_gt(data)
   20. ├─gt::tab_header(., title = tfrmt$title, subtitle = tfrmt$subtitle)
   21. │ └─gt:::stop_if_not_gt(data = data)
   22. │   └─gt:::is_gt(data)
   23. └─gt::gt(., rowname_col = as_label(tfrmt$label))
   24.   └─gt:::dt_stub_df_init(...)
   25.     └─gt:::dt_boxhead_set_stub(data = data, var = rowname_col)
   26.       ├─base::`[<-`(`*tmp*`, which(dt_boxhead$var == var), "type", value = `<chr>`)
   27.       └─tibble:::`[<-.tbl_df`(...)
   28.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   29.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   30.             ├─base::withCallingHandlers(...)
   31.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-mrkdown_labels.R:177:2'): column spanners and labels are appropriately aligned ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─tfrmt_spec %>% print_to_gt(.data = dat) at test-mrkdown_labels.R:177:1
    2. ├─tfrmt::print_to_gt(., .data = dat)
    3. │ └─apply_tfrmt(.data, tfrmt, mock = FALSE) %>% ...
    4. ├─tfrmt:::cleaned_data_to_gt(., tfrmt)
    5. │ └─... %>% ...
    6. ├─gt::tab_style(...)
    7. │ └─gt:::stop_if_not_gt(data = data)
    8. │   └─gt:::is_gt(data)
    9. ├─tfrmt:::format_gt_column_labels(., .data)
   10. │ └─gt_table %>% ...
   11. ├─gt::tab_spanner(., md(spans_to_apply$value[i]), columns = all_of(spans_to_apply$set[[i]]))
   12. │ └─gt:::stop_if_not_gt(data = data)
   13. │   └─gt:::is_gt(data)
   14. ├─gt::cols_hide(., columns = "..tfrmt_row_grp_lbl")
   15. │ └─gt:::stop_if_not_gt(data = data)
   16. │   └─gt:::is_gt(data)
   17. ├─gt::sub_missing(...)
   18. │ └─gt:::stop_if_not_gt(data = data)
   19. │   └─gt:::is_gt(data)
   20. ├─gt::tab_header(., title = tfrmt$title, subtitle = tfrmt$subtitle)
   21. │ └─gt:::stop_if_not_gt(data = data)
   22. │   └─gt:::is_gt(data)
   23. └─gt::gt(., rowname_col = as_label(tfrmt$label))
   24.   └─gt:::dt_stub_df_init(...)
   25.     └─gt:::dt_boxhead_set_stub(data = data, var = rowname_col)
   26.       ├─base::`[<-`(`*tmp*`, which(dt_boxhead$var == var), "type", value = `<chr>`)
   27.       └─tibble:::`[<-.tbl_df`(...)
   28.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   29.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   30.             ├─base::withCallingHandlers(...)
   31.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  
  [ FAIL 27 | WARN 0 | SKIP 8 | PASS 419 ]
  Error: Test failures
  Execution halted