Running ‘testthat.R’ [6s/9s]
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(gto)
  > 
  > test_check("gto")
  [ FAIL 14 | WARN 0 | SKIP 3 | PASS 0 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • Only done in devel gt at this point (2)
  • Seems to be issues with gt v0.8.0, and is fixed in devel version point (1)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-word.R:20:3'): tables can be added to a word doc ───────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─gt::exibble[1:2, ] %>% gt::gt() %>% ... at test-word.R:20:2
    2. ├─gt::tab_header(., title = "table title", subtitle = "table subtitle")
    3. │ └─gt:::stop_if_not_gt(data = data)
    4. │   └─gt:::is_gt(data)
    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-word.R:114:3'): tables can be added to a word doc - position 'before' ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─gt::exibble[1:2, ] %>% gt::gt() %>% ... at test-word.R:114:2
    2. ├─gt::tab_header(., title = "table title", subtitle = "table subtitle")
    3. │ └─gt:::stop_if_not_gt(data = data)
    4. │   └─gt:::is_gt(data)
    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-word.R:221:3'): tables with special characters can be added to a word doc ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% ... at test-word.R:221:2
    2. ├─gt::tab_header(., title = "table title", subtitle = "table subtitle")
    3. │ └─gt:::stop_if_not_gt(data = data)
    4. │   └─gt:::is_gt(data)
    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-word.R:307:3'): tables with embedded titles can be added to a word doc ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─gt::exibble[1:2, ] %>% gt::gt() %>% ... at test-word.R:307:2
    2. ├─gt::tab_header(., title = "table title", subtitle = "table subtitle")
    3. │ └─gt:::stop_if_not_gt(data = data)
    4. │   └─gt:::is_gt(data)
    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-word.R:394:3'): tables with spans can be added to a word doc ───
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% gt::tab_spanner("My Column Span", columns = 3:5) at test-word.R:394:2
    2. ├─gt::tab_spanner(., "My Column Span", columns = 3:5)
    3. │ └─gt:::stop_if_not_gt(data = data)
    4. │   └─gt:::is_gt(data)
    5. ├─gt::tab_header(., title = "table title", subtitle = "table subtitle")
    6. │ └─gt:::stop_if_not_gt(data = data)
    7. │   └─gt:::is_gt(data)
    8. └─gt::gt(.)
    9.   └─gt::cols_align(data = data, align = "auto")
   10.     └─gt:::dt_boxhead_edit(data = data, var = column_names[i], column_align = align[i])
   11.       ├─base::`[[<-`(...)
   12.       └─tibble:::`[[<-.tbl_df`(...)
   13.         └─tibble:::tbl_subassign(...)
   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]])
  ── Error ('test-word.R:490:3'): tables with multi-level spans can be added to a word doc ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% ... at test-word.R:490:2
    2. ├─gt::tab_spanner(., "My 2nd Column Span L1", columns = 8:9)
    3. │ └─gt:::stop_if_not_gt(data = data)
    4. │   └─gt:::is_gt(data)
    5. ├─gt::tab_spanner(., "My Column Span L2", columns = 2:5, level = 2)
    6. │ └─gt:::stop_if_not_gt(data = data)
    7. │   └─gt:::is_gt(data)
    8. ├─gt::tab_spanner(., "My 1st Column Span L1", columns = 1:5)
    9. │ └─gt:::stop_if_not_gt(data = data)
   10. │   └─gt:::is_gt(data)
   11. ├─gt::tab_header(., title = "table title", subtitle = "table subtitle")
   12. │ └─gt:::stop_if_not_gt(data = data)
   13. │   └─gt:::is_gt(data)
   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-word.R:595:3'): tables with summaries can be added to a word doc ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% ... at test-word.R:595:2
    2. ├─gt::summary_rows(...)
    3. │ └─gt:::stop_if_not_gt(data = data)
    4. │   └─gt:::is_gt(data)
    5. └─gt::gt(., rowname_col = "row", groupname_col = "group")
    6.   └─gt:::dt_stub_df_init(...)
    7.     └─gt:::dt_boxhead_set_stub(data = data, var = rowname_col)
    8.       ├─base::`[<-`(`*tmp*`, which(dt_boxhead$var == var), "type", value = `<chr>`)
    9.       └─tibble:::`[<-.tbl_df`(...)
   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-word.R:678:3'): tables with footnotes can be added to a word doc ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% ... at test-word.R:678:2
    2. ├─gt::tab_footnote(...)
    3. │ └─gt:::stop_if_not_gt(data = data)
    4. │   └─gt:::is_gt(data)
    5. ├─gt::tab_footnote(...)
    6. │ └─gt:::stop_if_not_gt(data = data)
    7. │   └─gt:::is_gt(data)
    8. └─gt::gt(.)
    9.   └─gt::cols_align(data = data, align = "auto")
   10.     └─gt:::dt_boxhead_edit(data = data, var = column_names[i], column_align = align[i])
   11.       ├─base::`[[<-`(...)
   12.       └─tibble:::`[[<-.tbl_df`(...)
   13.         └─tibble:::tbl_subassign(...)
   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]])
  ── Error ('test-word.R:781:3'): tables with source notes can be added to a word doc ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─gt::exibble[1:2, ] %>% gt::gt() %>% ... at test-word.R:781:2
    2. ├─gt::tab_source_note(., source_note = "this is a source note example")
    3. │ └─gt:::stop_if_not_gt(data = data)
    4. │   └─gt:::is_gt(data)
    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-word.R:868:3'): long tables can be added to a word doc ─────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% gt::tab_header(title = "LETTERS") at test-word.R:868:2
    2. ├─gt::tab_header(., title = "LETTERS")
    3. │ └─gt:::stop_if_not_gt(data = data)
    4. │   └─gt:::is_gt(data)
    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-word.R:937:3'): long tables with spans can be added to a word doc ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% gt::tab_spanner("LETTERS", columns = 1:2) at test-word.R:937:2
    2. ├─gt::tab_spanner(., "LETTERS", columns = 1:2)
    3. │ └─gt:::stop_if_not_gt(data = data)
    4. │   └─gt:::is_gt(data)
    5. ├─gt::tab_header(., title = "LETTERS")
    6. │ └─gt:::stop_if_not_gt(data = data)
    7. │   └─gt:::is_gt(data)
    8. └─gt::gt(.)
    9.   └─gt::cols_align(data = data, align = "auto")
   10.     └─gt:::dt_boxhead_edit(data = data, var = column_names[i], column_align = align[i])
   11.       ├─base::`[[<-`(...)
   12.       └─tibble:::`[[<-.tbl_df`(...)
   13.         └─tibble:::tbl_subassign(...)
   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]])
  ── Error ('test-word.R:1010:3'): tables with cell & text coloring can be added to a word doc - no spanner ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% ... at test-word.R:1010:2
    2. ├─gt::tab_style(., style = cell_fill(color = "pink"), locations = cells_stubhead())
    3. │ └─gt:::stop_if_not_gt(data = data)
    4. │   └─gt:::is_gt(data)
    5. ├─gt::tab_style(., style = cell_fill(color = "green"), locations = cells_column_labels())
    6. │ └─gt:::stop_if_not_gt(data = data)
    7. │   └─gt:::is_gt(data)
    8. ├─gt::tab_style(., style = cell_text(color = "teal"), locations = cells_column_labels())
    9. │ └─gt:::stop_if_not_gt(data = data)
   10. │   └─gt:::is_gt(data)
   11. ├─gt::tab_style(...)
   12. │ └─gt:::stop_if_not_gt(data = data)
   13. │   └─gt:::is_gt(data)
   14. ├─gt::tab_style(...)
   15. │ └─gt:::stop_if_not_gt(data = data)
   16. │   └─gt:::is_gt(data)
   17. ├─gt::tab_style(...)
   18. │ └─gt:::stop_if_not_gt(data = data)
   19. │   └─gt:::is_gt(data)
   20. ├─gt::tab_style(...)
   21. │ └─gt:::stop_if_not_gt(data = data)
   22. │   └─gt:::is_gt(data)
   23. ├─gt::tab_row_group(., "My Row Group 2", c(3:4))
   24. │ └─gt:::stop_if_not_gt(data = data)
   25. │   └─gt:::is_gt(data)
   26. ├─gt::tab_row_group(., "My Row Group 1", c(1:2))
   27. │ └─gt:::stop_if_not_gt(data = data)
   28. │   └─gt:::is_gt(data)
   29. └─gt::gt(., rowname_col = "char")
   30.   └─gt:::dt_stub_df_init(...)
   31.     └─gt:::dt_boxhead_set_stub(data = data, var = rowname_col)
   32.       ├─base::`[<-`(`*tmp*`, which(dt_boxhead$var == var), "type", value = `<chr>`)
   33.       └─tibble:::`[<-.tbl_df`(...)
   34.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   35.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   36.             ├─base::withCallingHandlers(...)
   37.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-word.R:1194:3'): tables with cell & text coloring can be added to a word doc - with spanners ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% ... at test-word.R:1194:2
    2. ├─gt::tab_style(., style = cell_fill(color = "pink"), locations = cells_stubhead())
    3. │ └─gt:::stop_if_not_gt(data = data)
    4. │   └─gt:::is_gt(data)
    5. ├─gt::tab_style(., style = cell_fill(color = "red"), locations = cells_column_spanners("My Span Label top"))
    6. │ └─gt:::stop_if_not_gt(data = data)
    7. │   └─gt:::is_gt(data)
    8. ├─gt::tab_style(., style = cell_fill(color = "orange"), locations = cells_column_spanners("My Span Label"))
    9. │ └─gt:::stop_if_not_gt(data = data)
   10. │   └─gt:::is_gt(data)
   11. ├─gt::tab_style(., style = cell_fill(color = "green"), locations = cells_column_labels())
   12. │ └─gt:::stop_if_not_gt(data = data)
   13. │   └─gt:::is_gt(data)
   14. ├─gt::tab_style(., style = cell_text(color = "purple"), locations = cells_column_labels())
   15. │ └─gt:::stop_if_not_gt(data = data)
   16. │   └─gt:::is_gt(data)
   17. ├─gt::tab_spanner(., "My Span Label top", columns = 2:4, level = 2)
   18. │ └─gt:::stop_if_not_gt(data = data)
   19. │   └─gt:::is_gt(data)
   20. ├─gt::tab_spanner(., "My Span Label", columns = 1:5)
   21. │ └─gt:::stop_if_not_gt(data = data)
   22. │   └─gt:::is_gt(data)
   23. ├─gt::tab_row_group(., "My Row Group 2", c(3:4))
   24. │ └─gt:::stop_if_not_gt(data = data)
   25. │   └─gt:::is_gt(data)
   26. ├─gt::tab_row_group(., "My Row Group 1", c(1:2))
   27. │ └─gt:::stop_if_not_gt(data = data)
   28. │   └─gt:::is_gt(data)
   29. └─gt::gt(., rowname_col = "char")
   30.   └─gt:::dt_stub_df_init(...)
   31.     └─gt:::dt_boxhead_set_stub(data = data, var = rowname_col)
   32.       ├─base::`[<-`(`*tmp*`, which(dt_boxhead$var == var), "type", value = `<chr>`)
   33.       └─tibble:::`[<-.tbl_df`(...)
   34.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   35.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   36.             ├─base::withCallingHandlers(...)
   37.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-word.R:1289:3'): tables with cell & text coloring can be added to a word doc - with source_notes and footnotes ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% ... at test-word.R:1289:2
    2. ├─gt::tab_style(., style = cell_text(color = "purple"), locations = cells_footnotes())
    3. │ └─gt:::stop_if_not_gt(data = data)
    4. │   └─gt:::is_gt(data)
    5. ├─gt::tab_style(., style = cell_text(color = "orange"), locations = cells_source_notes())
    6. │ └─gt:::stop_if_not_gt(data = data)
    7. │   └─gt:::is_gt(data)
    8. ├─gt::tab_footnote(., "My Footnote 2", locations = cells_column_labels(1))
    9. │ └─gt:::stop_if_not_gt(data = data)
   10. │   └─gt:::is_gt(data)
   11. ├─gt::tab_footnote(., "My Footnote")
   12. │ └─gt:::stop_if_not_gt(data = data)
   13. │   └─gt:::is_gt(data)
   14. ├─gt::tab_source_note(., "My Source Note")
   15. │ └─gt:::stop_if_not_gt(data = data)
   16. │   └─gt:::is_gt(data)
   17. └─gt::gt(.)
   18.   └─gt::cols_align(data = data, align = "auto")
   19.     └─gt:::dt_boxhead_edit(data = data, var = column_names[i], column_align = align[i])
   20.       ├─base::`[[<-`(...)
   21.       └─tibble:::`[[<-.tbl_df`(...)
   22.         └─tibble:::tbl_subassign(...)
   23.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   24.             ├─base::withCallingHandlers(...)
   25.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  
  [ FAIL 14 | WARN 0 | SKIP 3 | PASS 0 ]
  Error: Test failures
  Execution halted