Running ‘testthat.R’ [12s/19s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(gtExtras)
  
  Attaching package: 'gtExtras'
  
  The following object is masked from 'package:testthat':
  
      matches
  
  > 
  > test_check("gtExtras")
  Saving 7 x 7 in image
  [ FAIL 28 | WARN 0 | SKIP 23 | PASS 37 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • On CRAN (23)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-gt-bar-html.R:5:3'): gt_plt_bar_pct HTML is created and has specific values ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% rvest::read_html() at test-gt-bar-html.R:5:2
    2. ├─rvest::read_html(.)
    3. ├─gt::as_raw_html(.)
    4. │ └─gt:::stop_if_not_gt(data = data)
    5. │   └─gt:::is_gt(data)
    6. ├─gtExtras::gt_plt_bar_pct(...)
    7. │ ├─base::stopifnot(...)
    8. │ └─"gt_tbl" %in% class(gt_object)
    9. ├─gtExtras::gt_plt_bar_pct(., column = mpg_scaled, scaled = TRUE)
   10. │ ├─base::stopifnot(...)
   11. │ └─"gt_tbl" %in% class(gt_object)
   12. └─gt::gt(.)
   13.   └─gt::cols_align(data = data, align = "auto")
   14.     └─gt:::dt_boxhead_edit(data = data, var = column_names[i], column_align = align[i])
   15.       ├─base::`[[<-`(...)
   16.       └─tibble:::`[[<-.tbl_df`(...)
   17.         └─tibble:::tbl_subassign(...)
   18.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   19.             ├─base::withCallingHandlers(...)
   20.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-gt_add_divider.R:4:3'): divider has border and type ────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% rvest::read_html() at test-gt_add_divider.R:4:2
    2. ├─rvest::read_html(.)
    3. ├─gt::as_raw_html(.)
    4. │ └─gt:::stop_if_not_gt(data = data)
    5. │   └─gt:::is_gt(data)
    6. ├─gtExtras::gt_add_divider(., columns = "cyl", style = "dashed")
    7. │ ├─base::stopifnot(...)
    8. │ └─"gt_tbl" %in% class(gt_object)
    9. └─gt::gt(.)
   10.   └─gt::cols_align(data = data, align = "auto")
   11.     └─gt:::dt_boxhead_edit(data = data, var = column_names[i], column_align = align[i])
   12.       ├─base::`[[<-`(...)
   13.       └─tibble:::`[[<-.tbl_df`(...)
   14.         └─tibble:::tbl_subassign(...)
   15.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   16.             ├─base::withCallingHandlers(...)
   17.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-gt_add_divider.R:31:3'): divider has border and type on far right ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% rvest::read_html() at test-gt_add_divider.R:31:2
    2. ├─rvest::read_html(.)
    3. ├─gt::as_raw_html(.)
    4. │ └─gt:::stop_if_not_gt(data = data)
    5. │   └─gt:::is_gt(data)
    6. ├─gtExtras::gt_add_divider(...)
    7. │ ├─base::stopifnot(...)
    8. │ └─"gt_tbl" %in% class(gt_object)
    9. └─gt::gt(.)
   10.   └─gt::cols_align(data = data, align = "auto")
   11.     └─gt:::dt_boxhead_edit(data = data, var = column_names[i], column_align = align[i])
   12.       ├─base::`[[<-`(...)
   13.       └─tibble:::`[[<-.tbl_df`(...)
   14.         └─tibble:::tbl_subassign(...)
   15.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   16.             ├─base::withCallingHandlers(...)
   17.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-gt_add_divider.R:50:3'): divider has border and doesn't include labels ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% rvest::read_html() at test-gt_add_divider.R:50:2
    2. ├─rvest::read_html(.)
    3. ├─gt::as_raw_html(.)
    4. │ └─gt:::stop_if_not_gt(data = data)
    5. │   └─gt:::is_gt(data)
    6. ├─gtExtras::gt_add_divider(., columns = carb, include_labels = FALSE)
    7. │ ├─base::stopifnot(...)
    8. │ └─"gt_tbl" %in% class(gt_object)
    9. └─gt::gt(.)
   10.   └─gt::cols_align(data = data, align = "auto")
   11.     └─gt:::dt_boxhead_edit(data = data, var = column_names[i], column_align = align[i])
   12.       ├─base::`[[<-`(...)
   13.       └─tibble:::`[[<-.tbl_df`(...)
   14.         └─tibble:::tbl_subassign(...)
   15.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   16.             ├─base::withCallingHandlers(...)
   17.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-gt_color_box.R:10:3'): gt_color_box palettes are created and have appropriate hex values ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% rvest::read_html() at test-gt_color_box.R:10:2
    2. ├─rvest::read_html(.)
    3. ├─gt::as_raw_html(.)
    4. │ └─gt:::stop_if_not_gt(data = data)
    5. │   └─gt:::is_gt(data)
    6. ├─gtExtras::gt_color_box(., columns = blank, domain = 0:100, palette = NULL)
    7. │ ├─base::stopifnot(...)
    8. │ └─"gt_tbl" %in% class(gt_object)
    9. ├─gtExtras::gt_color_box(., columns = pff, domain = 0:100, palette = "pff")
   10. │ ├─base::stopifnot(...)
   11. │ └─"gt_tbl" %in% class(gt_object)
   12. ├─gtExtras::gt_color_box(...)
   13. │ ├─base::stopifnot(...)
   14. │ └─"gt_tbl" %in% class(gt_object)
   15. ├─gtExtras::gt_color_box(., columns = y, domain = 0:100, palette = "ggsci::blue_material")
   16. │ ├─base::stopifnot(...)
   17. │ └─"gt_tbl" %in% class(gt_object)
   18. └─gt::gt(.)
   19.   └─gt::cols_align(data = data, align = "auto")
   20.     └─gt:::dt_boxhead_edit(data = data, var = column_names[i], column_align = align[i])
   21.       ├─base::`[[<-`(...)
   22.       └─tibble:::`[[<-.tbl_df`(...)
   23.         └─tibble:::tbl_subassign(...)
   24.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   25.             ├─base::withCallingHandlers(...)
   26.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-gt_color_rows.R:4:3'): gt_color_rows palettes are created and have appropriate hex values ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% rvest::read_html() at test-gt_color_rows.R:4:2
    2. ├─rvest::read_html(.)
    3. ├─gt::as_raw_html(.)
    4. │ └─gt:::stop_if_not_gt(data = data)
    5. │   └─gt:::is_gt(data)
    6. ├─gtExtras::gt_color_rows(., mpg, domain = range(mtcars$mpg))
    7. │ ├─base::stopifnot(...)
    8. │ └─"gt_tbl" %in% class(gt_object)
    9. └─gt::gt(.)
   10.   └─gt::cols_align(data = data, align = "auto")
   11.     └─gt:::dt_boxhead_edit(data = data, var = column_names[i], column_align = align[i])
   12.       ├─base::`[[<-`(...)
   13.       └─tibble:::`[[<-.tbl_df`(...)
   14.         └─tibble:::tbl_subassign(...)
   15.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   16.             ├─base::withCallingHandlers(...)
   17.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-gt_dot_bar.R:4:3'): gt_plt_bullet SVG is created and has specific values ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% rvest::read_html() at test-gt_dot_bar.R:4:2
    2. ├─rvest::read_html(.)
    3. ├─gt::as_raw_html(.)
    4. │ └─gt:::stop_if_not_gt(data = data)
    5. │   └─gt:::is_gt(data)
    6. ├─gtExtras::gt_plt_dot(., disp, cars, palette = "ggthemes::fivethirtyeight")
    7. │ ├─base::stopifnot(...)
    8. │ └─"gt_tbl" %in% class(gt_object)
    9. └─gt::gt(.)
   10.   └─gt::cols_align(data = data, align = "auto")
   11.     └─gt:::dt_boxhead_edit(data = data, var = column_names[i], column_align = align[i])
   12.       ├─base::`[[<-`(...)
   13.       └─tibble:::`[[<-.tbl_df`(...)
   14.         └─tibble:::tbl_subassign(...)
   15.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   16.             ├─base::withCallingHandlers(...)
   17.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-gt_duplicate_column.R:4:3'): duplicate column, confirm column exists and matches ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% rvest::read_html() at test-gt_duplicate_column.R:4:2
    2. ├─rvest::read_html(.)
    3. ├─gt::as_raw_html(.)
    4. │ └─gt:::stop_if_not_gt(data = data)
    5. │   └─gt:::is_gt(data)
    6. ├─gtExtras::gt_duplicate_column(., mpg, after = disp, append_text = "2")
    7. │ ├─base::stopifnot(...)
    8. │ └─"gt_tbl" %in% class(gt_object)
    9. └─gt::gt(.)
   10.   └─gt::cols_align(data = data, align = "auto")
   11.     └─gt:::dt_boxhead_edit(data = data, var = column_names[i], column_align = align[i])
   12.       ├─base::`[[<-`(...)
   13.       └─tibble:::`[[<-.tbl_df`(...)
   14.         └─tibble:::tbl_subassign(...)
   15.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   16.             ├─base::withCallingHandlers(...)
   17.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-gt_duplicate_column.R:26:3'): duplicate column, check dupe_name ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% rvest::read_html() at test-gt_duplicate_column.R:26:2
    2. ├─rvest::read_html(.)
    3. ├─gt::as_raw_html(.)
    4. │ └─gt:::stop_if_not_gt(data = data)
    5. │   └─gt:::is_gt(data)
    6. ├─gtExtras::gt_duplicate_column(., disp, after = mpg, dupe_name = "my_column")
    7. │ ├─base::stopifnot(...)
    8. │ └─"gt_tbl" %in% class(gt_object)
    9. └─gt::gt(.)
   10.   └─gt::cols_align(data = data, align = "auto")
   11.     └─gt:::dt_boxhead_edit(data = data, var = column_names[i], column_align = align[i])
   12.       ├─base::`[[<-`(...)
   13.       └─tibble:::`[[<-.tbl_df`(...)
   14.         └─tibble:::tbl_subassign(...)
   15.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   16.             ├─base::withCallingHandlers(...)
   17.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-gt_highlight_cols.R:4:3'): gt_highlight_row correct row is highlighted and is blue ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% rvest::read_html() at test-gt_highlight_cols.R:4:2
    2. ├─rvest::read_html(.)
    3. ├─gt::as_raw_html(.)
    4. │ └─gt:::stop_if_not_gt(data = data)
    5. │   └─gt:::is_gt(data)
    6. ├─gtExtras::gt_highlight_cols(., cyl, fill = "red", alpha = 0.5)
    7. │ ├─base::stopifnot(...)
    8. │ └─"gt_tbl" %in% class(gt_object)
    9. └─gt::gt(head(mtcars))
   10.   └─gt::cols_align(data = data, align = "auto")
   11.     └─gt:::dt_boxhead_edit(data = data, var = column_names[i], column_align = align[i])
   12.       ├─base::`[[<-`(...)
   13.       └─tibble:::`[[<-.tbl_df`(...)
   14.         └─tibble:::tbl_subassign(...)
   15.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   16.             ├─base::withCallingHandlers(...)
   17.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-gt_highlight_rows.R:4: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. ├─gt::gt(my_car) %>% gt_highlight_rows(rows = 2, font_weight = "normal") at test-gt_highlight_rows.R:4:0
    2. ├─gtExtras::gt_highlight_rows(., rows = 2, font_weight = "normal")
    3. │ ├─base::stopifnot(...)
    4. │ └─"gt_tbl" %in% class(gt_object)
    5. └─gt::gt(my_car)
    6.   └─gt::cols_align(data = data, align = "auto")
    7.     └─gt:::dt_boxhead_edit(data = data, var = column_names[i], column_align = align[i])
    8.       ├─base::`[[<-`(...)
    9.       └─tibble:::`[[<-.tbl_df`(...)
   10.         └─tibble:::tbl_subassign(...)
   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-gt_hulk_color.R:15:2'): Hulk palette is created and has appropriate hex values ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─mtcars %>% head() %>% gt::gt() %>% gt_hulk_col_numeric(mpg) at test-gt_hulk_color.R:15:1
    2. ├─gtExtras::gt_hulk_col_numeric(., mpg)
    3. │ ├─base::stopifnot(`Input must be a gt table` = "gt_tbl" %in% class(gt_object))
    4. │ └─"gt_tbl" %in% class(gt_object)
    5. └─gt::gt(.)
    6.   └─gt::cols_align(data = data, align = "auto")
    7.     └─gt:::dt_boxhead_edit(data = data, var = column_names[i], column_align = align[i])
    8.       ├─base::`[[<-`(...)
    9.       └─tibble:::`[[<-.tbl_df`(...)
   10.         └─tibble:::tbl_subassign(...)
   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-gt_index.R:29:3'): gt_index has correct inputs, correct ouput index, and can affect correct rows ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─sliced_data %>% gt::gt(groupname_col = "cyl") at test-gt_index.R:29:2
    2. └─gt::gt(., groupname_col = "cyl")
    3.   └─gt:::dt_stub_df_init(...)
    4.     └─gt:::dt_boxhead_set_row_group(data = data, vars = groupname_col)
    5.       ├─base::`[<-`(...)
    6.       └─tibble:::`[<-.tbl_df`(...)
    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-gt_pct_bar.R:20:3'): gt_pct_bar SVG is created and has specific values ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% rvest::read_html() at test-gt_pct_bar.R:20:2
    2. ├─rvest::read_html(.)
    3. ├─gt::as_raw_html(.)
    4. │ └─gt:::stop_if_not_gt(data = data)
    5. │   └─gt:::is_gt(data)
    6. ├─gtExtras::gt_plt_bar_stack(., column = list_data)
    7. │ ├─base::stopifnot(...)
    8. │ └─"gt_tbl" %in% class(gt_object)
    9. └─gt::gt(.)
   10.   └─gt::cols_align(data = data, align = "auto")
   11.     └─gt:::dt_boxhead_edit(data = data, var = column_names[i], column_align = align[i])
   12.       ├─base::`[[<-`(...)
   13.       └─tibble:::`[[<-.tbl_df`(...)
   14.         └─tibble:::tbl_subassign(...)
   15.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   16.             ├─base::withCallingHandlers(...)
   17.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-gt_pct_bar.R:64:3'): gt_pct_bar SVG is created and has specific palette ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% rvest::read_html() at test-gt_pct_bar.R:64:2
    2. ├─rvest::read_html(.)
    3. ├─gt::as_raw_html(.)
    4. │ └─gt:::stop_if_not_gt(data = data)
    5. │   └─gt:::is_gt(data)
    6. ├─gtExtras::gt_plt_bar_stack(...)
    7. │ ├─base::stopifnot(...)
    8. │ └─"gt_tbl" %in% class(gt_object)
    9. └─gt::gt(.)
   10.   └─gt::cols_align(data = data, align = "auto")
   11.     └─gt:::dt_boxhead_edit(data = data, var = column_names[i], column_align = align[i])
   12.       ├─base::`[[<-`(...)
   13.       └─tibble:::`[[<-.tbl_df`(...)
   14.         └─tibble:::tbl_subassign(...)
   15.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   16.             ├─base::withCallingHandlers(...)
   17.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-gt_plt_bar.R:4:3'): gt_plt_bar svg is created and has specific values ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% rvest::read_html() at test-gt_plt_bar.R:4:2
    2. ├─rvest::read_html(.)
    3. ├─gt::as_raw_html(.)
    4. │ └─gt:::stop_if_not_gt(data = data)
    5. │   └─gt:::is_gt(data)
    6. ├─gtExtras::gt_plt_bar(., column = mpg, keep_column = TRUE)
    7. │ ├─base::stopifnot(...)
    8. │ └─"gt_tbl" %in% class(gt_object)
    9. └─gt::gt(.)
   10.   └─gt::cols_align(data = data, align = "auto")
   11.     └─gt:::dt_boxhead_edit(data = data, var = column_names[i], column_align = align[i])
   12.       ├─base::`[[<-`(...)
   13.       └─tibble:::`[[<-.tbl_df`(...)
   14.         └─tibble:::tbl_subassign(...)
   15.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   16.             ├─base::withCallingHandlers(...)
   17.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-gt_plt_bullet.R:4:3'): gt_plt_bullet SVG is created and has specific values ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% rvest::read_html() at test-gt_plt_bullet.R:4:2
    2. ├─rvest::read_html(.)
    3. ├─gt::as_raw_html(.)
    4. │ └─gt:::stop_if_not_gt(data = data)
    5. │   └─gt:::is_gt(data)
    6. ├─gtExtras::gt_plt_bullet(...)
    7. │ ├─base::stopifnot(...)
    8. │ └─"gt_tbl" %in% class(gt_object)
    9. └─gt::gt(.)
   10.   └─gt:::dt_stub_df_init(...)
   11.     └─gt:::dt_boxhead_set_stub(data = data, var = rowname_col)
   12.       ├─base::`[<-`(`*tmp*`, which(dt_boxhead$var == var), "type", value = `<chr>`)
   13.       └─tibble:::`[<-.tbl_df`(...)
   14.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   15.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   16.             ├─base::withCallingHandlers(...)
   17.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-gt_plt_conf_int.R:4:3'): gt_plt_conf_int generates correct points/text ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% rvest::read_html() at test-gt_plt_conf_int.R:4:2
    2. ├─rvest::read_html(.)
    3. ├─gt::as_raw_html(.)
    4. │ └─gt:::stop_if_not_gt(data = data)
    5. │   └─gt:::is_gt(data)
    6. ├─gtExtras::gt_plt_conf_int(., list_data, ci = 0.9)
    7. │ └─gtExtras::gt_index(...)
    8. │   ├─base::stopifnot(...)
    9. │   └─"gt_tbl" %in% class(gt_object)
   10. └─gt::gt(.)
   11.   └─gt::cols_align(data = data, align = "auto")
   12.     └─gt:::dt_boxhead_edit(data = data, var = column_names[i], column_align = align[i])
   13.       ├─base::`[[<-`(...)
   14.       └─tibble:::`[[<-.tbl_df`(...)
   15.         └─tibble:::tbl_subassign(...)
   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-gt_plt_conf_int.R:54:3'): gt_plt_conf_int uses correct points/text/colors ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% rvest::read_html() at test-gt_plt_conf_int.R:54:2
    2. ├─rvest::read_html(.)
    3. ├─gt::as_raw_html(.)
    4. │ └─gt:::stop_if_not_gt(data = data)
    5. │   └─gt:::is_gt(data)
    6. ├─gtExtras::gt_plt_conf_int(...)
    7. │ └─gtExtras::gt_index(...)
    8. │   ├─base::stopifnot(...)
    9. │   └─"gt_tbl" %in% class(gt_object)
   10. └─gt::gt(.)
   11.   └─gt::cols_align(data = data, align = "auto")
   12.     └─gt:::dt_boxhead_edit(data = data, var = column_names[i], column_align = align[i])
   13.       ├─base::`[[<-`(...)
   14.       └─tibble:::`[[<-.tbl_df`(...)
   15.         └─tibble:::tbl_subassign(...)
   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-gt_plt_dist.R:4:3'): svg is created ────────────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% gt() at test-gt_plt_dist.R:4:2
    2. └─gt::gt(.)
    3.   └─gt::cols_align(data = data, align = "auto")
    4.     └─gt:::dt_boxhead_edit(data = data, var = column_names[i], column_align = align[i])
    5.       ├─base::`[[<-`(...)
    6.       └─tibble:::`[[<-.tbl_df`(...)
    7.         └─tibble:::tbl_subassign(...)
    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-gt_plt_percentile_dot.R:50:3'): gt_plt_percentile works as intended ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% rvest::read_html() at test-gt_plt_percentile_dot.R:50:2
    2. ├─rvest::read_html(.)
    3. ├─gt::as_raw_html(.)
    4. │ └─gt:::stop_if_not_gt(data = data)
    5. │   └─gt:::is_gt(data)
    6. ├─gtExtras::gt_plt_percentile(., dot_plot)
    7. │ └─gt_object %>% ...
    8. ├─gt::text_transform(...)
    9. │ └─gt:::stop_if_not_gt(data = data)
   10. │   └─gt:::is_gt(data)
   11. ├─gtExtras::gt_duplicate_column(., x, dupe_name = "dot_plot")
   12. │ ├─base::stopifnot(...)
   13. │ └─"gt_tbl" %in% class(gt_object)
   14. └─gt::gt(.)
   15.   └─gt::cols_align(data = data, align = "auto")
   16.     └─gt:::dt_boxhead_edit(data = data, var = column_names[i], column_align = align[i])
   17.       ├─base::`[[<-`(...)
   18.       └─tibble:::`[[<-.tbl_df`(...)
   19.         └─tibble:::tbl_subassign(...)
   20.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   21.             ├─base::withCallingHandlers(...)
   22.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-gt_plt_point.R:48:3'): gt_plt_point works as intended ──────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% rvest::read_html() at test-gt_plt_point.R:48:2
    2. ├─rvest::read_html(.)
    3. ├─gt::as_raw_html(.)
    4. │ └─gt:::stop_if_not_gt(data = data)
    5. │   └─gt:::is_gt(data)
    6. ├─gtExtras::gt_plt_point(., point_plot, accuracy = 0.1, width = 25)
    7. │ └─gtExtras::gt_index(...)
    8. │   ├─base::stopifnot(...)
    9. │   └─"gt_tbl" %in% class(gt_object)
   10. ├─gtExtras::gt_duplicate_column(., x, dupe_name = "point_plot")
   11. │ ├─base::stopifnot(...)
   12. │ └─"gt_tbl" %in% class(gt_object)
   13. └─gt::gt(.)
   14.   └─gt::cols_align(data = data, align = "auto")
   15.     └─gt:::dt_boxhead_edit(data = data, var = column_names[i], column_align = align[i])
   16.       ├─base::`[[<-`(...)
   17.       └─tibble:::`[[<-.tbl_df`(...)
   18.         └─tibble:::tbl_subassign(...)
   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]])
  ── Error ('test-gt_plt_sparkline.R:4:3'): svg is created and has specific values ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% gt() at test-gt_plt_sparkline.R:4:2
    2. └─gt::gt(.)
    3.   └─gt::cols_align(data = data, align = "auto")
    4.     └─gt:::dt_boxhead_edit(data = data, var = column_names[i], column_align = align[i])
    5.       ├─base::`[[<-`(...)
    6.       └─tibble:::`[[<-.tbl_df`(...)
    7.         └─tibble:::tbl_subassign(...)
    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-gt_win_loss.R:12:3'): SVG exists and has expected values ───────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% rvest::read_html() at test-gt_win_loss.R:12:2
    2. ├─rvest::read_html(.)
    3. ├─gt::as_raw_html(.)
    4. │ └─gt:::stop_if_not_gt(data = data)
    5. │   └─gt:::is_gt(data)
    6. ├─gtExtras::gt_plt_winloss(., wins)
    7. │ ├─base::stopifnot(...)
    8. │ └─"gt_tbl" %in% class(gt_object)
    9. └─gt::gt(.)
   10.   └─gt::cols_align(data = data, align = "auto")
   11.     └─gt:::dt_boxhead_edit(data = data, var = column_names[i], column_align = align[i])
   12.       ├─base::`[[<-`(...)
   13.       └─tibble:::`[[<-.tbl_df`(...)
   14.         └─tibble:::tbl_subassign(...)
   15.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   16.             ├─base::withCallingHandlers(...)
   17.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-gt_win_loss.R:71:3'): SVG exists and has expected colors ───────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% rvest::read_html() at test-gt_win_loss.R:71:2
    2. ├─rvest::read_html(.)
    3. ├─gt::as_raw_html(.)
    4. │ └─gt:::stop_if_not_gt(data = data)
    5. │   └─gt:::is_gt(data)
    6. ├─gtExtras::gt_plt_winloss(...)
    7. │ ├─base::stopifnot(...)
    8. │ └─"gt_tbl" %in% class(gt_object)
    9. └─gt::gt(.)
   10.   └─gt::cols_align(data = data, align = "auto")
   11.     └─gt:::dt_boxhead_edit(data = data, var = column_names[i], column_align = align[i])
   12.       ├─base::`[[<-`(...)
   13.       └─tibble:::`[[<-.tbl_df`(...)
   14.         └─tibble:::tbl_subassign(...)
   15.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   16.             ├─base::withCallingHandlers(...)
   17.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-html-helpers.R:52:3'): badge color is created and accurate in gt ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% rvest::read_html() at test-html-helpers.R:52:2
    2. ├─rvest::read_html(.)
    3. ├─gt::as_raw_html(.)
    4. │ └─gt:::stop_if_not_gt(data = data)
    5. │   └─gt:::is_gt(data)
    6. ├─gtExtras::gt_badge(...)
    7. │ ├─base::stopifnot(...)
    8. │ └─"gt_tbl" %in% class(gt_object)
    9. └─gt::gt(.)
   10.   └─gt::cols_align(data = data, align = "auto")
   11.     └─gt:::dt_boxhead_edit(data = data, var = column_names[i], column_align = align[i])
   12.       ├─base::`[[<-`(...)
   13.       └─tibble:::`[[<-.tbl_df`(...)
   14.         └─tibble:::tbl_subassign(...)
   15.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   16.             ├─base::withCallingHandlers(...)
   17.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-merge_and_stack.R:4:3'): merge_stack, vals match expected and location ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% rvest::read_html() at test-merge_and_stack.R:4:2
    2. ├─rvest::read_html(.)
    3. ├─gt::as_raw_html(.)
    4. │ └─gt:::stop_if_not_gt(data = data)
    5. │   └─gt:::is_gt(data)
    6. ├─gtExtras::gt_merge_stack(., cars, mpg)
    7. │ ├─base::stopifnot(...)
    8. │ └─"gt_tbl" %in% class(gt_object)
    9. └─gt::gt(.)
   10.   └─gt::cols_align(data = data, align = "auto")
   11.     └─gt:::dt_boxhead_edit(data = data, var = column_names[i], column_align = align[i])
   12.       ├─base::`[[<-`(...)
   13.       └─tibble:::`[[<-.tbl_df`(...)
   14.         └─tibble:::tbl_subassign(...)
   15.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   16.             ├─base::withCallingHandlers(...)
   17.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-tab_style_by_grp.R:11:3'): tab_style_by_grp, groups respected ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% rvest::read_html() at test-tab_style_by_grp.R:11:2
    2. ├─rvest::read_html(.)
    3. ├─gt::as_raw_html(.)
    4. │ └─gt:::stop_if_not_gt(data = data)
    5. │   └─gt:::is_gt(data)
    6. ├─gtExtras::tab_style_by_grp(...)
    7. │ ├─base::stopifnot(...)
    8. │ └─"gt_tbl" %in% class(gt_object)
    9. └─gt::gt(., groupname_col = "cyl")
   10.   └─gt:::dt_stub_df_init(...)
   11.     └─gt:::dt_boxhead_set_stub(data = data, var = rowname_col)
   12.       ├─base::`[<-`(`*tmp*`, which(dt_boxhead$var == var), "type", value = `<chr>`)
   13.       └─tibble:::`[<-.tbl_df`(...)
   14.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   15.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   16.             ├─base::withCallingHandlers(...)
   17.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  
  [ FAIL 28 | WARN 0 | SKIP 23 | PASS 37 ]
  Error: Test failures
  Execution halted