Running ‘spelling.R’ [0s/1s]
  Running ‘testthat.R’ [244s/387s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(visR)
  > library(vdiffr)
  > library(survival)
  > 
  > test_check("visR")
  [ FAIL 52 | WARN 24 | SKIP 27 | PASS 936 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • On CRAN (27)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Failure ('test-add_risktable.R:38:3'): T1.1 No error when a `ggsurvfit` object is passed to the function. ──
  `visR::add_risktable(visR_plot)` threw an error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(visR::add_risktable(visR_plot), NA) at test-add_risktable.R:38:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. ├─visR::add_risktable(visR_plot)
    7. ├─visR:::add_risktable.ggtidycuminc(visR_plot)
    8. │ ├─visR::get_risktable(...)
    9. │ └─visR:::get_risktable.tidycuminc(...)
   10. │   ├─visr_tidy_tidycuminc(x, times = times) %>% ...
   11. │   └─visR:::visr_tidy_tidycuminc(x, times = times)
   12. │     ├─... %>% ...
   13. │     ├─tidycmprsk::tidy(x, times = times)
   14. │     └─tidycmprsk:::tidy.tidycuminc(x, times = times)
   15. │       └─tidycmprsk:::.add_tidy_times(x$tidy, times = times)
   16. │         ├─... %>% ...
   17. │         ├─dplyr::full_join(...)
   18. │         └─dplyr:::full_join.data.frame(...)
   19. │           └─dplyr:::join_mutate(...)
   20. │             ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   21. │             └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   22. │               └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   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]])
   26. ├─dplyr::select(...)
   27. ├─dplyr::rename(...)
   28. ├─dplyr::filter(., .data[["outcome"]] %in% names(x$failcode)[1])
   29. └─dplyr::arrange(...)
  ── Error ('test-estimate_cuminc.R:191:3'): T5.1 The function removes all rows with NA values inside any of the strata, CNSR or AVAL ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. ├─base::`[<-`(`*tmp*`, 1:10, "trt", value = `<lgl>`) at test-estimate_cuminc.R:191:2
   2. └─tibble:::`[<-.tbl_df`(`*tmp*`, 1:10, "trt", value = `<lgl>`) at test-estimate_cuminc.R:191:2
   3.   └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   4.     └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   5.       ├─base::withCallingHandlers(...)
   6.       └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-get_risktable.R:494:3'): T9.1 Results are accurate without error ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-get_risktable.R:494:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─cuminc %>% ...
    5. ├─visR::get_risktable(...)
    6. ├─visR:::get_risktable.tidycuminc(...)
    7. │ ├─visr_tidy_tidycuminc(x, times = times) %>% ...
    8. │ └─visR:::visr_tidy_tidycuminc(x, times = times)
    9. │   ├─... %>% ...
   10. │   ├─tidycmprsk::tidy(x, times = times)
   11. │   └─tidycmprsk:::tidy.tidycuminc(x, times = times)
   12. │     └─tidycmprsk:::.add_tidy_times(x$tidy, times = times)
   13. │       ├─... %>% ...
   14. │       ├─dplyr::full_join(...)
   15. │       └─dplyr:::full_join.data.frame(...)
   16. │         └─dplyr:::join_mutate(...)
   17. │           ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   18. │           └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   19. │             └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   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]])
   23. ├─dplyr::select(...)
   24. ├─dplyr::rename(...)
   25. ├─dplyr::filter(., .data[["outcome"]] %in% names(x$failcode)[1])
   26. └─dplyr::arrange(...)
  ── Error ('test-render.R:72:3'): T1.1 No error when `data` is a `tableone` object. ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─adtte_tableone %>% ... at test-render.R:72:2
    2. ├─visR:::render.tableone(., title = NULL, datasource = NULL)
    3. │ └─visR:::render.data.frame(...)
    4. │   └─visR:::render_gt(...)
    5. │     └─... %>% ...
    6. ├─visR:::add_metadata_gt(...)
    7. │ └─gt %>% gt::tab_header(title = title)
    8. ├─gt::tab_header(., title = title)
    9. │ └─gt:::stop_if_not_gt(data = data)
   10. │   └─gt:::is_gt(data)
   11. ├─gt::fmt_number(., columns = numcols, decimals = 2)
   12. │ └─gt:::stop_if_not_gt(data = data)
   13. │   └─gt:::is_gt(data)
   14. ├─visR:::get_gt(., numcols)
   15. ├─visR:::get_gt.tableone(., numcols)
   16. │ ├─... %>% ...
   17. │ └─gt::gt(data, groupname_col = "variable", rowname_col = "statistic")
   18. │   └─gt:::dt_stub_df_init(...)
   19. │     └─gt:::dt_boxhead_set_stub(data = data, var = rowname_col)
   20. │       ├─base::`[<-`(`*tmp*`, which(dt_boxhead$var == var), "type", value = `<chr>`)
   21. │       └─tibble:::`[<-.tbl_df`(...)
   22. │         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   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]])
   26. └─gt::fmt_number(...)
   27.   └─gt:::stop_if_not_gt(data = data)
   28.     └─gt:::is_gt(data)
  ── Failure ('test-render.R:100:3'): T1.4 No error when `title` is defined. ─────
  `.` threw an error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─... %>% testthat::expect_error(NA) at test-render.R:100:2
    2. ├─testthat::expect_error(., NA)
    3. │ └─testthat:::quasi_capture(...)
    4. │   ├─testthat (local) .capture(...)
    5. │   │ └─base::withCallingHandlers(...)
    6. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─visR:::render.tableone(., title = NULL, datasource = NULL)
    8. │ └─visR:::render.data.frame(...)
    9. │   └─visR:::render_gt(...)
   10. │     └─... %>% ...
   11. ├─visR:::add_metadata_gt(...)
   12. │ └─gt %>% gt::tab_header(title = title)
   13. ├─gt::tab_header(., title = title)
   14. │ └─gt:::stop_if_not_gt(data = data)
   15. │   └─gt:::is_gt(data)
   16. ├─gt::fmt_number(., columns = numcols, decimals = 2)
   17. │ └─gt:::stop_if_not_gt(data = data)
   18. │   └─gt:::is_gt(data)
   19. ├─visR:::get_gt(., numcols)
   20. ├─visR:::get_gt.tableone(., numcols)
   21. │ ├─... %>% ...
   22. │ └─gt::gt(data, groupname_col = "variable", rowname_col = "statistic")
   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]])
   31. └─gt::fmt_number(...)
   32.   └─gt:::stop_if_not_gt(data = data)
   33.     └─gt:::is_gt(data)
  ── Failure ('test-render.R:104:3'): T1.4 No error when `title` is defined. ─────
  `.` threw an error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─... %>% testthat::expect_error(NA) at test-render.R:104:2
    2. ├─testthat::expect_error(., NA)
    3. │ └─testthat:::quasi_capture(...)
    4. │   ├─testthat (local) .capture(...)
    5. │   │ └─base::withCallingHandlers(...)
    6. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─visR:::render.tableone(., title = 1, datasource = NULL)
    8. │ └─visR:::render.data.frame(...)
    9. │   └─visR:::render_gt(...)
   10. │     └─... %>% ...
   11. ├─visR:::add_metadata_gt(...)
   12. │ └─gt %>% gt::tab_header(title = title)
   13. ├─gt::tab_header(., title = title)
   14. │ └─gt:::stop_if_not_gt(data = data)
   15. │   └─gt:::is_gt(data)
   16. ├─gt::fmt_number(., columns = numcols, decimals = 2)
   17. │ └─gt:::stop_if_not_gt(data = data)
   18. │   └─gt:::is_gt(data)
   19. ├─visR:::get_gt(., numcols)
   20. ├─visR:::get_gt.tableone(., numcols)
   21. │ ├─... %>% ...
   22. │ └─gt::gt(data, groupname_col = "variable", rowname_col = "statistic")
   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]])
   31. └─gt::fmt_number(...)
   32.   └─gt:::stop_if_not_gt(data = data)
   33.     └─gt:::is_gt(data)
  ── Failure ('test-render.R:108:3'): T1.4 No error when `title` is defined. ─────
  `.` threw an error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─... %>% testthat::expect_error(NA) at test-render.R:108:2
    2. ├─testthat::expect_error(., NA)
    3. │ └─testthat:::quasi_capture(...)
    4. │   ├─testthat (local) .capture(...)
    5. │   │ └─base::withCallingHandlers(...)
    6. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─visR:::render.tableone(., title = "visR", datasource = NULL)
    8. │ └─visR:::render.data.frame(...)
    9. │   └─visR:::render_gt(...)
   10. │     └─... %>% ...
   11. ├─visR:::add_metadata_gt(...)
   12. │ └─gt %>% gt::tab_header(title = title)
   13. ├─gt::tab_header(., title = title)
   14. │ └─gt:::stop_if_not_gt(data = data)
   15. │   └─gt:::is_gt(data)
   16. ├─gt::fmt_number(., columns = numcols, decimals = 2)
   17. │ └─gt:::stop_if_not_gt(data = data)
   18. │   └─gt:::is_gt(data)
   19. ├─visR:::get_gt(., numcols)
   20. ├─visR:::get_gt.tableone(., numcols)
   21. │ ├─... %>% ...
   22. │ └─gt::gt(data, groupname_col = "variable", rowname_col = "statistic")
   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]])
   31. └─gt::fmt_number(...)
   32.   └─gt:::stop_if_not_gt(data = data)
   33.     └─gt:::is_gt(data)
  ── Failure ('test-render.R:112:3'): T1.4 No error when `title` is defined. ─────
  `.` threw an error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─... %>% testthat::expect_error(NA) at test-render.R:112:2
    2. ├─testthat::expect_error(., NA)
    3. │ └─testthat:::quasi_capture(...)
    4. │   ├─testthat (local) .capture(...)
    5. │   │ └─base::withCallingHandlers(...)
    6. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─visR:::render.tableone(., title = c(1, 2, 3), datasource = NULL)
    8. │ └─visR:::render.data.frame(...)
    9. │   └─visR:::render_gt(...)
   10. │     └─... %>% ...
   11. ├─visR:::add_metadata_gt(...)
   12. │ └─gt %>% gt::tab_header(title = title)
   13. ├─gt::tab_header(., title = title)
   14. │ └─gt:::stop_if_not_gt(data = data)
   15. │   └─gt:::is_gt(data)
   16. ├─gt::fmt_number(., columns = numcols, decimals = 2)
   17. │ └─gt:::stop_if_not_gt(data = data)
   18. │   └─gt:::is_gt(data)
   19. ├─visR:::get_gt(., numcols)
   20. ├─visR:::get_gt.tableone(., numcols)
   21. │ ├─... %>% ...
   22. │ └─gt::gt(data, groupname_col = "variable", rowname_col = "statistic")
   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]])
   31. └─gt::fmt_number(...)
   32.   └─gt:::stop_if_not_gt(data = data)
   33.     └─gt:::is_gt(data)
  ── Failure ('test-render.R:130:3'): T1.6 No error when `datasource` is defined. ──
  `.` threw an error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─... %>% testthat::expect_error(NA) at test-render.R:130:2
    2. ├─testthat::expect_error(., NA)
    3. │ └─testthat:::quasi_capture(...)
    4. │   ├─testthat (local) .capture(...)
    5. │   │ └─base::withCallingHandlers(...)
    6. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─visR:::render.tableone(., title = NULL, datasource = NULL)
    8. │ └─visR:::render.data.frame(...)
    9. │   └─visR:::render_gt(...)
   10. │     └─... %>% ...
   11. ├─visR:::add_metadata_gt(...)
   12. │ └─gt %>% gt::tab_header(title = title)
   13. ├─gt::tab_header(., title = title)
   14. │ └─gt:::stop_if_not_gt(data = data)
   15. │   └─gt:::is_gt(data)
   16. ├─gt::fmt_number(., columns = numcols, decimals = 2)
   17. │ └─gt:::stop_if_not_gt(data = data)
   18. │   └─gt:::is_gt(data)
   19. ├─visR:::get_gt(., numcols)
   20. ├─visR:::get_gt.tableone(., numcols)
   21. │ ├─... %>% ...
   22. │ └─gt::gt(data, groupname_col = "variable", rowname_col = "statistic")
   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]])
   31. └─gt::fmt_number(...)
   32.   └─gt:::stop_if_not_gt(data = data)
   33.     └─gt:::is_gt(data)
  ── Failure ('test-render.R:134:3'): T1.6 No error when `datasource` is defined. ──
  `.` threw an error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─... %>% testthat::expect_error(NA) at test-render.R:134:2
    2. ├─testthat::expect_error(., NA)
    3. │ └─testthat:::quasi_capture(...)
    4. │   ├─testthat (local) .capture(...)
    5. │   │ └─base::withCallingHandlers(...)
    6. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─visR:::render.tableone(., title = NULL, datasource = 1)
    8. │ └─visR:::render.data.frame(...)
    9. │   └─visR:::render_gt(...)
   10. │     └─... %>% ...
   11. ├─visR:::add_metadata_gt(...)
   12. │ └─gt %>% gt::tab_header(title = title)
   13. ├─gt::tab_header(., title = title)
   14. │ └─gt:::stop_if_not_gt(data = data)
   15. │   └─gt:::is_gt(data)
   16. ├─gt::fmt_number(., columns = numcols, decimals = 2)
   17. │ └─gt:::stop_if_not_gt(data = data)
   18. │   └─gt:::is_gt(data)
   19. ├─visR:::get_gt(., numcols)
   20. ├─visR:::get_gt.tableone(., numcols)
   21. │ ├─... %>% ...
   22. │ └─gt::gt(data, groupname_col = "variable", rowname_col = "statistic")
   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]])
   31. └─gt::fmt_number(...)
   32.   └─gt:::stop_if_not_gt(data = data)
   33.     └─gt:::is_gt(data)
  ── Failure ('test-render.R:138:3'): T1.6 No error when `datasource` is defined. ──
  `.` threw an error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─... %>% testthat::expect_error(NA) at test-render.R:138:2
    2. ├─testthat::expect_error(., NA)
    3. │ └─testthat:::quasi_capture(...)
    4. │   ├─testthat (local) .capture(...)
    5. │   │ └─base::withCallingHandlers(...)
    6. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─visR:::render.tableone(., title = NULL, datasource = "visR")
    8. │ └─visR:::render.data.frame(...)
    9. │   └─visR:::render_gt(...)
   10. │     └─... %>% ...
   11. ├─visR:::add_metadata_gt(...)
   12. │ └─gt %>% gt::tab_header(title = title)
   13. ├─gt::tab_header(., title = title)
   14. │ └─gt:::stop_if_not_gt(data = data)
   15. │   └─gt:::is_gt(data)
   16. ├─gt::fmt_number(., columns = numcols, decimals = 2)
   17. │ └─gt:::stop_if_not_gt(data = data)
   18. │   └─gt:::is_gt(data)
   19. ├─visR:::get_gt(., numcols)
   20. ├─visR:::get_gt.tableone(., numcols)
   21. │ ├─... %>% ...
   22. │ └─gt::gt(data, groupname_col = "variable", rowname_col = "statistic")
   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]])
   31. └─gt::fmt_number(...)
   32.   └─gt:::stop_if_not_gt(data = data)
   33.     └─gt:::is_gt(data)
  ── Failure ('test-render.R:142:3'): T1.6 No error when `datasource` is defined. ──
  `.` threw an error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─... %>% testthat::expect_error(NA) at test-render.R:142:2
    2. ├─testthat::expect_error(., NA)
    3. │ └─testthat:::quasi_capture(...)
    4. │   ├─testthat (local) .capture(...)
    5. │   │ └─base::withCallingHandlers(...)
    6. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─visR:::render.tableone(...)
    8. │ └─visR:::render.data.frame(...)
    9. │   └─visR:::render_gt(...)
   10. │     └─... %>% ...
   11. ├─visR:::add_metadata_gt(...)
   12. │ └─gt %>% gt::tab_header(title = title)
   13. ├─gt::tab_header(., title = title)
   14. │ └─gt:::stop_if_not_gt(data = data)
   15. │   └─gt:::is_gt(data)
   16. ├─gt::fmt_number(., columns = numcols, decimals = 2)
   17. │ └─gt:::stop_if_not_gt(data = data)
   18. │   └─gt:::is_gt(data)
   19. ├─visR:::get_gt(., numcols)
   20. ├─visR:::get_gt.tableone(., numcols)
   21. │ ├─... %>% ...
   22. │ └─gt::gt(data, groupname_col = "variable", rowname_col = "statistic")
   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]])
   31. └─gt::fmt_number(...)
   32.   └─gt:::stop_if_not_gt(data = data)
   33.     └─gt:::is_gt(data)
  ── Failure ('test-render.R:151:3'): T1.7 No error when `footnote` is defined. ──
  `.` threw an error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─... %>% testthat::expect_error(NA) at test-render.R:151:2
    2. ├─testthat::expect_error(., NA)
    3. │ └─testthat:::quasi_capture(...)
    4. │   ├─testthat (local) .capture(...)
    5. │   │ └─base::withCallingHandlers(...)
    6. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─visR:::render.tableone(., title = NULL, datasource = NULL, footnote = NULL)
    8. │ └─visR:::render.data.frame(...)
    9. │   └─visR:::render_gt(...)
   10. │     └─... %>% ...
   11. ├─visR:::add_metadata_gt(...)
   12. │ └─gt %>% gt::tab_header(title = title)
   13. ├─gt::tab_header(., title = title)
   14. │ └─gt:::stop_if_not_gt(data = data)
   15. │   └─gt:::is_gt(data)
   16. ├─gt::fmt_number(., columns = numcols, decimals = 2)
   17. │ └─gt:::stop_if_not_gt(data = data)
   18. │   └─gt:::is_gt(data)
   19. ├─visR:::get_gt(., numcols)
   20. ├─visR:::get_gt.tableone(., numcols)
   21. │ ├─... %>% ...
   22. │ └─gt::gt(data, groupname_col = "variable", rowname_col = "statistic")
   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]])
   31. └─gt::fmt_number(...)
   32.   └─gt:::stop_if_not_gt(data = data)
   33.     └─gt:::is_gt(data)
  ── Failure ('test-render.R:159:3'): T1.7 No error when `footnote` is defined. ──
  `.` threw an error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─... %>% testthat::expect_error(NA) at test-render.R:159:2
    2. ├─testthat::expect_error(., NA)
    3. │ └─testthat:::quasi_capture(...)
    4. │   ├─testthat (local) .capture(...)
    5. │   │ └─base::withCallingHandlers(...)
    6. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─visR:::render.tableone(., title = NULL, datasource = NULL, footnote = 1)
    8. │ └─visR:::render.data.frame(...)
    9. │   └─visR:::render_gt(...)
   10. │     └─... %>% ...
   11. ├─visR:::add_metadata_gt(...)
   12. │ └─gt %>% gt::tab_header(title = title)
   13. ├─gt::tab_header(., title = title)
   14. │ └─gt:::stop_if_not_gt(data = data)
   15. │   └─gt:::is_gt(data)
   16. ├─gt::fmt_number(., columns = numcols, decimals = 2)
   17. │ └─gt:::stop_if_not_gt(data = data)
   18. │   └─gt:::is_gt(data)
   19. ├─visR:::get_gt(., numcols)
   20. ├─visR:::get_gt.tableone(., numcols)
   21. │ ├─... %>% ...
   22. │ └─gt::gt(data, groupname_col = "variable", rowname_col = "statistic")
   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]])
   31. └─gt::fmt_number(...)
   32.   └─gt:::stop_if_not_gt(data = data)
   33.     └─gt:::is_gt(data)
  ── Failure ('test-render.R:167:3'): T1.7 No error when `footnote` is defined. ──
  `.` threw an error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─... %>% testthat::expect_error(NA) at test-render.R:167:2
    2. ├─testthat::expect_error(., NA)
    3. │ └─testthat:::quasi_capture(...)
    4. │   ├─testthat (local) .capture(...)
    5. │   │ └─base::withCallingHandlers(...)
    6. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─visR:::render.tableone(., title = NULL, datasource = NULL, footnote = "visR")
    8. │ └─visR:::render.data.frame(...)
    9. │   └─visR:::render_gt(...)
   10. │     └─... %>% ...
   11. ├─visR:::add_metadata_gt(...)
   12. │ └─gt %>% gt::tab_header(title = title)
   13. ├─gt::tab_header(., title = title)
   14. │ └─gt:::stop_if_not_gt(data = data)
   15. │   └─gt:::is_gt(data)
   16. ├─gt::fmt_number(., columns = numcols, decimals = 2)
   17. │ └─gt:::stop_if_not_gt(data = data)
   18. │   └─gt:::is_gt(data)
   19. ├─visR:::get_gt(., numcols)
   20. ├─visR:::get_gt.tableone(., numcols)
   21. │ ├─... %>% ...
   22. │ └─gt::gt(data, groupname_col = "variable", rowname_col = "statistic")
   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]])
   31. └─gt::fmt_number(...)
   32.   └─gt:::stop_if_not_gt(data = data)
   33.     └─gt:::is_gt(data)
  ── Failure ('test-render.R:175:3'): T1.7 No error when `footnote` is defined. ──
  `.` threw an error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─... %>% testthat::expect_error(NA) at test-render.R:175:2
    2. ├─testthat::expect_error(., NA)
    3. │ └─testthat:::quasi_capture(...)
    4. │   ├─testthat (local) .capture(...)
    5. │   │ └─base::withCallingHandlers(...)
    6. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─visR:::render.tableone(...)
    8. │ └─visR:::render.data.frame(...)
    9. │   └─visR:::render_gt(...)
   10. │     └─... %>% ...
   11. ├─visR:::add_metadata_gt(...)
   12. │ └─gt %>% gt::tab_header(title = title)
   13. ├─gt::tab_header(., title = title)
   14. │ └─gt:::stop_if_not_gt(data = data)
   15. │   └─gt:::is_gt(data)
   16. ├─gt::fmt_number(., columns = numcols, decimals = 2)
   17. │ └─gt:::stop_if_not_gt(data = data)
   18. │   └─gt:::is_gt(data)
   19. ├─visR:::get_gt(., numcols)
   20. ├─visR:::get_gt.tableone(., numcols)
   21. │ ├─... %>% ...
   22. │ └─gt::gt(data, groupname_col = "variable", rowname_col = "statistic")
   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]])
   31. └─gt::fmt_number(...)
   32.   └─gt:::stop_if_not_gt(data = data)
   33.     └─gt:::is_gt(data)
  ── Failure ('test-render.R:188:3'): T1.8 No error when `output_format` is 'html' and `engine` is 'gt'. ──
  `.` threw an error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─... %>% testthat::expect_error(NA) at test-render.R:188:2
    2. ├─testthat::expect_error(., NA)
    3. │ └─testthat:::quasi_capture(...)
    4. │   ├─testthat (local) .capture(...)
    5. │   │ └─base::withCallingHandlers(...)
    6. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─visR:::render.tableone(...)
    8. │ └─visR:::render.data.frame(...)
    9. │   └─visR:::render_gt(...)
   10. │     └─... %>% ...
   11. ├─visR:::add_metadata_gt(...)
   12. │ └─gt %>% gt::tab_header(title = title)
   13. ├─gt::tab_header(., title = title)
   14. │ └─gt:::stop_if_not_gt(data = data)
   15. │   └─gt:::is_gt(data)
   16. ├─gt::fmt_number(., columns = numcols, decimals = 2)
   17. │ └─gt:::stop_if_not_gt(data = data)
   18. │   └─gt:::is_gt(data)
   19. ├─visR:::get_gt(., numcols)
   20. ├─visR:::get_gt.tableone(., numcols)
   21. │ ├─... %>% ...
   22. │ └─gt::gt(data, groupname_col = "variable", rowname_col = "statistic")
   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]])
   31. └─gt::fmt_number(...)
   32.   └─gt:::stop_if_not_gt(data = data)
   33.     └─gt:::is_gt(data)
  ── Error ('test-render.R:355:7'): T1.17 A warning when `engine` is not in ['dt', 'datatable', 'datatables'] and download_format` is in ['copy', 'csv', 'excel']. ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% testthat::expect_warning() at test-render.R:355:6
    2. ├─testthat::expect_warning(.)
    3. │ └─testthat:::quasi_capture(...)
    4. │   ├─testthat (local) .capture(...)
    5. │   │ └─base::withCallingHandlers(...)
    6. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─visR:::render.tableone(...)
    8. │ └─visR:::render.data.frame(...)
    9. │   └─visR:::render_gt(...)
   10. │     └─... %>% ...
   11. ├─visR:::add_metadata_gt(...)
   12. │ └─gt %>% gt::tab_header(title = title)
   13. ├─gt::tab_header(., title = title)
   14. │ └─gt:::stop_if_not_gt(data = data)
   15. │   └─gt:::is_gt(data)
   16. ├─gt::fmt_number(., columns = numcols, decimals = 2)
   17. │ └─gt:::stop_if_not_gt(data = data)
   18. │   └─gt:::is_gt(data)
   19. ├─visR:::get_gt(., numcols)
   20. ├─visR:::get_gt.tableone(., numcols)
   21. │ ├─... %>% ...
   22. │ └─gt::gt(data, groupname_col = "variable", rowname_col = "statistic")
   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]])
   31. └─gt::fmt_number(...)
   32.   └─gt:::stop_if_not_gt(data = data)
   33.     └─gt:::is_gt(data)
  ── Failure ('test-render.R:392:3'): T2.1 No error when `data` is a `risktable` object. ──
  `.` threw an error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─... %>% testthat::expect_error(NA) at test-render.R:392:2
    2. ├─testthat::expect_error(., NA)
    3. │ └─testthat:::quasi_capture(...)
    4. │   ├─testthat (local) .capture(...)
    5. │   │ └─base::withCallingHandlers(...)
    6. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─visR:::render.risktable(., title = NULL, datasource = NULL)
    8. │ └─visR:::render.tableone(...)
    9. │   └─visR:::render.data.frame(...)
   10. │     └─visR:::render_gt(...)
   11. │       └─... %>% ...
   12. ├─visR:::add_metadata_gt(...)
   13. │ └─gt %>% gt::tab_header(title = title)
   14. ├─gt::tab_header(., title = title)
   15. │ └─gt:::stop_if_not_gt(data = data)
   16. │   └─gt:::is_gt(data)
   17. ├─gt::fmt_number(., columns = numcols, decimals = 2)
   18. │ └─gt:::stop_if_not_gt(data = data)
   19. │   └─gt:::is_gt(data)
   20. ├─visR:::get_gt(., numcols)
   21. ├─visR:::get_gt.tableone(., numcols)
   22. │ ├─... %>% ...
   23. │ └─gt::gt(data, groupname_col = "variable", rowname_col = "statistic")
   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]])
   32. └─gt::fmt_number(...)
   33.   └─gt:::stop_if_not_gt(data = data)
   34.     └─gt:::is_gt(data)
  ── Failure ('test-render.R:425:3'): T2.4 No error when `title` is defined. ─────
  `.` threw an error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─... %>% testthat::expect_error(NA) at test-render.R:425:2
    2. ├─testthat::expect_error(., NA)
    3. │ └─testthat:::quasi_capture(...)
    4. │   ├─testthat (local) .capture(...)
    5. │   │ └─base::withCallingHandlers(...)
    6. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─visR:::render.risktable(., title = NULL, datasource = NULL)
    8. │ └─visR:::render.tableone(...)
    9. │   └─visR:::render.data.frame(...)
   10. │     └─visR:::render_gt(...)
   11. │       └─... %>% ...
   12. ├─visR:::add_metadata_gt(...)
   13. │ └─gt %>% gt::tab_header(title = title)
   14. ├─gt::tab_header(., title = title)
   15. │ └─gt:::stop_if_not_gt(data = data)
   16. │   └─gt:::is_gt(data)
   17. ├─gt::fmt_number(., columns = numcols, decimals = 2)
   18. │ └─gt:::stop_if_not_gt(data = data)
   19. │   └─gt:::is_gt(data)
   20. ├─visR:::get_gt(., numcols)
   21. ├─visR:::get_gt.tableone(., numcols)
   22. │ ├─... %>% ...
   23. │ └─gt::gt(data, groupname_col = "variable", rowname_col = "statistic")
   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]])
   32. └─gt::fmt_number(...)
   33.   └─gt:::stop_if_not_gt(data = data)
   34.     └─gt:::is_gt(data)
  ── Failure ('test-render.R:432:3'): T2.4 No error when `title` is defined. ─────
  `.` threw an error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─... %>% testthat::expect_error(NA) at test-render.R:432:2
    2. ├─testthat::expect_error(., NA)
    3. │ └─testthat:::quasi_capture(...)
    4. │   ├─testthat (local) .capture(...)
    5. │   │ └─base::withCallingHandlers(...)
    6. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─visR:::render.risktable(., title = 1, datasource = NULL)
    8. │ └─visR:::render.tableone(...)
    9. │   └─visR:::render.data.frame(...)
   10. │     └─visR:::render_gt(...)
   11. │       └─... %>% ...
   12. ├─visR:::add_metadata_gt(...)
   13. │ └─gt %>% gt::tab_header(title = title)
   14. ├─gt::tab_header(., title = title)
   15. │ └─gt:::stop_if_not_gt(data = data)
   16. │   └─gt:::is_gt(data)
   17. ├─gt::fmt_number(., columns = numcols, decimals = 2)
   18. │ └─gt:::stop_if_not_gt(data = data)
   19. │   └─gt:::is_gt(data)
   20. ├─visR:::get_gt(., numcols)
   21. ├─visR:::get_gt.tableone(., numcols)
   22. │ ├─... %>% ...
   23. │ └─gt::gt(data, groupname_col = "variable", rowname_col = "statistic")
   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]])
   32. └─gt::fmt_number(...)
   33.   └─gt:::stop_if_not_gt(data = data)
   34.     └─gt:::is_gt(data)
  ── Failure ('test-render.R:439:3'): T2.4 No error when `title` is defined. ─────
  `.` threw an error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─... %>% testthat::expect_error(NA) at test-render.R:439:2
    2. ├─testthat::expect_error(., NA)
    3. │ └─testthat:::quasi_capture(...)
    4. │   ├─testthat (local) .capture(...)
    5. │   │ └─base::withCallingHandlers(...)
    6. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─visR:::render.risktable(., title = "visR", datasource = NULL)
    8. │ └─visR:::render.tableone(...)
    9. │   └─visR:::render.data.frame(...)
   10. │     └─visR:::render_gt(...)
   11. │       └─... %>% ...
   12. ├─visR:::add_metadata_gt(...)
   13. │ └─gt %>% gt::tab_header(title = title)
   14. ├─gt::tab_header(., title = title)
   15. │ └─gt:::stop_if_not_gt(data = data)
   16. │   └─gt:::is_gt(data)
   17. ├─gt::fmt_number(., columns = numcols, decimals = 2)
   18. │ └─gt:::stop_if_not_gt(data = data)
   19. │   └─gt:::is_gt(data)
   20. ├─visR:::get_gt(., numcols)
   21. ├─visR:::get_gt.tableone(., numcols)
   22. │ ├─... %>% ...
   23. │ └─gt::gt(data, groupname_col = "variable", rowname_col = "statistic")
   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]])
   32. └─gt::fmt_number(...)
   33.   └─gt:::stop_if_not_gt(data = data)
   34.     └─gt:::is_gt(data)
  ── Failure ('test-render.R:446:3'): T2.4 No error when `title` is defined. ─────
  `.` threw an error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─... %>% testthat::expect_error(NA) at test-render.R:446:2
    2. ├─testthat::expect_error(., NA)
    3. │ └─testthat:::quasi_capture(...)
    4. │   ├─testthat (local) .capture(...)
    5. │   │ └─base::withCallingHandlers(...)
    6. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─visR:::render.risktable(., title = c(1, 2, 3), datasource = NULL)
    8. │ └─visR:::render.tableone(...)
    9. │   └─visR:::render.data.frame(...)
   10. │     └─visR:::render_gt(...)
   11. │       └─... %>% ...
   12. ├─visR:::add_metadata_gt(...)
   13. │ └─gt %>% gt::tab_header(title = title)
   14. ├─gt::tab_header(., title = title)
   15. │ └─gt:::stop_if_not_gt(data = data)
   16. │   └─gt:::is_gt(data)
   17. ├─gt::fmt_number(., columns = numcols, decimals = 2)
   18. │ └─gt:::stop_if_not_gt(data = data)
   19. │   └─gt:::is_gt(data)
   20. ├─visR:::get_gt(., numcols)
   21. ├─visR:::get_gt.tableone(., numcols)
   22. │ ├─... %>% ...
   23. │ └─gt::gt(data, groupname_col = "variable", rowname_col = "statistic")
   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]])
   32. └─gt::fmt_number(...)
   33.   └─gt:::stop_if_not_gt(data = data)
   34.     └─gt:::is_gt(data)
  ── Failure ('test-render.R:469:3'): T2.6 No error when `datasource` is defined. ──
  `.` threw an error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─... %>% testthat::expect_error(NA) at test-render.R:469:2
    2. ├─testthat::expect_error(., NA)
    3. │ └─testthat:::quasi_capture(...)
    4. │   ├─testthat (local) .capture(...)
    5. │   │ └─base::withCallingHandlers(...)
    6. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─visR:::render.risktable(., title = NULL, datasource = NULL)
    8. │ └─visR:::render.tableone(...)
    9. │   └─visR:::render.data.frame(...)
   10. │     └─visR:::render_gt(...)
   11. │       └─... %>% ...
   12. ├─visR:::add_metadata_gt(...)
   13. │ └─gt %>% gt::tab_header(title = title)
   14. ├─gt::tab_header(., title = title)
   15. │ └─gt:::stop_if_not_gt(data = data)
   16. │   └─gt:::is_gt(data)
   17. ├─gt::fmt_number(., columns = numcols, decimals = 2)
   18. │ └─gt:::stop_if_not_gt(data = data)
   19. │   └─gt:::is_gt(data)
   20. ├─visR:::get_gt(., numcols)
   21. ├─visR:::get_gt.tableone(., numcols)
   22. │ ├─... %>% ...
   23. │ └─gt::gt(data, groupname_col = "variable", rowname_col = "statistic")
   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]])
   32. └─gt::fmt_number(...)
   33.   └─gt:::stop_if_not_gt(data = data)
   34.     └─gt:::is_gt(data)
  ── Failure ('test-render.R:476:3'): T2.6 No error when `datasource` is defined. ──
  `.` threw an error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─... %>% testthat::expect_error(NA) at test-render.R:476:2
    2. ├─testthat::expect_error(., NA)
    3. │ └─testthat:::quasi_capture(...)
    4. │   ├─testthat (local) .capture(...)
    5. │   │ └─base::withCallingHandlers(...)
    6. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─visR:::render.risktable(., title = NULL, datasource = 1)
    8. │ └─visR:::render.tableone(...)
    9. │   └─visR:::render.data.frame(...)
   10. │     └─visR:::render_gt(...)
   11. │       └─... %>% ...
   12. ├─visR:::add_metadata_gt(...)
   13. │ └─gt %>% gt::tab_header(title = title)
   14. ├─gt::tab_header(., title = title)
   15. │ └─gt:::stop_if_not_gt(data = data)
   16. │   └─gt:::is_gt(data)
   17. ├─gt::fmt_number(., columns = numcols, decimals = 2)
   18. │ └─gt:::stop_if_not_gt(data = data)
   19. │   └─gt:::is_gt(data)
   20. ├─visR:::get_gt(., numcols)
   21. ├─visR:::get_gt.tableone(., numcols)
   22. │ ├─... %>% ...
   23. │ └─gt::gt(data, groupname_col = "variable", rowname_col = "statistic")
   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]])
   32. └─gt::fmt_number(...)
   33.   └─gt:::stop_if_not_gt(data = data)
   34.     └─gt:::is_gt(data)
  ── Failure ('test-render.R:483:3'): T2.6 No error when `datasource` is defined. ──
  `.` threw an error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─... %>% testthat::expect_error(NA) at test-render.R:483:2
    2. ├─testthat::expect_error(., NA)
    3. │ └─testthat:::quasi_capture(...)
    4. │   ├─testthat (local) .capture(...)
    5. │   │ └─base::withCallingHandlers(...)
    6. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─visR:::render.risktable(., title = NULL, datasource = "visR")
    8. │ └─visR:::render.tableone(...)
    9. │   └─visR:::render.data.frame(...)
   10. │     └─visR:::render_gt(...)
   11. │       └─... %>% ...
   12. ├─visR:::add_metadata_gt(...)
   13. │ └─gt %>% gt::tab_header(title = title)
   14. ├─gt::tab_header(., title = title)
   15. │ └─gt:::stop_if_not_gt(data = data)
   16. │   └─gt:::is_gt(data)
   17. ├─gt::fmt_number(., columns = numcols, decimals = 2)
   18. │ └─gt:::stop_if_not_gt(data = data)
   19. │   └─gt:::is_gt(data)
   20. ├─visR:::get_gt(., numcols)
   21. ├─visR:::get_gt.tableone(., numcols)
   22. │ ├─... %>% ...
   23. │ └─gt::gt(data, groupname_col = "variable", rowname_col = "statistic")
   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]])
   32. └─gt::fmt_number(...)
   33.   └─gt:::stop_if_not_gt(data = data)
   34.     └─gt:::is_gt(data)
  ── Failure ('test-render.R:490:3'): T2.6 No error when `datasource` is defined. ──
  `.` threw an error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─... %>% testthat::expect_error(NA) at test-render.R:490:2
    2. ├─testthat::expect_error(., NA)
    3. │ └─testthat:::quasi_capture(...)
    4. │   ├─testthat (local) .capture(...)
    5. │   │ └─base::withCallingHandlers(...)
    6. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─visR:::render.risktable(...)
    8. │ └─visR:::render.tableone(...)
    9. │   └─visR:::render.data.frame(...)
   10. │     └─visR:::render_gt(...)
   11. │       └─... %>% ...
   12. ├─visR:::add_metadata_gt(...)
   13. │ └─gt %>% gt::tab_header(title = title)
   14. ├─gt::tab_header(., title = title)
   15. │ └─gt:::stop_if_not_gt(data = data)
   16. │   └─gt:::is_gt(data)
   17. ├─gt::fmt_number(., columns = numcols, decimals = 2)
   18. │ └─gt:::stop_if_not_gt(data = data)
   19. │   └─gt:::is_gt(data)
   20. ├─visR:::get_gt(., numcols)
   21. ├─visR:::get_gt.tableone(., numcols)
   22. │ ├─... %>% ...
   23. │ └─gt::gt(data, groupname_col = "variable", rowname_col = "statistic")
   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]])
   32. └─gt::fmt_number(...)
   33.   └─gt:::stop_if_not_gt(data = data)
   34.     └─gt:::is_gt(data)
  ── Failure ('test-render.R:503:3'): T2.7 No error when `footnote` is defined. ──
  `.` threw an error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─... %>% testthat::expect_error(NA) at test-render.R:503:2
    2. ├─testthat::expect_error(., NA)
    3. │ └─testthat:::quasi_capture(...)
    4. │   ├─testthat (local) .capture(...)
    5. │   │ └─base::withCallingHandlers(...)
    6. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─visR:::render.risktable(., title = NULL, datasource = NULL, footnote = NULL)
    8. │ └─visR:::render.tableone(...)
    9. │   └─visR:::render.data.frame(...)
   10. │     └─visR:::render_gt(...)
   11. │       └─... %>% ...
   12. ├─visR:::add_metadata_gt(...)
   13. │ └─gt %>% gt::tab_header(title = title)
   14. ├─gt::tab_header(., title = title)
   15. │ └─gt:::stop_if_not_gt(data = data)
   16. │   └─gt:::is_gt(data)
   17. ├─gt::fmt_number(., columns = numcols, decimals = 2)
   18. │ └─gt:::stop_if_not_gt(data = data)
   19. │   └─gt:::is_gt(data)
   20. ├─visR:::get_gt(., numcols)
   21. ├─visR:::get_gt.tableone(., numcols)
   22. │ ├─... %>% ...
   23. │ └─gt::gt(data, groupname_col = "variable", rowname_col = "statistic")
   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]])
   32. └─gt::fmt_number(...)
   33.   └─gt:::stop_if_not_gt(data = data)
   34.     └─gt:::is_gt(data)
  ── Failure ('test-render.R:511:3'): T2.7 No error when `footnote` is defined. ──
  `.` threw an error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─... %>% testthat::expect_error(NA) at test-render.R:511:2
    2. ├─testthat::expect_error(., NA)
    3. │ └─testthat:::quasi_capture(...)
    4. │   ├─testthat (local) .capture(...)
    5. │   │ └─base::withCallingHandlers(...)
    6. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─visR:::render.risktable(., title = NULL, datasource = NULL, footnote = 1)
    8. │ └─visR:::render.tableone(...)
    9. │   └─visR:::render.data.frame(...)
   10. │     └─visR:::render_gt(...)
   11. │       └─... %>% ...
   12. ├─visR:::add_metadata_gt(...)
   13. │ └─gt %>% gt::tab_header(title = title)
   14. ├─gt::tab_header(., title = title)
   15. │ └─gt:::stop_if_not_gt(data = data)
   16. │   └─gt:::is_gt(data)
   17. ├─gt::fmt_number(., columns = numcols, decimals = 2)
   18. │ └─gt:::stop_if_not_gt(data = data)
   19. │   └─gt:::is_gt(data)
   20. ├─visR:::get_gt(., numcols)
   21. ├─visR:::get_gt.tableone(., numcols)
   22. │ ├─... %>% ...
   23. │ └─gt::gt(data, groupname_col = "variable", rowname_col = "statistic")
   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]])
   32. └─gt::fmt_number(...)
   33.   └─gt:::stop_if_not_gt(data = data)
   34.     └─gt:::is_gt(data)
  ── Failure ('test-render.R:519:3'): T2.7 No error when `footnote` is defined. ──
  `.` threw an error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─... %>% testthat::expect_error(NA) at test-render.R:519:2
    2. ├─testthat::expect_error(., NA)
    3. │ └─testthat:::quasi_capture(...)
    4. │   ├─testthat (local) .capture(...)
    5. │   │ └─base::withCallingHandlers(...)
    6. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─visR:::render.risktable(., title = NULL, datasource = NULL, footnote = "visR")
    8. │ └─visR:::render.tableone(...)
    9. │   └─visR:::render.data.frame(...)
   10. │     └─visR:::render_gt(...)
   11. │       └─... %>% ...
   12. ├─visR:::add_metadata_gt(...)
   13. │ └─gt %>% gt::tab_header(title = title)
   14. ├─gt::tab_header(., title = title)
   15. │ └─gt:::stop_if_not_gt(data = data)
   16. │   └─gt:::is_gt(data)
   17. ├─gt::fmt_number(., columns = numcols, decimals = 2)
   18. │ └─gt:::stop_if_not_gt(data = data)
   19. │   └─gt:::is_gt(data)
   20. ├─visR:::get_gt(., numcols)
   21. ├─visR:::get_gt.tableone(., numcols)
   22. │ ├─... %>% ...
   23. │ └─gt::gt(data, groupname_col = "variable", rowname_col = "statistic")
   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]])
   32. └─gt::fmt_number(...)
   33.   └─gt:::stop_if_not_gt(data = data)
   34.     └─gt:::is_gt(data)
  ── Failure ('test-render.R:527:3'): T2.7 No error when `footnote` is defined. ──
  `.` threw an error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─... %>% testthat::expect_error(NA) at test-render.R:527:2
    2. ├─testthat::expect_error(., NA)
    3. │ └─testthat:::quasi_capture(...)
    4. │   ├─testthat (local) .capture(...)
    5. │   │ └─base::withCallingHandlers(...)
    6. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─visR:::render.risktable(...)
    8. │ └─visR:::render.tableone(...)
    9. │   └─visR:::render.data.frame(...)
   10. │     └─visR:::render_gt(...)
   11. │       └─... %>% ...
   12. ├─visR:::add_metadata_gt(...)
   13. │ └─gt %>% gt::tab_header(title = title)
   14. ├─gt::tab_header(., title = title)
   15. │ └─gt:::stop_if_not_gt(data = data)
   16. │   └─gt:::is_gt(data)
   17. ├─gt::fmt_number(., columns = numcols, decimals = 2)
   18. │ └─gt:::stop_if_not_gt(data = data)
   19. │   └─gt:::is_gt(data)
   20. ├─visR:::get_gt(., numcols)
   21. ├─visR:::get_gt.tableone(., numcols)
   22. │ ├─... %>% ...
   23. │ └─gt::gt(data, groupname_col = "variable", rowname_col = "statistic")
   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]])
   32. └─gt::fmt_number(...)
   33.   └─gt:::stop_if_not_gt(data = data)
   34.     └─gt:::is_gt(data)
  ── Failure ('test-render.R:541:3'): T2.8 No error when `output_format` is 'html' and `engine` is 'gt'. ──
  `.` threw an error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─... %>% testthat::expect_error(NA) at test-render.R:541:2
    2. ├─testthat::expect_error(., NA)
    3. │ └─testthat:::quasi_capture(...)
    4. │   ├─testthat (local) .capture(...)
    5. │   │ └─base::withCallingHandlers(...)
    6. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─visR:::render.risktable(...)
    8. │ └─visR:::render.tableone(...)
    9. │   └─visR:::render.data.frame(...)
   10. │     └─visR:::render_gt(...)
   11. │       └─... %>% ...
   12. ├─visR:::add_metadata_gt(...)
   13. │ └─gt %>% gt::tab_header(title = title)
   14. ├─gt::tab_header(., title = title)
   15. │ └─gt:::stop_if_not_gt(data = data)
   16. │   └─gt:::is_gt(data)
   17. ├─gt::fmt_number(., columns = numcols, decimals = 2)
   18. │ └─gt:::stop_if_not_gt(data = data)
   19. │   └─gt:::is_gt(data)
   20. ├─visR:::get_gt(., numcols)
   21. ├─visR:::get_gt.tableone(., numcols)
   22. │ ├─... %>% ...
   23. │ └─gt::gt(data, groupname_col = "variable", rowname_col = "statistic")
   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]])
   32. └─gt::fmt_number(...)
   33.   └─gt:::stop_if_not_gt(data = data)
   34.     └─gt:::is_gt(data)
  ── Error ('test-render.R:733:7'): T2.16 A warning when `engine` is not in ['dt', 'datatable', 'datatables'] and download_format` is in ['copy', 'csv', 'excel']. ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% testthat::expect_warning() at test-render.R:733:6
    2. ├─testthat::expect_warning(.)
    3. │ └─testthat:::quasi_capture(...)
    4. │   ├─testthat (local) .capture(...)
    5. │   │ └─base::withCallingHandlers(...)
    6. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─visR:::render.risktable(...)
    8. │ └─visR:::render.tableone(...)
    9. │   └─visR:::render.data.frame(...)
   10. │     └─visR:::render_gt(...)
   11. │       └─... %>% ...
   12. ├─visR:::add_metadata_gt(...)
   13. │ └─gt %>% gt::tab_header(title = title)
   14. ├─gt::tab_header(., title = title)
   15. │ └─gt:::stop_if_not_gt(data = data)
   16. │   └─gt:::is_gt(data)
   17. ├─gt::fmt_number(., columns = numcols, decimals = 2)
   18. │ └─gt:::stop_if_not_gt(data = data)
   19. │   └─gt:::is_gt(data)
   20. ├─visR:::get_gt(., numcols)
   21. ├─visR:::get_gt.tableone(., numcols)
   22. │ ├─... %>% ...
   23. │ └─gt::gt(data, groupname_col = "variable", rowname_col = "statistic")
   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]])
   32. └─gt::fmt_number(...)
   33.   └─gt:::stop_if_not_gt(data = data)
   34.     └─gt:::is_gt(data)
  ── Error ('test-render.R:750:3'): T2.17 The strata-colnames of the `risktable` object are used as rownames. ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─adtte_risktable %>% ... at test-render.R:750:2
    2. ├─visR:::render.risktable(., title = NULL, datasource = NULL)
    3. │ └─visR:::render.tableone(...)
    4. │   └─visR:::render.data.frame(...)
    5. │     └─visR:::render_gt(...)
    6. │       └─... %>% ...
    7. ├─visR:::add_metadata_gt(...)
    8. │ └─gt %>% gt::tab_header(title = title)
    9. ├─gt::tab_header(., title = title)
   10. │ └─gt:::stop_if_not_gt(data = data)
   11. │   └─gt:::is_gt(data)
   12. ├─gt::fmt_number(., columns = numcols, decimals = 2)
   13. │ └─gt:::stop_if_not_gt(data = data)
   14. │   └─gt:::is_gt(data)
   15. ├─visR:::get_gt(., numcols)
   16. ├─visR:::get_gt.tableone(., numcols)
   17. │ ├─... %>% ...
   18. │ └─gt::gt(data, groupname_col = "variable", rowname_col = "statistic")
   19. │   └─gt:::dt_stub_df_init(...)
   20. │     └─gt:::dt_boxhead_set_stub(data = data, var = rowname_col)
   21. │       ├─base::`[<-`(`*tmp*`, which(dt_boxhead$var == var), "type", value = `<chr>`)
   22. │       └─tibble:::`[<-.tbl_df`(...)
   23. │         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   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]])
   27. └─gt::fmt_number(...)
   28.   └─gt:::stop_if_not_gt(data = data)
   29.     └─gt:::is_gt(data)
  ── Error ('test-render.R:772:3'): T2.18 The metric of the risktable is used in the rendered table. ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─adtte_risktable_at_risk %>% ... at test-render.R:772:2
    2. ├─visR:::render.risktable(., title = NULL, datasource = NULL)
    3. │ └─visR:::render.tableone(...)
    4. │   └─visR:::render.data.frame(...)
    5. │     └─visR:::render_gt(...)
    6. │       └─... %>% ...
    7. ├─visR:::add_metadata_gt(...)
    8. │ └─gt %>% gt::tab_header(title = title)
    9. ├─gt::tab_header(., title = title)
   10. │ └─gt:::stop_if_not_gt(data = data)
   11. │   └─gt:::is_gt(data)
   12. ├─gt::fmt_number(., columns = numcols, decimals = 2)
   13. │ └─gt:::stop_if_not_gt(data = data)
   14. │   └─gt:::is_gt(data)
   15. ├─visR:::get_gt(., numcols)
   16. ├─visR:::get_gt.tableone(., numcols)
   17. │ ├─... %>% ...
   18. │ └─gt::gt(data, groupname_col = "variable", rowname_col = "statistic")
   19. │   └─gt:::dt_stub_df_init(...)
   20. │     └─gt:::dt_boxhead_set_stub(data = data, var = rowname_col)
   21. │       ├─base::`[<-`(`*tmp*`, which(dt_boxhead$var == var), "type", value = `<chr>`)
   22. │       └─tibble:::`[<-.tbl_df`(...)
   23. │         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   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]])
   27. └─gt::fmt_number(...)
   28.   └─gt:::stop_if_not_gt(data = data)
   29.     └─gt:::is_gt(data)
  ── Error ('test-render.R:794:3'): T2.19 The values of the evalutated metric are pivoted wide. ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─adtte_risktable %>% ... at test-render.R:794:2
    2. ├─visR:::render.risktable(., title = NULL, datasource = NULL)
    3. │ └─visR:::render.tableone(...)
    4. │   └─visR:::render.data.frame(...)
    5. │     └─visR:::render_gt(...)
    6. │       └─... %>% ...
    7. ├─visR:::add_metadata_gt(...)
    8. │ └─gt %>% gt::tab_header(title = title)
    9. ├─gt::tab_header(., title = title)
   10. │ └─gt:::stop_if_not_gt(data = data)
   11. │   └─gt:::is_gt(data)
   12. ├─gt::fmt_number(., columns = numcols, decimals = 2)
   13. │ └─gt:::stop_if_not_gt(data = data)
   14. │   └─gt:::is_gt(data)
   15. ├─visR:::get_gt(., numcols)
   16. ├─visR:::get_gt.tableone(., numcols)
   17. │ ├─... %>% ...
   18. │ └─gt::gt(data, groupname_col = "variable", rowname_col = "statistic")
   19. │   └─gt:::dt_stub_df_init(...)
   20. │     └─gt:::dt_boxhead_set_stub(data = data, var = rowname_col)
   21. │       ├─base::`[<-`(`*tmp*`, which(dt_boxhead$var == var), "type", value = `<chr>`)
   22. │       └─tibble:::`[<-.tbl_df`(...)
   23. │         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   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]])
   27. └─gt::fmt_number(...)
   28.   └─gt:::stop_if_not_gt(data = data)
   29.     └─gt:::is_gt(data)
  ── Error ('test-render.R:809:3'): T3.1 When `engine` is 'gt' and `output_format` is 'latex', a latex `knit_asis` object is returned. ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─adtte %>% ... at test-render.R:809:2
    2. ├─visR:::render.data.frame(...)
    3. │ └─visR:::render_gt(...)
    4. │   └─... %>% ...
    5. ├─visR:::add_metadata_gt(...)
    6. │ └─gt %>% gt::tab_header(title = title)
    7. ├─gt::tab_header(., title = title)
    8. │ └─gt:::stop_if_not_gt(data = data)
    9. │   └─gt:::is_gt(data)
   10. ├─gt::fmt_number(., columns = numcols, decimals = 2)
   11. │ └─gt:::stop_if_not_gt(data = data)
   12. │   └─gt:::is_gt(data)
   13. ├─visR:::get_gt(., numcols)
   14. └─visR:::get_gt.data.frame(., numcols)
   15.   └─gt::gt(data)
   16.     └─gt::cols_align(data = data, align = "auto")
   17.       └─gt:::dt_boxhead_edit(data = data, var = column_names[i], column_align = align[i])
   18.         ├─base::`[[<-`(...)
   19.         └─tibble:::`[[<-.tbl_df`(...)
   20.           └─tibble:::tbl_subassign(...)
   21.             └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   22.               ├─base::withCallingHandlers(...)
   23.               └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Failure ('test-render.R:980:3'): T6.1 No error when `data` is a `data.frame`. ──
  `.` threw an error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─adtte %>% visR:::get_gt.data.frame() %>% ... at test-render.R:980:2
    2. ├─testthat::expect_error(., NA)
    3. │ └─testthat:::quasi_capture(...)
    4. │   ├─testthat (local) .capture(...)
    5. │   │ └─base::withCallingHandlers(...)
    6. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. └─visR:::get_gt.data.frame(.)
    8.   └─gt::gt(data)
    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-render.R:986:3'): T6.2 The returned object is of type `gt_tbl`. ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─adtte %>% visR:::get_gt.data.frame() at test-render.R:986:2
    2. └─visR:::get_gt.data.frame(.)
    3.   └─gt::gt(data)
    4.     └─gt::cols_align(data = data, align = "auto")
    5.       └─gt:::dt_boxhead_edit(data = data, var = column_names[i], column_align = align[i])
    6.         ├─base::`[[<-`(...)
    7.         └─tibble:::`[[<-.tbl_df`(...)
    8.           └─tibble:::tbl_subassign(...)
    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]])
  ── Failure ('test-tableone.R:22:3'): T1.1 No error when `data` is of class `data.frame`. ──
  `.` threw an error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─... %>% testthat::expect_error(NA) at test-tableone.R:22:2
    2. ├─testthat::expect_error(., NA)
    3. │ └─testthat:::quasi_capture(...)
    4. │   ├─testthat (local) .capture(...)
    5. │   │ └─base::withCallingHandlers(...)
    6. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─visR::tableone(., title = NULL, datasource = NULL)
    8. │ └─... %>% ...
    9. ├─visR::render(...)
   10. ├─visR:::render.tableone(...)
   11. │ └─visR:::render.data.frame(...)
   12. │   └─visR:::render_gt(...)
   13. │     └─... %>% ...
   14. ├─visR:::add_metadata_gt(...)
   15. │ └─gt %>% gt::tab_header(title = title)
   16. ├─gt::tab_header(., title = title)
   17. │ └─gt:::stop_if_not_gt(data = data)
   18. │   └─gt:::is_gt(data)
   19. ├─gt::fmt_number(., columns = numcols, decimals = 2)
   20. │ └─gt:::stop_if_not_gt(data = data)
   21. │   └─gt:::is_gt(data)
   22. ├─visR:::get_gt(., numcols)
   23. ├─visR:::get_gt.tableone(., numcols)
   24. │ ├─... %>% ...
   25. │ └─gt::gt(data, groupname_col = "variable", rowname_col = "statistic")
   26. │   └─gt:::dt_stub_df_init(...)
   27. │     └─gt:::dt_boxhead_set_stub(data = data, var = rowname_col)
   28. │       ├─base::`[<-`(`*tmp*`, which(dt_boxhead$var == var), "type", value = `<chr>`)
   29. │       └─tibble:::`[<-.tbl_df`(...)
   30. │         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   31. │           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   32. │             ├─base::withCallingHandlers(...)
   33. │             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   34. └─gt::fmt_number(...)
   35.   └─gt:::stop_if_not_gt(data = data)
   36.     └─gt:::is_gt(data)
  ── Failure ('test-tableone.R:50:3'): T2.1 No error when `title` is not `NULL`. ──
  `.` threw an error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─... %>% testthat::expect_error(NA) at test-tableone.R:50:2
    2. ├─testthat::expect_error(., NA)
    3. │ └─testthat:::quasi_capture(...)
    4. │   ├─testthat (local) .capture(...)
    5. │   │ └─base::withCallingHandlers(...)
    6. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─visR::tableone(., title = 1, datasource = NULL)
    8. │ └─... %>% ...
    9. ├─visR::render(...)
   10. ├─visR:::render.tableone(...)
   11. │ └─visR:::render.data.frame(...)
   12. │   └─visR:::render_gt(...)
   13. │     └─... %>% ...
   14. ├─visR:::add_metadata_gt(...)
   15. │ └─gt %>% gt::tab_header(title = title)
   16. ├─gt::tab_header(., title = title)
   17. │ └─gt:::stop_if_not_gt(data = data)
   18. │   └─gt:::is_gt(data)
   19. ├─gt::fmt_number(., columns = numcols, decimals = 2)
   20. │ └─gt:::stop_if_not_gt(data = data)
   21. │   └─gt:::is_gt(data)
   22. ├─visR:::get_gt(., numcols)
   23. ├─visR:::get_gt.tableone(., numcols)
   24. │ ├─... %>% ...
   25. │ └─gt::gt(data, groupname_col = "variable", rowname_col = "statistic")
   26. │   └─gt:::dt_stub_df_init(...)
   27. │     └─gt:::dt_boxhead_set_stub(data = data, var = rowname_col)
   28. │       ├─base::`[<-`(`*tmp*`, which(dt_boxhead$var == var), "type", value = `<chr>`)
   29. │       └─tibble:::`[<-.tbl_df`(...)
   30. │         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   31. │           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   32. │             ├─base::withCallingHandlers(...)
   33. │             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   34. └─gt::fmt_number(...)
   35.   └─gt:::stop_if_not_gt(data = data)
   36.     └─gt:::is_gt(data)
  ── Failure ('test-tableone.R:54:3'): T2.1 No error when `title` is not `NULL`. ──
  `.` threw an error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─... %>% testthat::expect_error(NA) at test-tableone.R:54:2
    2. ├─testthat::expect_error(., NA)
    3. │ └─testthat:::quasi_capture(...)
    4. │   ├─testthat (local) .capture(...)
    5. │   │ └─base::withCallingHandlers(...)
    6. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─visR::tableone(., title = "visR", datasource = NULL)
    8. │ └─... %>% ...
    9. ├─visR::render(...)
   10. ├─visR:::render.tableone(...)
   11. │ └─visR:::render.data.frame(...)
   12. │   └─visR:::render_gt(...)
   13. │     └─... %>% ...
   14. ├─visR:::add_metadata_gt(...)
   15. │ └─gt %>% gt::tab_header(title = title)
   16. ├─gt::tab_header(., title = title)
   17. │ └─gt:::stop_if_not_gt(data = data)
   18. │   └─gt:::is_gt(data)
   19. ├─gt::fmt_number(., columns = numcols, decimals = 2)
   20. │ └─gt:::stop_if_not_gt(data = data)
   21. │   └─gt:::is_gt(data)
   22. ├─visR:::get_gt(., numcols)
   23. ├─visR:::get_gt.tableone(., numcols)
   24. │ ├─... %>% ...
   25. │ └─gt::gt(data, groupname_col = "variable", rowname_col = "statistic")
   26. │   └─gt:::dt_stub_df_init(...)
   27. │     └─gt:::dt_boxhead_set_stub(data = data, var = rowname_col)
   28. │       ├─base::`[<-`(`*tmp*`, which(dt_boxhead$var == var), "type", value = `<chr>`)
   29. │       └─tibble:::`[<-.tbl_df`(...)
   30. │         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   31. │           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   32. │             ├─base::withCallingHandlers(...)
   33. │             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   34. └─gt::fmt_number(...)
   35.   └─gt:::stop_if_not_gt(data = data)
   36.     └─gt:::is_gt(data)
  ── Failure ('test-tableone.R:58:3'): T2.1 No error when `title` is not `NULL`. ──
  `.` threw an error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─... %>% testthat::expect_error(NA) at test-tableone.R:58:2
    2. ├─testthat::expect_error(., NA)
    3. │ └─testthat:::quasi_capture(...)
    4. │   ├─testthat (local) .capture(...)
    5. │   │ └─base::withCallingHandlers(...)
    6. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─visR::tableone(., title = c(1, 2, 3), datasource = NULL)
    8. │ └─... %>% ...
    9. ├─visR::render(...)
   10. ├─visR:::render.tableone(...)
   11. │ └─visR:::render.data.frame(...)
   12. │   └─visR:::render_gt(...)
   13. │     └─... %>% ...
   14. ├─visR:::add_metadata_gt(...)
   15. │ └─gt %>% gt::tab_header(title = title)
   16. ├─gt::tab_header(., title = title)
   17. │ └─gt:::stop_if_not_gt(data = data)
   18. │   └─gt:::is_gt(data)
   19. ├─gt::fmt_number(., columns = numcols, decimals = 2)
   20. │ └─gt:::stop_if_not_gt(data = data)
   21. │   └─gt:::is_gt(data)
   22. ├─visR:::get_gt(., numcols)
   23. ├─visR:::get_gt.tableone(., numcols)
   24. │ ├─... %>% ...
   25. │ └─gt::gt(data, groupname_col = "variable", rowname_col = "statistic")
   26. │   └─gt:::dt_stub_df_init(...)
   27. │     └─gt:::dt_boxhead_set_stub(data = data, var = rowname_col)
   28. │       ├─base::`[<-`(`*tmp*`, which(dt_boxhead$var == var), "type", value = `<chr>`)
   29. │       └─tibble:::`[<-.tbl_df`(...)
   30. │         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   31. │           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   32. │             ├─base::withCallingHandlers(...)
   33. │             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   34. └─gt::fmt_number(...)
   35.   └─gt:::stop_if_not_gt(data = data)
   36.     └─gt:::is_gt(data)
  ── Failure ('test-tableone.R:64:3'): T2.2 No error when `datasource` is not `NULL`. ──
  `.` threw an error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─... %>% testthat::expect_error(NA) at test-tableone.R:64:2
    2. ├─testthat::expect_error(., NA)
    3. │ └─testthat:::quasi_capture(...)
    4. │   ├─testthat (local) .capture(...)
    5. │   │ └─base::withCallingHandlers(...)
    6. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─visR::tableone(., title = NULL, datasource = 1)
    8. │ └─... %>% ...
    9. ├─visR::render(...)
   10. ├─visR:::render.tableone(...)
   11. │ └─visR:::render.data.frame(...)
   12. │   └─visR:::render_gt(...)
   13. │     └─... %>% ...
   14. ├─visR:::add_metadata_gt(...)
   15. │ └─gt %>% gt::tab_header(title = title)
   16. ├─gt::tab_header(., title = title)
   17. │ └─gt:::stop_if_not_gt(data = data)
   18. │   └─gt:::is_gt(data)
   19. ├─gt::fmt_number(., columns = numcols, decimals = 2)
   20. │ └─gt:::stop_if_not_gt(data = data)
   21. │   └─gt:::is_gt(data)
   22. ├─visR:::get_gt(., numcols)
   23. ├─visR:::get_gt.tableone(., numcols)
   24. │ ├─... %>% ...
   25. │ └─gt::gt(data, groupname_col = "variable", rowname_col = "statistic")
   26. │   └─gt:::dt_stub_df_init(...)
   27. │     └─gt:::dt_boxhead_set_stub(data = data, var = rowname_col)
   28. │       ├─base::`[<-`(`*tmp*`, which(dt_boxhead$var == var), "type", value = `<chr>`)
   29. │       └─tibble:::`[<-.tbl_df`(...)
   30. │         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   31. │           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   32. │             ├─base::withCallingHandlers(...)
   33. │             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   34. └─gt::fmt_number(...)
   35.   └─gt:::stop_if_not_gt(data = data)
   36.     └─gt:::is_gt(data)
  ── Failure ('test-tableone.R:68:3'): T2.2 No error when `datasource` is not `NULL`. ──
  `.` threw an error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─... %>% testthat::expect_error(NA) at test-tableone.R:68:2
    2. ├─testthat::expect_error(., NA)
    3. │ └─testthat:::quasi_capture(...)
    4. │   ├─testthat (local) .capture(...)
    5. │   │ └─base::withCallingHandlers(...)
    6. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─visR::tableone(., title = NULL, datasource = "visR")
    8. │ └─... %>% ...
    9. ├─visR::render(...)
   10. ├─visR:::render.tableone(...)
   11. │ └─visR:::render.data.frame(...)
   12. │   └─visR:::render_gt(...)
   13. │     └─... %>% ...
   14. ├─visR:::add_metadata_gt(...)
   15. │ └─gt %>% gt::tab_header(title = title)
   16. ├─gt::tab_header(., title = title)
   17. │ └─gt:::stop_if_not_gt(data = data)
   18. │   └─gt:::is_gt(data)
   19. ├─gt::fmt_number(., columns = numcols, decimals = 2)
   20. │ └─gt:::stop_if_not_gt(data = data)
   21. │   └─gt:::is_gt(data)
   22. ├─visR:::get_gt(., numcols)
   23. ├─visR:::get_gt.tableone(., numcols)
   24. │ ├─... %>% ...
   25. │ └─gt::gt(data, groupname_col = "variable", rowname_col = "statistic")
   26. │   └─gt:::dt_stub_df_init(...)
   27. │     └─gt:::dt_boxhead_set_stub(data = data, var = rowname_col)
   28. │       ├─base::`[<-`(`*tmp*`, which(dt_boxhead$var == var), "type", value = `<chr>`)
   29. │       └─tibble:::`[<-.tbl_df`(...)
   30. │         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   31. │           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   32. │             ├─base::withCallingHandlers(...)
   33. │             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   34. └─gt::fmt_number(...)
   35.   └─gt:::stop_if_not_gt(data = data)
   36.     └─gt:::is_gt(data)
  ── Failure ('test-tableone.R:72:3'): T2.2 No error when `datasource` is not `NULL`. ──
  `.` threw an error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─... %>% testthat::expect_error(NA) at test-tableone.R:72:2
    2. ├─testthat::expect_error(., NA)
    3. │ └─testthat:::quasi_capture(...)
    4. │   ├─testthat (local) .capture(...)
    5. │   │ └─base::withCallingHandlers(...)
    6. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─visR::tableone(., title = NULL, datasource = c(1, 2, 3))
    8. │ └─... %>% ...
    9. ├─visR::render(...)
   10. ├─visR:::render.tableone(...)
   11. │ └─visR:::render.data.frame(...)
   12. │   └─visR:::render_gt(...)
   13. │     └─... %>% ...
   14. ├─visR:::add_metadata_gt(...)
   15. │ └─gt %>% gt::tab_header(title = title)
   16. ├─gt::tab_header(., title = title)
   17. │ └─gt:::stop_if_not_gt(data = data)
   18. │   └─gt:::is_gt(data)
   19. ├─gt::fmt_number(., columns = numcols, decimals = 2)
   20. │ └─gt:::stop_if_not_gt(data = data)
   21. │   └─gt:::is_gt(data)
   22. ├─visR:::get_gt(., numcols)
   23. ├─visR:::get_gt.tableone(., numcols)
   24. │ ├─... %>% ...
   25. │ └─gt::gt(data, groupname_col = "variable", rowname_col = "statistic")
   26. │   └─gt:::dt_stub_df_init(...)
   27. │     └─gt:::dt_boxhead_set_stub(data = data, var = rowname_col)
   28. │       ├─base::`[<-`(`*tmp*`, which(dt_boxhead$var == var), "type", value = `<chr>`)
   29. │       └─tibble:::`[<-.tbl_df`(...)
   30. │         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   31. │           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   32. │             ├─base::withCallingHandlers(...)
   33. │             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   34. └─gt::fmt_number(...)
   35.   └─gt:::stop_if_not_gt(data = data)
   36.     └─gt:::is_gt(data)
  ── Failure ('test-tableone.R:78:3'): T2.3 No error when `footnote` is not `NULL`. ──
  `.` threw an error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─... %>% testthat::expect_error(NA) at test-tableone.R:78:2
    2. ├─testthat::expect_error(., NA)
    3. │ └─testthat:::quasi_capture(...)
    4. │   ├─testthat (local) .capture(...)
    5. │   │ └─base::withCallingHandlers(...)
    6. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─visR::tableone(., title = NULL, datasource = NULL, footnote = 1)
    8. │ └─... %>% ...
    9. ├─visR::render(...)
   10. ├─visR:::render.tableone(...)
   11. │ └─visR:::render.data.frame(...)
   12. │   └─visR:::render_gt(...)
   13. │     └─... %>% ...
   14. ├─visR:::add_metadata_gt(...)
   15. │ └─gt %>% gt::tab_header(title = title)
   16. ├─gt::tab_header(., title = title)
   17. │ └─gt:::stop_if_not_gt(data = data)
   18. │   └─gt:::is_gt(data)
   19. ├─gt::fmt_number(., columns = numcols, decimals = 2)
   20. │ └─gt:::stop_if_not_gt(data = data)
   21. │   └─gt:::is_gt(data)
   22. ├─visR:::get_gt(., numcols)
   23. ├─visR:::get_gt.tableone(., numcols)
   24. │ ├─... %>% ...
   25. │ └─gt::gt(data, groupname_col = "variable", rowname_col = "statistic")
   26. │   └─gt:::dt_stub_df_init(...)
   27. │     └─gt:::dt_boxhead_set_stub(data = data, var = rowname_col)
   28. │       ├─base::`[<-`(`*tmp*`, which(dt_boxhead$var == var), "type", value = `<chr>`)
   29. │       └─tibble:::`[<-.tbl_df`(...)
   30. │         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   31. │           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   32. │             ├─base::withCallingHandlers(...)
   33. │             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   34. └─gt::fmt_number(...)
   35.   └─gt:::stop_if_not_gt(data = data)
   36.     └─gt:::is_gt(data)
  ── Failure ('test-tableone.R:82:3'): T2.3 No error when `footnote` is not `NULL`. ──
  `.` threw an error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─... %>% testthat::expect_error(NA) at test-tableone.R:82:2
    2. ├─testthat::expect_error(., NA)
    3. │ └─testthat:::quasi_capture(...)
    4. │   ├─testthat (local) .capture(...)
    5. │   │ └─base::withCallingHandlers(...)
    6. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─visR::tableone(., title = NULL, datasource = NULL, footnote = "visR")
    8. │ └─... %>% ...
    9. ├─visR::render(...)
   10. ├─visR:::render.tableone(...)
   11. │ └─visR:::render.data.frame(...)
   12. │   └─visR:::render_gt(...)
   13. │     └─... %>% ...
   14. ├─visR:::add_metadata_gt(...)
   15. │ └─gt %>% gt::tab_header(title = title)
   16. ├─gt::tab_header(., title = title)
   17. │ └─gt:::stop_if_not_gt(data = data)
   18. │   └─gt:::is_gt(data)
   19. ├─gt::fmt_number(., columns = numcols, decimals = 2)
   20. │ └─gt:::stop_if_not_gt(data = data)
   21. │   └─gt:::is_gt(data)
   22. ├─visR:::get_gt(., numcols)
   23. ├─visR:::get_gt.tableone(., numcols)
   24. │ ├─... %>% ...
   25. │ └─gt::gt(data, groupname_col = "variable", rowname_col = "statistic")
   26. │   └─gt:::dt_stub_df_init(...)
   27. │     └─gt:::dt_boxhead_set_stub(data = data, var = rowname_col)
   28. │       ├─base::`[<-`(`*tmp*`, which(dt_boxhead$var == var), "type", value = `<chr>`)
   29. │       └─tibble:::`[<-.tbl_df`(...)
   30. │         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   31. │           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   32. │             ├─base::withCallingHandlers(...)
   33. │             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   34. └─gt::fmt_number(...)
   35.   └─gt:::stop_if_not_gt(data = data)
   36.     └─gt:::is_gt(data)
  ── Failure ('test-tableone.R:86:3'): T2.3 No error when `footnote` is not `NULL`. ──
  `.` threw an error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─... %>% testthat::expect_error(NA) at test-tableone.R:86:2
    2. ├─testthat::expect_error(., NA)
    3. │ └─testthat:::quasi_capture(...)
    4. │   ├─testthat (local) .capture(...)
    5. │   │ └─base::withCallingHandlers(...)
    6. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─visR::tableone(...)
    8. │ └─... %>% ...
    9. ├─visR::render(...)
   10. ├─visR:::render.tableone(...)
   11. │ └─visR:::render.data.frame(...)
   12. │   └─visR:::render_gt(...)
   13. │     └─... %>% ...
   14. ├─visR:::add_metadata_gt(...)
   15. │ └─gt %>% gt::tab_header(title = title)
   16. ├─gt::tab_header(., title = title)
   17. │ └─gt:::stop_if_not_gt(data = data)
   18. │   └─gt:::is_gt(data)
   19. ├─gt::fmt_number(., columns = numcols, decimals = 2)
   20. │ └─gt:::stop_if_not_gt(data = data)
   21. │   └─gt:::is_gt(data)
   22. ├─visR:::get_gt(., numcols)
   23. ├─visR:::get_gt.tableone(., numcols)
   24. │ ├─... %>% ...
   25. │ └─gt::gt(data, groupname_col = "variable", rowname_col = "statistic")
   26. │   └─gt:::dt_stub_df_init(...)
   27. │     └─gt:::dt_boxhead_set_stub(data = data, var = rowname_col)
   28. │       ├─base::`[<-`(`*tmp*`, which(dt_boxhead$var == var), "type", value = `<chr>`)
   29. │       └─tibble:::`[<-.tbl_df`(...)
   30. │         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   31. │           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   32. │             ├─base::withCallingHandlers(...)
   33. │             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   34. └─gt::fmt_number(...)
   35.   └─gt:::stop_if_not_gt(data = data)
   36.     └─gt:::is_gt(data)
  ── Failure ('test-tableone.R:92:3'): T2.4 No error when `strata` is not `NULL`. ──
  `.` threw an error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─... %>% testthat::expect_error(NA) at test-tableone.R:92:2
    2. ├─testthat::expect_error(., NA)
    3. │ └─testthat:::quasi_capture(...)
    4. │   ├─testthat (local) .capture(...)
    5. │   │ └─base::withCallingHandlers(...)
    6. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─visR::tableone(., title = NULL, datasource = NULL, strata = "SEX")
    8. │ └─... %>% ...
    9. ├─visR::render(...)
   10. ├─visR:::render.tableone(...)
   11. │ └─visR:::render.data.frame(...)
   12. │   └─visR:::render_gt(...)
   13. │     └─... %>% ...
   14. ├─visR:::add_metadata_gt(...)
   15. │ └─gt %>% gt::tab_header(title = title)
   16. ├─gt::tab_header(., title = title)
   17. │ └─gt:::stop_if_not_gt(data = data)
   18. │   └─gt:::is_gt(data)
   19. ├─gt::fmt_number(., columns = numcols, decimals = 2)
   20. │ └─gt:::stop_if_not_gt(data = data)
   21. │   └─gt:::is_gt(data)
   22. ├─visR:::get_gt(., numcols)
   23. ├─visR:::get_gt.tableone(., numcols)
   24. │ ├─... %>% ...
   25. │ └─gt::gt(data, groupname_col = "variable", rowname_col = "statistic")
   26. │   └─gt:::dt_stub_df_init(...)
   27. │     └─gt:::dt_boxhead_set_stub(data = data, var = rowname_col)
   28. │       ├─base::`[<-`(`*tmp*`, which(dt_boxhead$var == var), "type", value = `<chr>`)
   29. │       └─tibble:::`[<-.tbl_df`(...)
   30. │         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   31. │           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   32. │             ├─base::withCallingHandlers(...)
   33. │             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   34. └─gt::fmt_number(...)
   35.   └─gt:::stop_if_not_gt(data = data)
   36.     └─gt:::is_gt(data)
  ── Failure ('test-tableone.R:98:3'): T2.5 No error when `overall` is a `logical`. ──
  `.` threw an error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─... %>% testthat::expect_error(NA) at test-tableone.R:98:2
    2. ├─testthat::expect_error(., NA)
    3. │ └─testthat:::quasi_capture(...)
    4. │   ├─testthat (local) .capture(...)
    5. │   │ └─base::withCallingHandlers(...)
    6. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─visR::tableone(., title = NULL, datasource = NULL, overall = TRUE)
    8. │ └─... %>% ...
    9. ├─visR::render(...)
   10. ├─visR:::render.tableone(...)
   11. │ └─visR:::render.data.frame(...)
   12. │   └─visR:::render_gt(...)
   13. │     └─... %>% ...
   14. ├─visR:::add_metadata_gt(...)
   15. │ └─gt %>% gt::tab_header(title = title)
   16. ├─gt::tab_header(., title = title)
   17. │ └─gt:::stop_if_not_gt(data = data)
   18. │   └─gt:::is_gt(data)
   19. ├─gt::fmt_number(., columns = numcols, decimals = 2)
   20. │ └─gt:::stop_if_not_gt(data = data)
   21. │   └─gt:::is_gt(data)
   22. ├─visR:::get_gt(., numcols)
   23. ├─visR:::get_gt.tableone(., numcols)
   24. │ ├─... %>% ...
   25. │ └─gt::gt(data, groupname_col = "variable", rowname_col = "statistic")
   26. │   └─gt:::dt_stub_df_init(...)
   27. │     └─gt:::dt_boxhead_set_stub(data = data, var = rowname_col)
   28. │       ├─base::`[<-`(`*tmp*`, which(dt_boxhead$var == var), "type", value = `<chr>`)
   29. │       └─tibble:::`[<-.tbl_df`(...)
   30. │         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   31. │           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   32. │             ├─base::withCallingHandlers(...)
   33. │             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   34. └─gt::fmt_number(...)
   35.   └─gt:::stop_if_not_gt(data = data)
   36.     └─gt:::is_gt(data)
  ── Failure ('test-tableone.R:102:3'): T2.5 No error when `overall` is a `logical`. ──
  `.` threw an error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─... %>% testthat::expect_error(NA) at test-tableone.R:102:2
    2. ├─testthat::expect_error(., NA)
    3. │ └─testthat:::quasi_capture(...)
    4. │   ├─testthat (local) .capture(...)
    5. │   │ └─base::withCallingHandlers(...)
    6. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─visR::tableone(., title = NULL, datasource = NULL, overall = FALSE)
    8. │ └─... %>% ...
    9. ├─visR::render(...)
   10. ├─visR:::render.tableone(...)
   11. │ └─visR:::render.data.frame(...)
   12. │   └─visR:::render_gt(...)
   13. │     └─... %>% ...
   14. ├─visR:::add_metadata_gt(...)
   15. │ └─gt %>% gt::tab_header(title = title)
   16. ├─gt::tab_header(., title = title)
   17. │ └─gt:::stop_if_not_gt(data = data)
   18. │   └─gt:::is_gt(data)
   19. ├─gt::fmt_number(., columns = numcols, decimals = 2)
   20. │ └─gt:::stop_if_not_gt(data = data)
   21. │   └─gt:::is_gt(data)
   22. ├─visR:::get_gt(., numcols)
   23. ├─visR:::get_gt.tableone(., numcols)
   24. │ ├─... %>% ...
   25. │ └─gt::gt(data, groupname_col = "variable", rowname_col = "statistic")
   26. │   └─gt:::dt_stub_df_init(...)
   27. │     └─gt:::dt_boxhead_set_stub(data = data, var = rowname_col)
   28. │       ├─base::`[<-`(`*tmp*`, which(dt_boxhead$var == var), "type", value = `<chr>`)
   29. │       └─tibble:::`[<-.tbl_df`(...)
   30. │         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   31. │           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   32. │             ├─base::withCallingHandlers(...)
   33. │             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   34. └─gt::fmt_number(...)
   35.   └─gt:::stop_if_not_gt(data = data)
   36.     └─gt:::is_gt(data)
  
  [ FAIL 52 | WARN 24 | SKIP 27 | PASS 936 ]
  Error: Test failures
  In addition: Warning message:
  In top :
    closing unused connection 4 (https://raw.githubusercontent.com/vntkumar8/covid-survival/main/data/final.csv)
  Execution halted