Running ‘spelling.R’ [0s/1s]
  Running ‘testthat.R’ [17s/23s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(tidyCDISC)
  > library(shinyjs)
  
  Attaching package: 'shinyjs'
  
  The following objects are masked from 'package:methods':
  
      removeClass, show
  
  > 
  > test_check("tidyCDISC")
  [ FAIL 7 | WARN 8 | SKIP 15 | PASS 74 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • empty test (15)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-mod_dataComply_fct_helpers.R:55:3'): gather_reqs Return Classes ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-mod_dataComply_fct_helpers.R:55:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─tidyCDISC:::gather_reqs(...)
    5. │ └─... %>% ...
    6. ├─gt::tab_style(., style = gt::cell_text(weight = "bold"), locations = gt::cells_row_groups())
    7. │ └─gt:::stop_if_not_gt(data = data)
    8. │   └─gt:::is_gt(data)
    9. ├─gt::cols_align(., "center")
   10. │ └─gt:::stop_if_not_gt(data = data)
   11. │   └─gt:::is_gt(data)
   12. ├─gt::tab_style(., style = gt::cell_text(weight = "bold"), locations = gt::cells_stubhead())
   13. │ └─gt:::stop_if_not_gt(data = data)
   14. │   └─gt:::is_gt(data)
   15. ├─gt::tab_stubhead(., label = "Data")
   16. │ └─gt:::stop_if_not_gt(data = data)
   17. │   └─gt:::is_gt(data)
   18. ├─gt::tab_header(...)
   19. │ └─gt:::stop_if_not_gt(data = data)
   20. │   └─gt:::is_gt(data)
   21. ├─gt::text_transform(...)
   22. │ └─gt:::stop_if_not_gt(data = data)
   23. │   └─gt:::is_gt(data)
   24. ├─gt::cols_label(., not_exist_disp = "Doesn't Exist", missing_disp = "Missing Data")
   25. │ └─gt:::stop_if_not_gt(data = .data)
   26. │   └─gt:::is_gt(data)
   27. └─gt::gt(., rowname_col = "type_col", groupname_col = "df")
   28.   └─gt:::dt_stub_df_init(...)
   29.     └─gt:::dt_boxhead_set_stub(data = data, var = rowname_col)
   30.       ├─base::`[<-`(`*tmp*`, which(dt_boxhead$var == var), "type", value = `<chr>`)
   31.       └─tibble:::`[<-.tbl_df`(...)
   32.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   33.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   34.             ├─base::withCallingHandlers(...)
   35.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-mod_dataComply_fct_helpers.R:113:3'): gather_reqs errors return expectations for all_df_rules ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_output(...) at test-mod_dataComply_fct_helpers.R:113:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─testthat::capture_output_lines(code, print, width = width)
    5. │   │   └─testthat:::eval_with_output(code, print = print, width = width)
    6. │   │     ├─withr::with_output_sink(path, withVisible(code))
    7. │   │     │ └─base::force(code)
    8. │   │     └─base::withVisible(code)
    9. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
   10. ├─utils::str(...)
   11. ├─tidyCDISC:::gather_reqs(...)
   12. │ └─... %>% ...
   13. ├─gt::tab_style(., style = gt::cell_text(weight = "bold"), locations = gt::cells_row_groups())
   14. │ └─gt:::stop_if_not_gt(data = data)
   15. │   └─gt:::is_gt(data)
   16. ├─gt::cols_align(., "center")
   17. │ └─gt:::stop_if_not_gt(data = data)
   18. │   └─gt:::is_gt(data)
   19. ├─gt::tab_style(., style = gt::cell_text(weight = "bold"), locations = gt::cells_stubhead())
   20. │ └─gt:::stop_if_not_gt(data = data)
   21. │   └─gt:::is_gt(data)
   22. ├─gt::tab_stubhead(., label = "Data")
   23. │ └─gt:::stop_if_not_gt(data = data)
   24. │   └─gt:::is_gt(data)
   25. ├─gt::tab_header(...)
   26. │ └─gt:::stop_if_not_gt(data = data)
   27. │   └─gt:::is_gt(data)
   28. ├─gt::text_transform(...)
   29. │ └─gt:::stop_if_not_gt(data = data)
   30. │   └─gt:::is_gt(data)
   31. ├─gt::cols_label(., not_exist_disp = "Doesn't Exist", missing_disp = "Missing Data")
   32. │ └─gt:::stop_if_not_gt(data = .data)
   33. │   └─gt:::is_gt(data)
   34. └─gt::gt(., rowname_col = "type_col", groupname_col = "df")
   35.   └─gt:::dt_stub_df_init(...)
   36.     └─gt:::dt_boxhead_set_stub(data = data, var = rowname_col)
   37.       ├─base::`[<-`(`*tmp*`, which(dt_boxhead$var == var), "type", value = `<chr>`)
   38.       └─tibble:::`[<-.tbl_df`(...)
   39.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   40.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   41.             ├─base::withCallingHandlers(...)
   42.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-mod_dataComply_fct_helpers.R:168:3'): gather_reqs errors return expectations for expl_rules ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_output(...) at test-mod_dataComply_fct_helpers.R:168:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─testthat::capture_output_lines(code, print, width = width)
    5. │   │   └─testthat:::eval_with_output(code, print = print, width = width)
    6. │   │     ├─withr::with_output_sink(path, withVisible(code))
    7. │   │     │ └─base::force(code)
    8. │   │     └─base::withVisible(code)
    9. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
   10. ├─utils::str(...)
   11. ├─tidyCDISC:::gather_reqs(...)
   12. │ └─... %>% ...
   13. ├─gt::tab_style(., style = gt::cell_text(weight = "bold"), locations = gt::cells_row_groups())
   14. │ └─gt:::stop_if_not_gt(data = data)
   15. │   └─gt:::is_gt(data)
   16. ├─gt::cols_align(., "center")
   17. │ └─gt:::stop_if_not_gt(data = data)
   18. │   └─gt:::is_gt(data)
   19. ├─gt::tab_style(., style = gt::cell_text(weight = "bold"), locations = gt::cells_stubhead())
   20. │ └─gt:::stop_if_not_gt(data = data)
   21. │   └─gt:::is_gt(data)
   22. ├─gt::tab_stubhead(., label = "Data")
   23. │ └─gt:::stop_if_not_gt(data = data)
   24. │   └─gt:::is_gt(data)
   25. ├─gt::tab_header(...)
   26. │ └─gt:::stop_if_not_gt(data = data)
   27. │   └─gt:::is_gt(data)
   28. ├─gt::text_transform(...)
   29. │ └─gt:::stop_if_not_gt(data = data)
   30. │   └─gt:::is_gt(data)
   31. ├─gt::cols_label(., not_exist_disp = "Doesn't Exist", missing_disp = "Missing Data")
   32. │ └─gt:::stop_if_not_gt(data = .data)
   33. │   └─gt:::is_gt(data)
   34. └─gt::gt(., rowname_col = "type_col", groupname_col = "df")
   35.   └─gt:::dt_stub_df_init(...)
   36.     └─gt:::dt_boxhead_set_stub(data = data, var = rowname_col)
   37.       ├─base::`[<-`(`*tmp*`, which(dt_boxhead$var == var), "type", value = `<chr>`)
   38.       └─tibble:::`[<-.tbl_df`(...)
   39.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   40.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   41.             ├─base::withCallingHandlers(...)
   42.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-mod_dataComply_fct_helpers.R:223:3'): gather_reqs errors return expectations for df_incl_rules ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_output(...) at test-mod_dataComply_fct_helpers.R:223:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─testthat::capture_output_lines(code, print, width = width)
    5. │   │   └─testthat:::eval_with_output(code, print = print, width = width)
    6. │   │     ├─withr::with_output_sink(path, withVisible(code))
    7. │   │     │ └─base::force(code)
    8. │   │     └─base::withVisible(code)
    9. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
   10. ├─utils::str(...)
   11. ├─tidyCDISC:::gather_reqs(...)
   12. │ └─... %>% ...
   13. ├─gt::tab_style(., style = gt::cell_text(weight = "bold"), locations = gt::cells_row_groups())
   14. │ └─gt:::stop_if_not_gt(data = data)
   15. │   └─gt:::is_gt(data)
   16. ├─gt::cols_align(., "center")
   17. │ └─gt:::stop_if_not_gt(data = data)
   18. │   └─gt:::is_gt(data)
   19. ├─gt::tab_style(., style = gt::cell_text(weight = "bold"), locations = gt::cells_stubhead())
   20. │ └─gt:::stop_if_not_gt(data = data)
   21. │   └─gt:::is_gt(data)
   22. ├─gt::tab_stubhead(., label = "Data")
   23. │ └─gt:::stop_if_not_gt(data = data)
   24. │   └─gt:::is_gt(data)
   25. ├─gt::tab_header(...)
   26. │ └─gt:::stop_if_not_gt(data = data)
   27. │   └─gt:::is_gt(data)
   28. ├─gt::text_transform(...)
   29. │ └─gt:::stop_if_not_gt(data = data)
   30. │   └─gt:::is_gt(data)
   31. ├─gt::cols_label(., not_exist_disp = "Doesn't Exist", missing_disp = "Missing Data")
   32. │ └─gt:::stop_if_not_gt(data = .data)
   33. │   └─gt:::is_gt(data)
   34. └─gt::gt(., rowname_col = "type_col", groupname_col = "df")
   35.   └─gt:::dt_stub_df_init(...)
   36.     └─gt:::dt_boxhead_set_stub(data = data, var = rowname_col)
   37.       ├─base::`[<-`(`*tmp*`, which(dt_boxhead$var == var), "type", value = `<chr>`)
   38.       └─tibble:::`[<-.tbl_df`(...)
   39.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   40.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   41.             ├─base::withCallingHandlers(...)
   42.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-mod_dataComply_fct_helpers.R:288:3'): gather_reqs warnings return expectations for all_df_rules ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_output(...) at test-mod_dataComply_fct_helpers.R:288:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─testthat::capture_output_lines(code, print, width = width)
    5. │   │   └─testthat:::eval_with_output(code, print = print, width = width)
    6. │   │     ├─withr::with_output_sink(path, withVisible(code))
    7. │   │     │ └─base::force(code)
    8. │   │     └─base::withVisible(code)
    9. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
   10. ├─utils::str(...)
   11. ├─tidyCDISC:::gather_reqs(...)
   12. │ └─... %>% ...
   13. ├─gt::tab_style(., style = gt::cell_text(weight = "bold"), locations = gt::cells_row_groups())
   14. │ └─gt:::stop_if_not_gt(data = data)
   15. │   └─gt:::is_gt(data)
   16. ├─gt::cols_align(., "center")
   17. │ └─gt:::stop_if_not_gt(data = data)
   18. │   └─gt:::is_gt(data)
   19. ├─gt::tab_style(., style = gt::cell_text(weight = "bold"), locations = gt::cells_stubhead())
   20. │ └─gt:::stop_if_not_gt(data = data)
   21. │   └─gt:::is_gt(data)
   22. ├─gt::tab_stubhead(., label = "Data")
   23. │ └─gt:::stop_if_not_gt(data = data)
   24. │   └─gt:::is_gt(data)
   25. ├─gt::tab_header(...)
   26. │ └─gt:::stop_if_not_gt(data = data)
   27. │   └─gt:::is_gt(data)
   28. ├─gt::text_transform(...)
   29. │ └─gt:::stop_if_not_gt(data = data)
   30. │   └─gt:::is_gt(data)
   31. ├─gt::cols_label(., not_exist_disp = "Doesn't Exist", missing_disp = "Missing Data")
   32. │ └─gt:::stop_if_not_gt(data = .data)
   33. │   └─gt:::is_gt(data)
   34. └─gt::gt(., rowname_col = "type_col", groupname_col = "df")
   35.   └─gt:::dt_stub_df_init(...)
   36.     └─gt:::dt_boxhead_set_stub(data = data, var = rowname_col)
   37.       ├─base::`[<-`(`*tmp*`, which(dt_boxhead$var == var), "type", value = `<chr>`)
   38.       └─tibble:::`[<-.tbl_df`(...)
   39.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   40.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   41.             ├─base::withCallingHandlers(...)
   42.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-mod_dataComply_fct_helpers.R:332:3'): gather_reqs warnings return expectations for expl_rules ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_output(...) at test-mod_dataComply_fct_helpers.R:332:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─testthat::capture_output_lines(code, print, width = width)
    5. │   │   └─testthat:::eval_with_output(code, print = print, width = width)
    6. │   │     ├─withr::with_output_sink(path, withVisible(code))
    7. │   │     │ └─base::force(code)
    8. │   │     └─base::withVisible(code)
    9. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
   10. ├─utils::str(...)
   11. ├─tidyCDISC:::gather_reqs(...)
   12. │ └─... %>% ...
   13. ├─gt::tab_style(., style = gt::cell_text(weight = "bold"), locations = gt::cells_row_groups())
   14. │ └─gt:::stop_if_not_gt(data = data)
   15. │   └─gt:::is_gt(data)
   16. ├─gt::cols_align(., "center")
   17. │ └─gt:::stop_if_not_gt(data = data)
   18. │   └─gt:::is_gt(data)
   19. ├─gt::tab_style(., style = gt::cell_text(weight = "bold"), locations = gt::cells_stubhead())
   20. │ └─gt:::stop_if_not_gt(data = data)
   21. │   └─gt:::is_gt(data)
   22. ├─gt::tab_stubhead(., label = "Data")
   23. │ └─gt:::stop_if_not_gt(data = data)
   24. │   └─gt:::is_gt(data)
   25. ├─gt::tab_header(...)
   26. │ └─gt:::stop_if_not_gt(data = data)
   27. │   └─gt:::is_gt(data)
   28. ├─gt::text_transform(...)
   29. │ └─gt:::stop_if_not_gt(data = data)
   30. │   └─gt:::is_gt(data)
   31. ├─gt::cols_label(., not_exist_disp = "Doesn't Exist", missing_disp = "Missing Data")
   32. │ └─gt:::stop_if_not_gt(data = .data)
   33. │   └─gt:::is_gt(data)
   34. └─gt::gt(., rowname_col = "type_col", groupname_col = "df")
   35.   └─gt:::dt_stub_df_init(...)
   36.     └─gt:::dt_boxhead_set_stub(data = data, var = rowname_col)
   37.       ├─base::`[<-`(`*tmp*`, which(dt_boxhead$var == var), "type", value = `<chr>`)
   38.       └─tibble:::`[<-.tbl_df`(...)
   39.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   40.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   41.             ├─base::withCallingHandlers(...)
   42.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-mod_dataComply_fct_helpers.R:375:3'): gather_reqs warnings return expectations for df_incl_rules ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_output(...) at test-mod_dataComply_fct_helpers.R:375:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─testthat::capture_output_lines(code, print, width = width)
    5. │   │   └─testthat:::eval_with_output(code, print = print, width = width)
    6. │   │     ├─withr::with_output_sink(path, withVisible(code))
    7. │   │     │ └─base::force(code)
    8. │   │     └─base::withVisible(code)
    9. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
   10. ├─utils::str(...)
   11. ├─tidyCDISC:::gather_reqs(...)
   12. │ └─... %>% ...
   13. ├─gt::tab_style(., style = gt::cell_text(weight = "bold"), locations = gt::cells_row_groups())
   14. │ └─gt:::stop_if_not_gt(data = data)
   15. │   └─gt:::is_gt(data)
   16. ├─gt::cols_align(., "center")
   17. │ └─gt:::stop_if_not_gt(data = data)
   18. │   └─gt:::is_gt(data)
   19. ├─gt::tab_style(., style = gt::cell_text(weight = "bold"), locations = gt::cells_stubhead())
   20. │ └─gt:::stop_if_not_gt(data = data)
   21. │   └─gt:::is_gt(data)
   22. ├─gt::tab_stubhead(., label = "Data")
   23. │ └─gt:::stop_if_not_gt(data = data)
   24. │   └─gt:::is_gt(data)
   25. ├─gt::tab_header(...)
   26. │ └─gt:::stop_if_not_gt(data = data)
   27. │   └─gt:::is_gt(data)
   28. ├─gt::text_transform(...)
   29. │ └─gt:::stop_if_not_gt(data = data)
   30. │   └─gt:::is_gt(data)
   31. ├─gt::cols_label(., not_exist_disp = "Doesn't Exist", missing_disp = "Missing Data")
   32. │ └─gt:::stop_if_not_gt(data = .data)
   33. │   └─gt:::is_gt(data)
   34. └─gt::gt(., rowname_col = "type_col", groupname_col = "df")
   35.   └─gt:::dt_stub_df_init(...)
   36.     └─gt:::dt_boxhead_set_stub(data = data, var = rowname_col)
   37.       ├─base::`[<-`(`*tmp*`, which(dt_boxhead$var == var), "type", value = `<chr>`)
   38.       └─tibble:::`[<-.tbl_df`(...)
   39.         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   40.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   41.             ├─base::withCallingHandlers(...)
   42.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  
  [ FAIL 7 | WARN 8 | SKIP 15 | PASS 74 ]
  Error: Test failures
  Execution halted