Last updated on 2023-03-20 12:51:52 CET.
| Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
|---|---|---|---|---|---|---|
| r-devel-linux-x86_64-debian-clang | 0.3.1 | OK | ||||
| r-devel-linux-x86_64-debian-gcc | 0.3.1 | 11.43 | 362.00 | 373.43 | ERROR | |
| r-devel-linux-x86_64-fedora-clang | 0.3.1 | 660.82 | OK | |||
| r-devel-linux-x86_64-fedora-gcc | 0.3.1 | 626.68 | OK | |||
| r-patched-linux-x86_64 | 0.3.1 | 13.86 | 502.82 | 516.68 | OK | |
| r-release-linux-x86_64 | 0.3.1 | 14.13 | 488.41 | 502.54 | OK | |
| r-release-macos-arm64 | 0.3.1 | 110.00 | OK | |||
| r-release-macos-x86_64 | 0.3.1 | 154.00 | OK | |||
| r-release-windows-x86_64 | 0.3.1 | 60.00 | 547.00 | 607.00 | OK | |
| r-oldrel-macos-arm64 | 0.3.1 | 100.00 | OK | |||
| r-oldrel-macos-x86_64 | 0.3.1 | 153.00 | OK | |||
| r-oldrel-windows-ix86+x86_64 | 0.3.1 | 31.00 | 604.00 | 635.00 | OK |
Version: 0.3.1
Check: examples
Result: ERROR
Running examples in ‘visR-Ex.R’ failed
The error most likely occurred in:
> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: estimate_cuminc
> ### Title: Competing Events Cumulative Incidence
> ### Aliases: estimate_cuminc
>
> ### ** Examples
>
> cuminc <-
+ visR::estimate_cuminc(
+ data = tidycmprsk::trial,
+ strata = "trt",
+ CNSR = "death_cr",
+ AVAL = "ttdeath"
+ )
> cuminc
── cuminc() ────────────────────────────────────────────────────────────────────
Error in vectbl_assign(x[[j]], i, recycled_value[[j]]) :
DLL requires the use of native symbols
Calls: <Anonymous> ... tbl_subassign_row -> withCallingHandlers -> vectbl_assign
Execution halted
Flavor: r-devel-linux-x86_64-debian-gcc
Version: 0.3.1
Check: tests
Result: ERROR
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
Flavor: r-devel-linux-x86_64-debian-gcc
Version: 0.3.1
Check: re-building of vignette outputs
Result: ERROR
Error(s) in re-building vignettes:
...
--- re-building ‘CDISC_ADaM.Rmd’ using rmarkdown
Quitting from lines 60-63 (CDISC_ADaM.Rmd)
Error: processing vignette ‘CDISC_ADaM.Rmd’ failed with diagnostics:
DLL requires the use of native symbols
--- failed re-building ‘CDISC_ADaM.Rmd’
--- re-building ‘Consort_flow_diagram.Rmd’ using rmarkdown
--- finished re-building ‘Consort_flow_diagram.Rmd’
--- re-building ‘Styling_KM_plots.Rmd’ using rmarkdown
--- finished re-building ‘Styling_KM_plots.Rmd’
--- re-building ‘Time_to_event_analysis.Rmd’ using rmarkdown
Quitting from lines 69-78 (Time_to_event_analysis.Rmd)
Error: processing vignette ‘Time_to_event_analysis.Rmd’ failed with diagnostics:
DLL requires the use of native symbols
--- failed re-building ‘Time_to_event_analysis.Rmd’
SUMMARY: processing the following files failed:
‘CDISC_ADaM.Rmd’ ‘Time_to_event_analysis.Rmd’
Error: Vignette re-building failed.
Execution halted
Flavor: r-devel-linux-x86_64-debian-gcc