Package check result: OK Changes to worse in reverse depends: Package: cardx Check: examples New result: ERROR Running examples in ‘cardx-Ex.R’ failed The error most likely occurred in: > base::assign(".ptime", proc.time(), pos = "CheckExEnv") > ### Name: ard_categorical.survey.design > ### Title: ARD Categorical Survey Statistics > ### Aliases: ard_categorical.survey.design > > ### ** Examples > > ## Don't show: > if (cardx:::is_pkg_installed("survey")) (if (getRversion() >= "3.4") withAutoprint else force)({ # examplesIf + ## End(Don't show) + svy_titanic <- survey::svydesign(~1, data = as.data.frame(Titanic), weights = ~Freq) + + ard_categorical(svy_titanic, variables = c(Class, Age), by = Survived) + ## Don't show: + }) # examplesIf > svy_titanic <- survey::svydesign(~1, data = as.data.frame(Titanic), weights = ~Freq) > ard_categorical(svy_titanic, variables = c(Class, Age), by = Survived) Error in `dplyr::select()`: ! Can't select columns that don't exist. ✖ Column `fmt_fn` doesn't exist. Backtrace: ▆ 1. ├─(if (getRversion() >= "3.4") withAutoprint else force)(...) 2. │ └─base::source(...) 3. │ ├─base::withVisible(eval(ei, envir)) 4. │ └─base::eval(ei, envir) 5. │ └─base::eval(ei, envir) 6. ├─cards::ard_categorical(...) 7. ├─cardx:::ard_categorical.survey.design(...) 8. │ ├─dplyr::mutate(...) 9. │ ├─dplyr::select(...) 10. │ └─dplyr:::select.data.frame(...) 11. │ └─tidyselect::eval_select(expr(c(...)), data = .data, error_call = error_call) 12. │ └─tidyselect:::eval_select_impl(...) 13. │ ├─tidyselect:::with_subscript_errors(...) 14. │ │ └─base::withCallingHandlers(...) 15. │ └─tidyselect:::vars_select_eval(...) 16. │ └─tidyselect:::walk_data_tree(expr, data_mask, context_mask) 17. │ └─tidyselect:::eval_c(expr, data_mask, context_mask) 18. │ └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init) 19. │ └─tidyselect:::walk_data_tree(new, data_mask, context_mask) 20. │ └─tidyselect:::eval_c(expr, data_mask, context_mask) 21. │ └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init) 22. │ └─tidyselect:::walk_data_tree(new, data_mask, context_mask) 23. │ └─tidyselect:::as_indices_sel_impl(...) 24. │ └─tidyselect:::as_indices_impl(...) 25. │ └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg) 26. │ └─vctrs::vec_as_location(...) 27. └─vctrs (local) ``() 28. └─vctrs:::stop_subscript_oob(...) 29. └─vctrs:::stop_subscript(...) 30. └─rlang::abort(...) Execution halted Package: cardx Check: tests New result: ERROR Running ‘testthat.R’ [131s/91s] Running the tests in ‘tests/testthat.R’ failed. Complete output: > library(testthat) > test_check("cardx", stop_on_warning = TRUE) Loading required package: cardx Attaching package: 'cardx' The following object is masked from 'package:testthat': matches Starting 2 test processes [ FAIL 40 | WARN 4 | SKIP 54 | PASS 295 ] ══ Skipped tests (54) ══════════════════════════════════════════════════════════ • On CRAN (54): 'test-ard_attributes.survey.design.R:8:3', 'test-ard_aod_wald_test.R:12:3', 'test-ard_car_vif.R:4:3', 'test-ard_car_vif.R:29:3', 'test-ard_car_anova.R:14:3', 'test-ard_car_anova.R:18:3', 'test-ard_categorical.survey.design.R:428:3', 'test-ard_categorical.survey.design.R:1195:3', 'test-ard_categorical.survey.design.R:1411:3', 'test-ard_categorical_max.R:12:3', 'test-ard_categorical_max.R:63:3', 'test-ard_categorical_max.R:79:3', 'test-ard_categorical_max.R:212:3', 'test-ard_categorical_max.R:237:3', 'test-ard_categorical_ci.survey.design.R:7:3', 'test-ard_continuous_ci.survey.design.R:7:3', 'test-ard_continuous_ci.survey.design.R:194:3', 'test-ard_dichotomous.survey.design.R:413:3', 'test-ard_effectsize_cohens_d.R:38:3', 'test-ard_effectsize_hedges_g.R:34:3', 'test-ard_emmeans_mean_difference.R:17:3', 'test-ard_emmeans_mean_difference.R:118:3', 'test-ard_proportion_ci.R:92:3', 'test-ard_proportion_ci.R:113:3', 'test-ard_regression.R:12:3', 'test-ard_regression.R:44:3', 'test-ard_regression_basic.R:12:3', 'test-ard_stats_aov.R:25:3', 'test-ard_stats_kruskal_test.R:22:3', 'test-ard_stats_mantelhaen_test.R:11:3', 'test-ard_stats_mood_test.R:22:3', 'test-ard_stats_oneway_test.R:24:3', 'test-ard_stats_poisson_test.R:74:3', 'test-ard_survey_svychisq.R:28:3', 'test-ard_survey_svyranktest.R:18:3', 'test-ard_survival_survfit.R:6:3', 'test-ard_survival_survfit.R:19:3', 'test-ard_survival_survfit.R:32:3', 'test-ard_survival_survfit.R:45:3', 'test-ard_survival_survfit.R:67:3', 'test-ard_survival_survfit.R:103:3', 'test-ard_survival_survfit.R:123:3', 'test-ard_survival_survfit.R:193:3', 'test-ard_survival_survfit.R:207:3', 'test-ard_survival_survfit.R:224:3', 'test-ard_survival_survfit.R:235:3', 'test-ard_survival_survfit_diff.R:40:3', 'test-construction_helpers.R:4:3', 'test-construction_helpers.R:104:3', 'test-proportion_ci.R:12:3', 'test-proportion_ci.R:138:3', 'test-ard_continuous.survey.design.R:70:3', 'test-ard_continuous.survey.design.R:322:3', 'test-ard_continuous.survey.design.R:338:3' ══ Failed tests ════════════════════════════════════════════════════════════════ ── Failure ('test-ard_aod_wald_test.R:23:3'): ard_aod_wald_test() follows ard structure ── `cards::check_ard_structure(...)` produced messages. ── Failure ('test-ard_car_vif.R:36:3'): ard_car_vif() follows ard structure ──── `cards::check_ard_structure(...)` produced messages. ── Failure ('test-ard_car_anova.R:25:3'): ard_car_anova() follows ard structure ── `cards::check_ard_structure(...)` produced messages. ── Failure ('test-ard_categorical.survey.design.R:12:3'): ard_categorical.survey.design() works ── `... <- NULL` threw an unexpected error. Message: Can't select columns that don't exist. x Column `fmt_fn` doesn't exist. Class: vctrs_error_subscript_oob/vctrs_error_subscript/rlang_error/error/condition Backtrace: ▆ 1. ├─testthat::expect_error(...) at test-ard_categorical.survey.design.R:12:3 2. │ └─testthat:::expect_condition_matching(...) 3. │ └─testthat:::quasi_capture(...) 4. │ ├─testthat (local) .capture(...) 5. │ │ └─base::withCallingHandlers(...) 6. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo)) 7. ├─cards::ard_categorical(...) 8. ├─cardx:::ard_categorical.survey.design(...) 9. │ ├─dplyr::mutate(...) 10. │ ├─dplyr::select(...) 11. │ └─dplyr:::select.data.frame(...) 12. │ └─tidyselect::eval_select(expr(c(...)), data = .data, error_call = error_call) 13. │ └─tidyselect:::eval_select_impl(...) 14. │ ├─tidyselect:::with_subscript_errors(...) 15. │ │ └─base::withCallingHandlers(...) 16. │ └─tidyselect:::vars_select_eval(...) 17. │ └─tidyselect:::walk_data_tree(expr, data_mask, context_mask) 18. │ └─tidyselect:::eval_c(expr, data_mask, context_mask) 19. │ └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init) 20. │ └─tidyselect:::walk_data_tree(new, data_mask, context_mask) 21. │ └─tidyselect:::eval_c(expr, data_mask, context_mask) 22. │ └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init) 23. │ └─tidyselect:::walk_data_tree(new, data_mask, context_mask) 24. │ └─tidyselect:::as_indices_sel_impl(...) 25. │ └─tidyselect:::as_indices_impl(...) 26. │ └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg) 27. │ └─vctrs::vec_as_location(...) 28. └─vctrs (local) ``() 29. └─vctrs:::stop_subscript_oob(...) 30. └─vctrs:::stop_subscript(...) 31. └─rlang::abort(...) ── Error ('test-ard_categorical.survey.design.R:22:3'): ard_categorical.survey.design() works ── Error in `eval(code, test_env)`: object 'ard_svy_cat_row' not found Backtrace: ▆ 1. ├─testthat::expect_invisible(...) at test-ard_categorical.survey.design.R:22:3 2. │ └─base::withVisible(call) 3. └─cards::check_ard_structure(ard_svy_cat_row, method = FALSE) ── Failure ('test-ard_categorical.survey.design.R:475:3'): ard_categorical.survey.design() works for unobserved factor levels ── `... <- NULL` threw an unexpected error. Message: Can't select columns that don't exist. x Column `fmt_fn` doesn't exist. Class: vctrs_error_subscript_oob/vctrs_error_subscript/rlang_error/error/condition Backtrace: ▆ 1. ├─testthat::expect_error(...) at test-ard_categorical.survey.design.R:475:3 2. │ └─testthat:::expect_condition_matching(...) 3. │ └─testthat:::quasi_capture(...) 4. │ ├─testthat (local) .capture(...) 5. │ │ └─base::withCallingHandlers(...) 6. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo)) 7. ├─cards::ard_categorical(...) 8. ├─cardx:::ard_categorical.survey.design(...) 9. │ ├─dplyr::mutate(...) 10. │ ├─dplyr::select(...) 11. │ └─dplyr:::select.data.frame(...) 12. │ └─tidyselect::eval_select(expr(c(...)), data = .data, error_call = error_call) 13. │ └─tidyselect:::eval_select_impl(...) 14. │ ├─tidyselect:::with_subscript_errors(...) 15. │ │ └─base::withCallingHandlers(...) 16. │ └─tidyselect:::vars_select_eval(...) 17. │ └─tidyselect:::walk_data_tree(expr, data_mask, context_mask) 18. │ └─tidyselect:::eval_c(expr, data_mask, context_mask) 19. │ └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init) 20. │ └─tidyselect:::walk_data_tree(new, data_mask, context_mask) 21. │ └─tidyselect:::eval_c(expr, data_mask, context_mask) 22. │ └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init) 23. │ └─tidyselect:::walk_data_tree(new, data_mask, context_mask) 24. │ └─tidyselect:::as_indices_sel_impl(...) 25. │ └─tidyselect:::as_indices_impl(...) 26. │ └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg) 27. │ └─vctrs::vec_as_location(...) 28. └─vctrs (local) ``() 29. └─vctrs:::stop_subscript_oob(...) 30. └─vctrs:::stop_subscript(...) 31. └─rlang::abort(...) ── Error ('test-ard_categorical.survey.design.R:485:3'): ard_categorical.survey.design() works for unobserved factor levels ── Error in `eval(code, test_env)`: object 'ard_svy_cat_row' not found Backtrace: ▆ 1. ├─testthat::expect_invisible(...) at test-ard_categorical.survey.design.R:485:3 2. │ └─base::withVisible(call) 3. └─cards::check_ard_structure(ard_svy_cat_row, method = FALSE) ── Failure ('test-ard_categorical.survey.design.R:771:3'): ard_categorical.survey.design() works for unobserved logical levels ── `... <- NULL` threw an unexpected error. Message: Can't select columns that don't exist. x Column `fmt_fn` doesn't exist. Class: vctrs_error_subscript_oob/vctrs_error_subscript/rlang_error/error/condition Backtrace: ▆ 1. ├─testthat::expect_error(...) at test-ard_categorical.survey.design.R:771:3 2. │ └─testthat:::expect_condition_matching(...) 3. │ └─testthat:::quasi_capture(...) 4. │ ├─testthat (local) .capture(...) 5. │ │ └─base::withCallingHandlers(...) 6. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo)) 7. ├─cards::ard_categorical(...) 8. ├─cardx:::ard_categorical.survey.design(...) 9. │ ├─dplyr::mutate(...) 10. │ ├─dplyr::select(...) 11. │ └─dplyr:::select.data.frame(...) 12. │ └─tidyselect::eval_select(expr(c(...)), data = .data, error_call = error_call) 13. │ └─tidyselect:::eval_select_impl(...) 14. │ ├─tidyselect:::with_subscript_errors(...) 15. │ │ └─base::withCallingHandlers(...) 16. │ └─tidyselect:::vars_select_eval(...) 17. │ └─tidyselect:::walk_data_tree(expr, data_mask, context_mask) 18. │ └─tidyselect:::eval_c(expr, data_mask, context_mask) 19. │ └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init) 20. │ └─tidyselect:::walk_data_tree(new, data_mask, context_mask) 21. │ └─tidyselect:::eval_c(expr, data_mask, context_mask) 22. │ └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init) 23. │ └─tidyselect:::walk_data_tree(new, data_mask, context_mask) 24. │ └─tidyselect:::as_indices_sel_impl(...) 25. │ └─tidyselect:::as_indices_impl(...) 26. │ └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg) 27. │ └─vctrs::vec_as_location(...) 28. └─vctrs (local) ``() 29. └─vctrs:::stop_subscript_oob(...) 30. └─vctrs:::stop_subscript(...) 31. └─rlang::abort(...) ── Error ('test-ard_categorical.survey.design.R:781:3'): ard_categorical.survey.design() works for unobserved logical levels ── Error in `eval(code, test_env)`: object 'ard_svy_cat_row' not found Backtrace: ▆ 1. ├─testthat::expect_invisible(...) at test-ard_categorical.survey.design.R:781:3 2. │ └─base::withVisible(call) 3. └─cards::check_ard_structure(ard_svy_cat_row, method = FALSE) ── Failure ('test-ard_categorical.survey.design.R:1062:3'): ard_categorical.survey.design() works with variables with only 1 level ── `... <- NULL` threw an unexpected error. Message: Can't select columns that don't exist. x Column `fmt_fn` doesn't exist. Class: vctrs_error_subscript_oob/vctrs_error_subscript/rlang_error/error/condition Backtrace: ▆ 1. ├─testthat::expect_error(...) at test-ard_categorical.survey.design.R:1062:3 2. │ └─testthat:::expect_condition_matching(...) 3. │ └─testthat:::quasi_capture(...) 4. │ ├─testthat (local) .capture(...) 5. │ │ └─base::withCallingHandlers(...) 6. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo)) 7. ├─cards::ard_categorical(...) 8. ├─cardx:::ard_categorical.survey.design(...) 9. │ ├─dplyr::mutate(...) 10. │ ├─dplyr::select(...) 11. │ └─dplyr:::select.data.frame(...) 12. │ └─tidyselect::eval_select(expr(c(...)), data = .data, error_call = error_call) 13. │ └─tidyselect:::eval_select_impl(...) 14. │ ├─tidyselect:::with_subscript_errors(...) 15. │ │ └─base::withCallingHandlers(...) 16. │ └─tidyselect:::vars_select_eval(...) 17. │ └─tidyselect:::walk_data_tree(expr, data_mask, context_mask) 18. │ └─tidyselect:::eval_c(expr, data_mask, context_mask) 19. │ └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init) 20. │ └─tidyselect:::walk_data_tree(new, data_mask, context_mask) 21. │ └─tidyselect:::eval_c(expr, data_mask, context_mask) 22. │ └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init) 23. │ └─tidyselect:::walk_data_tree(new, data_mask, context_mask) 24. │ └─tidyselect:::as_indices_sel_impl(...) 25. │ └─tidyselect:::as_indices_impl(...) 26. │ └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg) 27. │ └─vctrs::vec_as_location(...) 28. └─vctrs (local) ``() 29. └─vctrs:::stop_subscript_oob(...) 30. └─vctrs:::stop_subscript(...) 31. └─rlang::abort(...) ── Error ('test-ard_categorical.survey.design.R:1072:3'): ard_categorical.survey.design() works with variables with only 1 level ── Error in `eval(code, test_env)`: object 'ard_svy_cat_row' not found Backtrace: ▆ 1. ├─testthat::expect_invisible(...) at test-ard_categorical.survey.design.R:1072:3 2. │ └─base::withVisible(call) 3. └─cards::check_ard_structure(ard_svy_cat_row, method = FALSE) ── Error ('test-ard_categorical.survey.design.R:1226:3'): ard_categorical.survey.design() works when using generic names ── Error in `dplyr::select(dplyr::mutate(ard_categorical(data = data[["variables"]], variables = all_of(names(statistic_unweighted)), by = any_of(by), statistic = statistic_unweighted, denominator = denominator), across(c(cards::all_ard_groups("levels"), cards::all_ard_variables("levels")), ~map(.x, as.character))), -c("stat_label", "fmt_fn", "warning", "error"))`: Can't select columns that don't exist. x Column `fmt_fn` doesn't exist. Backtrace: ▆ 1. ├─testthat::expect_equal(...) at test-ard_categorical.survey.design.R:1226:3 2. │ └─testthat::quasi_label(enquo(object), label, arg = "object") 3. │ └─rlang::eval_bare(expr, quo_get_env(quo)) 4. ├─dplyr::select(...) 5. ├─cards::ard_categorical(...) 6. ├─cardx:::ard_categorical.survey.design(...) 7. │ ├─dplyr::mutate(...) 8. │ ├─dplyr::select(...) 9. │ └─dplyr:::select.data.frame(...) 10. │ └─tidyselect::eval_select(expr(c(...)), data = .data, error_call = error_call) 11. │ └─tidyselect:::eval_select_impl(...) 12. │ ├─tidyselect:::with_subscript_errors(...) 13. │ │ └─base::withCallingHandlers(...) 14. │ └─tidyselect:::vars_select_eval(...) 15. │ └─tidyselect:::walk_data_tree(expr, data_mask, context_mask) 16. │ └─tidyselect:::eval_c(expr, data_mask, context_mask) 17. │ └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init) 18. │ └─tidyselect:::walk_data_tree(new, data_mask, context_mask) 19. │ └─tidyselect:::eval_c(expr, data_mask, context_mask) 20. │ └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init) 21. │ └─tidyselect:::walk_data_tree(new, data_mask, context_mask) 22. │ └─tidyselect:::as_indices_sel_impl(...) 23. │ └─tidyselect:::as_indices_impl(...) 24. │ └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg) 25. │ └─vctrs::vec_as_location(...) 26. └─vctrs (local) ``() 27. └─vctrs:::stop_subscript_oob(...) 28. └─vctrs:::stop_subscript(...) 29. └─rlang::abort(...) ── Error ('test-ard_categorical.survey.design.R:1297:3'): ard_categorical.survey.design(statistic) properly excluded unweighted stats not selected ── Error in `dplyr::select(dplyr::mutate(ard_categorical(data = data[["variables"]], variables = all_of(names(statistic_unweighted)), by = any_of(by), statistic = statistic_unweighted, denominator = denominator), across(c(cards::all_ard_groups("levels"), cards::all_ard_variables("levels")), ~map(.x, as.character))), -c("stat_label", "fmt_fn", "warning", "error"))`: Can't select columns that don't exist. x Column `fmt_fn` doesn't exist. Backtrace: ▆ 1. ├─testthat::expect_equal(...) at test-ard_categorical.survey.design.R:1297:3 2. │ └─testthat::quasi_label(enquo(object), label, arg = "object") 3. │ └─rlang::eval_bare(expr, quo_get_env(quo)) 4. ├─dplyr::select(...) 5. ├─cards::ard_categorical(...) 6. ├─cardx:::ard_categorical.survey.design(...) 7. │ ├─dplyr::mutate(...) 8. │ ├─dplyr::select(...) 9. │ └─dplyr:::select.data.frame(...) 10. │ └─tidyselect::eval_select(expr(c(...)), data = .data, error_call = error_call) 11. │ └─tidyselect:::eval_select_impl(...) 12. │ ├─tidyselect:::with_subscript_errors(...) 13. │ │ └─base::withCallingHandlers(...) 14. │ └─tidyselect:::vars_select_eval(...) 15. │ └─tidyselect:::walk_data_tree(expr, data_mask, context_mask) 16. │ └─tidyselect:::eval_c(expr, data_mask, context_mask) 17. │ └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init) 18. │ └─tidyselect:::walk_data_tree(new, data_mask, context_mask) 19. │ └─tidyselect:::eval_c(expr, data_mask, context_mask) 20. │ └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init) 21. │ └─tidyselect:::walk_data_tree(new, data_mask, context_mask) 22. │ └─tidyselect:::as_indices_sel_impl(...) 23. │ └─tidyselect:::as_indices_impl(...) 24. │ └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg) 25. │ └─vctrs::vec_as_location(...) 26. └─vctrs (local) ``() 27. └─vctrs:::stop_subscript_oob(...) 28. └─vctrs:::stop_subscript(...) 29. └─rlang::abort(...) ── Error ('test-ard_categorical.survey.design.R:1317:3'): ard_categorical follows ard structure ── Error in `dplyr::select(dplyr::mutate(ard_categorical(data = data[["variables"]], variables = all_of(names(statistic_unweighted)), by = any_of(by), statistic = statistic_unweighted, denominator = denominator), across(c(cards::all_ard_groups("levels"), cards::all_ard_variables("levels")), ~map(.x, as.character))), -c("stat_label", "fmt_fn", "warning", "error"))`: Can't select columns that don't exist. x Column `fmt_fn` doesn't exist. Backtrace: ▆ 1. ├─testthat::expect_silent(...) at test-ard_categorical.survey.design.R:1317:3 2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise) 3. │ ├─testthat (local) .capture(...) 4. │ │ ├─withr::with_output_sink(...) 5. │ │ │ └─base::force(code) 6. │ │ ├─base::withCallingHandlers(...) 7. │ │ └─base::withVisible(code) 8. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo)) 9. ├─cards::check_ard_structure(...) 10. ├─cards::ard_categorical(...) 11. ├─cardx:::ard_categorical.survey.design(...) 12. │ ├─dplyr::mutate(...) 13. │ ├─dplyr::select(...) 14. │ └─dplyr:::select.data.frame(...) 15. │ └─tidyselect::eval_select(expr(c(...)), data = .data, error_call = error_call) 16. │ └─tidyselect:::eval_select_impl(...) 17. │ ├─tidyselect:::with_subscript_errors(...) 18. │ │ └─base::withCallingHandlers(...) 19. │ └─tidyselect:::vars_select_eval(...) 20. │ └─tidyselect:::walk_data_tree(expr, data_mask, context_mask) 21. │ └─tidyselect:::eval_c(expr, data_mask, context_mask) 22. │ └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init) 23. │ └─tidyselect:::walk_data_tree(new, data_mask, context_mask) 24. │ └─tidyselect:::eval_c(expr, data_mask, context_mask) 25. │ └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init) 26. │ └─tidyselect:::walk_data_tree(new, data_mask, context_mask) 27. │ └─tidyselect:::as_indices_sel_impl(...) 28. │ └─tidyselect:::as_indices_impl(...) 29. │ └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg) 30. │ └─vctrs::vec_as_location(...) 31. └─vctrs (local) ``() 32. └─vctrs:::stop_subscript_oob(...) 33. └─vctrs:::stop_subscript(...) 34. └─rlang::abort(...) ── Error ('test-ard_categorical.survey.design.R:1340:3'): ard_categorical.survey.design() original types are retained ── Error in `dplyr::select(dplyr::mutate(ard_categorical(data = data[["variables"]], variables = all_of(names(statistic_unweighted)), by = any_of(by), statistic = statistic_unweighted, denominator = denominator), across(c(cards::all_ard_groups("levels"), cards::all_ard_variables("levels")), ~map(.x, as.character))), -c("stat_label", "fmt_fn", "warning", "error"))`: Can't select columns that don't exist. x Column `fmt_fn` doesn't exist. Backtrace: ▆ 1. ├─testthat::expect_silent(...) at test-ard_categorical.survey.design.R:1340:3 2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise) 3. │ ├─testthat (local) .capture(...) 4. │ │ ├─withr::with_output_sink(...) 5. │ │ │ └─base::force(code) 6. │ │ ├─base::withCallingHandlers(...) 7. │ │ └─base::withVisible(code) 8. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo)) 9. ├─cards::ard_categorical(...) 10. ├─cardx:::ard_categorical.survey.design(...) 11. │ ├─dplyr::mutate(...) 12. │ ├─dplyr::select(...) 13. │ └─dplyr:::select.data.frame(...) 14. │ └─tidyselect::eval_select(expr(c(...)), data = .data, error_call = error_call) 15. │ └─tidyselect:::eval_select_impl(...) 16. │ ├─tidyselect:::with_subscript_errors(...) 17. │ │ └─base::withCallingHandlers(...) 18. │ └─tidyselect:::vars_select_eval(...) 19. │ └─tidyselect:::walk_data_tree(expr, data_mask, context_mask) 20. │ └─tidyselect:::eval_c(expr, data_mask, context_mask) 21. │ └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init) 22. │ └─tidyselect:::walk_data_tree(new, data_mask, context_mask) 23. │ └─tidyselect:::eval_c(expr, data_mask, context_mask) 24. │ └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init) 25. │ └─tidyselect:::walk_data_tree(new, data_mask, context_mask) 26. │ └─tidyselect:::as_indices_sel_impl(...) 27. │ └─tidyselect:::as_indices_impl(...) 28. │ └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg) 29. │ └─vctrs::vec_as_location(...) 30. └─vctrs (local) ``() 31. └─vctrs:::stop_subscript_oob(...) 32. └─vctrs:::stop_subscript(...) 33. └─rlang::abort(...) ── Error ('test-ard_categorical.survey.design.R:1375:3'): ard_categorical.survey.design() works with all NA fct variables ── Error in `dplyr::select(dplyr::mutate(ard_categorical(data = data[["variables"]], variables = all_of(names(statistic_unweighted)), by = any_of(by), statistic = statistic_unweighted, denominator = denominator), across(c(cards::all_ard_groups("levels"), cards::all_ard_variables("levels")), ~map(.x, as.character))), -c("stat_label", "fmt_fn", "warning", "error"))`: Can't select columns that don't exist. x Column `fmt_fn` doesn't exist. Backtrace: ▆ 1. ├─testthat::expect_silent(...) at test-ard_categorical.survey.design.R:1375:3 2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise) 3. │ ├─testthat (local) .capture(...) 4. │ │ ├─withr::with_output_sink(...) 5. │ │ │ └─base::force(code) 6. │ │ ├─base::withCallingHandlers(...) 7. │ │ └─base::withVisible(code) 8. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo)) 9. ├─cards::ard_categorical(...) 10. ├─cardx:::ard_categorical.survey.design(...) 11. │ ├─dplyr::mutate(...) 12. │ ├─dplyr::select(...) 13. │ └─dplyr:::select.data.frame(...) 14. │ └─tidyselect::eval_select(expr(c(...)), data = .data, error_call = error_call) 15. │ └─tidyselect:::eval_select_impl(...) 16. │ ├─tidyselect:::with_subscript_errors(...) 17. │ │ └─base::withCallingHandlers(...) 18. │ └─tidyselect:::vars_select_eval(...) 19. │ └─tidyselect:::walk_data_tree(expr, data_mask, context_mask) 20. │ └─tidyselect:::eval_c(expr, data_mask, context_mask) 21. │ └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init) 22. │ └─tidyselect:::walk_data_tree(new, data_mask, context_mask) 23. │ └─tidyselect:::eval_c(expr, data_mask, context_mask) 24. │ └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init) 25. │ └─tidyselect:::walk_data_tree(new, data_mask, context_mask) 26. │ └─tidyselect:::as_indices_sel_impl(...) 27. │ └─tidyselect:::as_indices_impl(...) 28. │ └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg) 29. │ └─vctrs::vec_as_location(...) 30. └─vctrs (local) ``() 31. └─vctrs:::stop_subscript_oob(...) 32. └─vctrs:::stop_subscript(...) 33. └─rlang::abort(...) ── Error ('test-ard_categorical_max.R:103:3'): ard_categorical_max(quiet) works ── Error in `dplyr::rename(cards::ADSL, TRTA = ARM)`: Names must be unique. x These names are duplicated: * "TRTA" at locations 6 and 49. Backtrace: ▆ 1. ├─testthat::expect_silent(...) at test-ard_categorical_max.R:103:3 2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise) 3. │ ├─testthat (local) .capture(...) 4. │ │ ├─withr::with_output_sink(...) 5. │ │ │ └─base::force(code) 6. │ │ ├─base::withCallingHandlers(...) 7. │ │ └─base::withVisible(code) 8. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo)) 9. ├─cardx::ard_categorical_max(...) 10. │ └─base::lapply(...) 11. │ └─cardx (local) FUN(X[[i]], ...) 12. │ ├─cards::ard_categorical(...) 13. │ └─cards:::ard_categorical.data.frame(...) 14. │ └─cards:::.calculate_tabulation_statistics(...) 15. │ └─cards:::.process_denominator(...) 16. ├─dplyr::rename(cards::ADSL, TRTA = ARM) 17. └─dplyr:::rename.data.frame(cards::ADSL, TRTA = ARM) 18. └─tidyselect::eval_rename(expr(c(...)), .data) 19. └─tidyselect:::rename_impl(...) 20. ├─tidyselect:::with_subscript_errors(...) 21. │ └─base::withCallingHandlers(...) 22. └─vctrs::vec_as_names(names, repair = "check_unique", call = error_call) 23. └─vctrs (local) ``() 24. └─vctrs:::validate_unique(names = names, arg = arg, call = call) 25. └─vctrs:::stop_names_must_be_unique(names, arg, call = call) 26. └─vctrs:::stop_names(...) 27. └─vctrs:::stop_vctrs(...) 28. └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = call) ── Error ('test-ard_categorical_max.R:125:3'): ard_categorical_max() works with pre-ordered factor variables ── Error in `dplyr::rename(cards::ADSL, TRTA = ARM)`: Names must be unique. x These names are duplicated: * "TRTA" at locations 6 and 49. Backtrace: ▆ 1. ├─testthat::expect_message(...) at test-ard_categorical_max.R:125:3 2. │ └─testthat:::expect_condition_matching(...) 3. │ └─testthat:::quasi_capture(...) 4. │ ├─testthat (local) .capture(...) 5. │ │ └─base::withCallingHandlers(...) 6. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo)) 7. ├─cardx::ard_categorical_max(...) 8. │ └─base::lapply(...) 9. │ └─cardx (local) FUN(X[[i]], ...) 10. │ ├─cards::ard_categorical(...) 11. │ └─cards:::ard_categorical.data.frame(...) 12. │ └─cards:::.calculate_tabulation_statistics(...) 13. │ └─cards:::.process_denominator(...) 14. ├─dplyr::rename(cards::ADSL, TRTA = ARM) 15. └─dplyr:::rename.data.frame(cards::ADSL, TRTA = ARM) 16. └─tidyselect::eval_rename(expr(c(...)), .data) 17. └─tidyselect:::rename_impl(...) 18. ├─tidyselect:::with_subscript_errors(...) 19. │ └─base::withCallingHandlers(...) 20. └─vctrs::vec_as_names(names, repair = "check_unique", call = error_call) 21. └─vctrs (local) ``() 22. └─vctrs:::validate_unique(names = names, arg = arg, call = call) 23. └─vctrs:::stop_names_must_be_unique(names, arg, call = call) 24. └─vctrs:::stop_names(...) 25. └─vctrs:::stop_vctrs(...) 26. └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = call) ── Failure ('test-ard_categorical_ci.survey.design.R:135:3'): ard_categorical_ci.survey.design() follows ard structure ── `cards::check_ard_structure(...)` produced messages. ── Failure ('test-ard_continuous_ci.survey.design.R:203:3'): ard_continuous_ci.survey.design() follows ard structure ── `cards::check_ard_structure(...)` produced messages. ── Failure ('test-ard_dichotomous.survey.design.R:11:3'): ard_dichotomous.survey.design() works ── `... <- NULL` threw an unexpected error. Message: Can't select columns that don't exist. x Column `fmt_fn` doesn't exist. Class: vctrs_error_subscript_oob/vctrs_error_subscript/rlang_error/error/condition Backtrace: ▆ 1. ├─testthat::expect_error(...) at test-ard_dichotomous.survey.design.R:11:3 2. │ └─testthat:::expect_condition_matching(...) 3. │ └─testthat:::quasi_capture(...) 4. │ ├─testthat (local) .capture(...) 5. │ │ └─base::withCallingHandlers(...) 6. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo)) 7. ├─cards::ard_dichotomous(...) 8. ├─cardx:::ard_dichotomous.survey.design(...) 9. │ ├─dplyr::mutate(...) 10. │ ├─dplyr::filter(...) 11. │ ├─cards::ard_categorical(...) 12. │ └─cardx:::ard_categorical.survey.design(...) 13. │ ├─dplyr::mutate(...) 14. │ ├─dplyr::select(...) 15. │ └─dplyr:::select.data.frame(...) 16. │ └─tidyselect::eval_select(expr(c(...)), data = .data, error_call = error_call) 17. │ └─tidyselect:::eval_select_impl(...) 18. │ ├─tidyselect:::with_subscript_errors(...) 19. │ │ └─base::withCallingHandlers(...) 20. │ └─tidyselect:::vars_select_eval(...) 21. │ └─tidyselect:::walk_data_tree(expr, data_mask, context_mask) 22. │ └─tidyselect:::eval_c(expr, data_mask, context_mask) 23. │ └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init) 24. │ └─tidyselect:::walk_data_tree(new, data_mask, context_mask) 25. │ └─tidyselect:::eval_c(expr, data_mask, context_mask) 26. │ └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init) 27. │ └─tidyselect:::walk_data_tree(new, data_mask, context_mask) 28. │ └─tidyselect:::as_indices_sel_impl(...) 29. │ └─tidyselect:::as_indices_impl(...) 30. │ └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg) 31. │ └─vctrs::vec_as_location(...) 32. └─vctrs (local) ``() 33. └─vctrs:::stop_subscript_oob(...) 34. └─vctrs:::stop_subscript(...) 35. └─rlang::abort(...) ── Error ('test-ard_dichotomous.survey.design.R:21:3'): ard_dichotomous.survey.design() works ── Error in `eval(code, test_env)`: object 'ard_dichotomous_row' not found Backtrace: ▆ 1. ├─testthat::expect_invisible(...) at test-ard_dichotomous.survey.design.R:21:3 2. │ └─base::withVisible(call) 3. └─cards::check_ard_structure(ard_dichotomous_row, method = FALSE) ── Failure ('test-ard_dichotomous.survey.design.R:323:3'): ard_dichotomous.survey.design() works with various input types ── `... <- NULL` threw an unexpected error. Message: Can't select columns that don't exist. x Column `fmt_fn` doesn't exist. Class: vctrs_error_subscript_oob/vctrs_error_subscript/rlang_error/error/condition Backtrace: ▆ 1. ├─testthat::expect_error(...) at test-ard_dichotomous.survey.design.R:323:3 2. │ └─testthat:::expect_condition_matching(...) 3. │ └─testthat:::quasi_capture(...) 4. │ ├─testthat (local) .capture(...) 5. │ │ └─base::withCallingHandlers(...) 6. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo)) 7. ├─cards::ard_dichotomous(...) 8. ├─cardx:::ard_dichotomous.survey.design(...) 9. │ ├─dplyr::mutate(...) 10. │ ├─dplyr::filter(...) 11. │ ├─cards::ard_categorical(...) 12. │ └─cardx:::ard_categorical.survey.design(...) 13. │ ├─dplyr::mutate(...) 14. │ ├─dplyr::select(...) 15. │ └─dplyr:::select.data.frame(...) 16. │ └─tidyselect::eval_select(expr(c(...)), data = .data, error_call = error_call) 17. │ └─tidyselect:::eval_select_impl(...) 18. │ ├─tidyselect:::with_subscript_errors(...) 19. │ │ └─base::withCallingHandlers(...) 20. │ └─tidyselect:::vars_select_eval(...) 21. │ └─tidyselect:::walk_data_tree(expr, data_mask, context_mask) 22. │ └─tidyselect:::eval_c(expr, data_mask, context_mask) 23. │ └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init) 24. │ └─tidyselect:::walk_data_tree(new, data_mask, context_mask) 25. │ └─tidyselect:::eval_c(expr, data_mask, context_mask) 26. │ └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init) 27. │ └─tidyselect:::walk_data_tree(new, data_mask, context_mask) 28. │ └─tidyselect:::as_indices_sel_impl(...) 29. │ └─tidyselect:::as_indices_impl(...) 30. │ └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg) 31. │ └─vctrs::vec_as_location(...) 32. └─vctrs (local) ``() 33. └─vctrs:::stop_subscript_oob(...) 34. └─vctrs:::stop_subscript(...) 35. └─rlang::abort(...) ── Error ('test-ard_dichotomous.survey.design.R:333:3'): ard_dichotomous.survey.design() works with various input types ── Error in `eval(code, test_env)`: object 'ard_dichotomous_row' not found Backtrace: ▆ 1. ├─testthat::expect_invisible(...) at test-ard_dichotomous.survey.design.R:333:3 2. │ └─base::withVisible(call) 3. └─cards::check_ard_structure(ard_dichotomous_row, method = FALSE) ── Error ('test-ard_dichotomous.survey.design.R:457:3'): ard_dichotomous.survey.design() follows ard structure ── Error in `dplyr::select(dplyr::mutate(ard_categorical(data = data[["variables"]], variables = all_of(names(statistic_unweighted)), by = any_of(by), statistic = statistic_unweighted, denominator = denominator), across(c(cards::all_ard_groups("levels"), cards::all_ard_variables("levels")), ~map(.x, as.character))), -c("stat_label", "fmt_fn", "warning", "error"))`: Can't select columns that don't exist. x Column `fmt_fn` doesn't exist. Backtrace: ▆ 1. ├─testthat::expect_silent(...) at test-ard_dichotomous.survey.design.R:457:3 2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise) 3. │ ├─testthat (local) .capture(...) 4. │ │ ├─withr::with_output_sink(...) 5. │ │ │ └─base::force(code) 6. │ │ ├─base::withCallingHandlers(...) 7. │ │ └─base::withVisible(code) 8. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo)) 9. ├─cards::check_ard_structure(...) 10. ├─cards::ard_dichotomous(...) 11. ├─cardx:::ard_dichotomous.survey.design(...) 12. │ ├─dplyr::mutate(...) 13. │ ├─dplyr::filter(...) 14. │ ├─cards::ard_categorical(...) 15. │ └─cardx:::ard_categorical.survey.design(...) 16. │ ├─dplyr::mutate(...) 17. │ ├─dplyr::select(...) 18. │ └─dplyr:::select.data.frame(...) 19. │ └─tidyselect::eval_select(expr(c(...)), data = .data, error_call = error_call) 20. │ └─tidyselect:::eval_select_impl(...) 21. │ ├─tidyselect:::with_subscript_errors(...) 22. │ │ └─base::withCallingHandlers(...) 23. │ └─tidyselect:::vars_select_eval(...) 24. │ └─tidyselect:::walk_data_tree(expr, data_mask, context_mask) 25. │ └─tidyselect:::eval_c(expr, data_mask, context_mask) 26. │ └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init) 27. │ └─tidyselect:::walk_data_tree(new, data_mask, context_mask) 28. │ └─tidyselect:::eval_c(expr, data_mask, context_mask) 29. │ └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init) 30. │ └─tidyselect:::walk_data_tree(new, data_mask, context_mask) 31. │ └─tidyselect:::as_indices_sel_impl(...) 32. │ └─tidyselect:::as_indices_impl(...) 33. │ └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg) 34. │ └─vctrs::vec_as_location(...) 35. └─vctrs (local) ``() 36. └─vctrs:::stop_subscript_oob(...) 37. └─vctrs:::stop_subscript(...) 38. └─rlang::abort(...) ── Failure ('test-ard_missing.survey.design.R:11:3'): ard_missing.survey.design() works ── `... <- NULL` threw an unexpected error. Message: Can't select columns that don't exist. x Column `fmt_fn` doesn't exist. Class: vctrs_error_subscript_oob/vctrs_error_subscript/rlang_error/error/condition Backtrace: ▆ 1. ├─testthat::expect_error(...) at test-ard_missing.survey.design.R:11:3 2. │ └─testthat:::expect_condition_matching(...) 3. │ └─testthat:::quasi_capture(...) 4. │ ├─testthat (local) .capture(...) 5. │ │ └─base::withCallingHandlers(...) 6. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo)) 7. ├─cards::ard_missing(svy_titanic, variables = c(Class, Age), by = NULL) 8. ├─cardx:::ard_missing.survey.design(...) 9. │ ├─dplyr::mutate(...) 10. │ ├─cards::ard_categorical(...) 11. │ └─cardx:::ard_categorical.survey.design(...) 12. │ ├─dplyr::mutate(...) 13. │ ├─dplyr::select(...) 14. │ └─dplyr:::select.data.frame(...) 15. │ └─tidyselect::eval_select(expr(c(...)), data = .data, error_call = error_call) 16. │ └─tidyselect:::eval_select_impl(...) 17. │ ├─tidyselect:::with_subscript_errors(...) 18. │ │ └─base::withCallingHandlers(...) 19. │ └─tidyselect:::vars_select_eval(...) 20. │ └─tidyselect:::walk_data_tree(expr, data_mask, context_mask) 21. │ └─tidyselect:::eval_c(expr, data_mask, context_mask) 22. │ └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init) 23. │ └─tidyselect:::walk_data_tree(new, data_mask, context_mask) 24. │ └─tidyselect:::eval_c(expr, data_mask, context_mask) 25. │ └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init) 26. │ └─tidyselect:::walk_data_tree(new, data_mask, context_mask) 27. │ └─tidyselect:::as_indices_sel_impl(...) 28. │ └─tidyselect:::as_indices_impl(...) 29. │ └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg) 30. │ └─vctrs::vec_as_location(...) 31. └─vctrs (local) ``() 32. └─vctrs:::stop_subscript_oob(...) 33. └─vctrs:::stop_subscript(...) 34. └─rlang::abort(...) ── Error ('test-ard_missing.survey.design.R:15:3'): ard_missing.survey.design() works ── Error in `eval(code, test_env)`: object 'ard_svy_missing' not found Backtrace: ▆ 1. ├─testthat::expect_invisible(...) at test-ard_missing.survey.design.R:15:3 2. │ └─base::withVisible(call) 3. └─cards::check_ard_structure(ard_svy_missing, method = FALSE) ── Error ('test-ard_missing.survey.design.R:110:3'): ard_missing.survey.design() follows ard structure ── Error in `dplyr::select(dplyr::mutate(ard_categorical(data = data[["variables"]], variables = all_of(names(statistic_unweighted)), by = any_of(by), statistic = statistic_unweighted, denominator = denominator), across(c(cards::all_ard_groups("levels"), cards::all_ard_variables("levels")), ~map(.x, as.character))), -c("stat_label", "fmt_fn", "warning", "error"))`: Can't select columns that don't exist. x Column `fmt_fn` doesn't exist. Backtrace: ▆ 1. ├─testthat::expect_silent(...) at test-ard_missing.survey.design.R:110:3 2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise) 3. │ ├─testthat (local) .capture(...) 4. │ │ ├─withr::with_output_sink(...) 5. │ │ │ └─base::force(code) 6. │ │ ├─base::withCallingHandlers(...) 7. │ │ └─base::withVisible(code) 8. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo)) 9. ├─cards::check_ard_structure(...) 10. ├─cards::ard_missing(svy_titanic, variables = c(Class, Age), by = NULL) 11. ├─cardx:::ard_missing.survey.design(...) 12. │ ├─dplyr::mutate(...) 13. │ ├─cards::ard_categorical(...) 14. │ └─cardx:::ard_categorical.survey.design(...) 15. │ ├─dplyr::mutate(...) 16. │ ├─dplyr::select(...) 17. │ └─dplyr:::select.data.frame(...) 18. │ └─tidyselect::eval_select(expr(c(...)), data = .data, error_call = error_call) 19. │ └─tidyselect:::eval_select_impl(...) 20. │ ├─tidyselect:::with_subscript_errors(...) 21. │ │ └─base::withCallingHandlers(...) 22. │ └─tidyselect:::vars_select_eval(...) 23. │ └─tidyselect:::walk_data_tree(expr, data_mask, context_mask) 24. │ └─tidyselect:::eval_c(expr, data_mask, context_mask) 25. │ └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init) 26. │ └─tidyselect:::walk_data_tree(new, data_mask, context_mask) 27. │ └─tidyselect:::eval_c(expr, data_mask, context_mask) 28. │ └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init) 29. │ └─tidyselect:::walk_data_tree(new, data_mask, context_mask) 30. │ └─tidyselect:::as_indices_sel_impl(...) 31. │ └─tidyselect:::as_indices_impl(...) 32. │ └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg) 33. │ └─vctrs::vec_as_location(...) 34. └─vctrs (local) ``() 35. └─vctrs:::stop_subscript_oob(...) 36. └─vctrs:::stop_subscript(...) 37. └─rlang::abort(...) ── Error ('test-ard_missing.survey.design.R:118:3'): ard_missing.survey.design() works on design columns ── Error in `dplyr::select(dplyr::mutate(ard_categorical(data = data[["variables"]], variables = all_of(names(statistic_unweighted)), by = any_of(by), statistic = statistic_unweighted, denominator = denominator), across(c(cards::all_ard_groups("levels"), cards::all_ard_variables("levels")), ~map(.x, as.character))), -c("stat_label", "fmt_fn", "warning", "error"))`: Can't select columns that don't exist. x Column `fmt_fn` doesn't exist. Backtrace: ▆ 1. ├─testthat::expect_equal(...) at test-ard_missing.survey.design.R:118:3 2. │ └─testthat::quasi_label(enquo(object), label, arg = "object") 3. │ └─rlang::eval_bare(expr, quo_get_env(quo)) 4. ├─base::suppressWarnings(...) 5. │ └─base::withCallingHandlers(...) 6. ├─base::getElement(...) 7. ├─dplyr::pull(...) 8. ├─dplyr::filter(...) 9. ├─cards::ard_missing(...) 10. ├─cardx:::ard_missing.survey.design(...) 11. │ ├─dplyr::mutate(...) 12. │ ├─cards::ard_categorical(...) 13. │ └─cardx:::ard_categorical.survey.design(...) 14. │ ├─dplyr::mutate(...) 15. │ ├─dplyr::select(...) 16. │ └─dplyr:::select.data.frame(...) 17. │ └─tidyselect::eval_select(expr(c(...)), data = .data, error_call = error_call) 18. │ └─tidyselect:::eval_select_impl(...) 19. │ ├─tidyselect:::with_subscript_errors(...) 20. │ │ └─base::withCallingHandlers(...) 21. │ └─tidyselect:::vars_select_eval(...) 22. │ └─tidyselect:::walk_data_tree(expr, data_mask, context_mask) 23. │ └─tidyselect:::eval_c(expr, data_mask, context_mask) 24. │ └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init) 25. │ └─tidyselect:::walk_data_tree(new, data_mask, context_mask) 26. │ └─tidyselect:::eval_c(expr, data_mask, context_mask) 27. │ └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init) 28. │ └─tidyselect:::walk_data_tree(new, data_mask, context_mask) 29. │ └─tidyselect:::as_indices_sel_impl(...) 30. │ └─tidyselect:::as_indices_impl(...) 31. │ └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg) 32. │ └─vctrs::vec_as_location(...) 33. └─vctrs (local) ``() 34. └─vctrs:::stop_subscript_oob(...) 35. └─vctrs:::stop_subscript(...) 36. └─rlang::abort(...) ── Failure ('test-ard_regression.R:75:3'): ard_regression() follows ard structure ── `cards::check_ard_structure(...)` produced messages. ── Failure ('test-ard_regression_basic.R:29:3'): ard_regression_basic() follows ard structure ── `cards::check_ard_structure(...)` produced messages. ── Failure ('test-ard_stats_anova.R:148:3'): ard_stats_anova() follows ard structure ── `cards::check_ard_structure(...)` produced messages. ── Failure ('test-ard_stats_aov.R:32:3'): ard_stats_aov() follows ard structure ── `cards::check_ard_structure(...)` produced messages. ── Failure ('test-ard_survival_survdiff.R:65:3'): ard_survival_survdiff() follows ard structure ── `cards::check_ard_structure(...)` produced messages. ── Failure ('test-ard_survival_survfit.R:214:3'): ard_survival_survfit() follows ard structure ── `cards::check_ard_structure(...)` produced messages. ── Failure ('test-ard_survival_survfit_diff.R:31:3'): ard_survival_survfit_diff() works ── `cards::check_ard_structure(ard1)` produced messages. ── Failure ('test-ard_survival_survfit_diff.R:68:3'): ard_survival_survfit_diff() follows ard structure ── `cards::check_ard_structure(...)` produced messages. ── Error ('test-ard_total_n.survey.design.R:4:3'): ard_total_n.survey.design() works ── Error in `dplyr::select(dplyr::mutate(ard_categorical(data = data[["variables"]], variables = all_of(names(statistic_unweighted)), by = any_of(by), statistic = statistic_unweighted, denominator = denominator), across(c(cards::all_ard_groups("levels"), cards::all_ard_variables("levels")), ~map(.x, as.character))), -c("stat_label", "fmt_fn", "warning", "error"))`: Can't select columns that don't exist. x Column `fmt_fn` doesn't exist. Backtrace: ▆ 1. ├─cards::ard_total_n(...) 2. ├─cardx:::ard_total_n.survey.design(...) 3. │ ├─dplyr::select(...) 4. │ ├─dplyr::mutate(...) 5. │ ├─cards::ard_dichotomous(...) 6. │ └─cardx:::ard_dichotomous.survey.design(...) 7. │ ├─dplyr::mutate(...) 8. │ ├─dplyr::filter(...) 9. │ ├─cards::ard_categorical(...) 10. │ └─cardx:::ard_categorical.survey.design(...) 11. │ ├─dplyr::mutate(...) 12. │ ├─dplyr::select(...) 13. │ └─dplyr:::select.data.frame(...) 14. │ └─tidyselect::eval_select(expr(c(...)), data = .data, error_call = error_call) 15. │ └─tidyselect:::eval_select_impl(...) 16. │ ├─tidyselect:::with_subscript_errors(...) 17. │ │ └─base::withCallingHandlers(...) 18. │ └─tidyselect:::vars_select_eval(...) 19. │ └─tidyselect:::walk_data_tree(expr, data_mask, context_mask) 20. │ └─tidyselect:::eval_c(expr, data_mask, context_mask) 21. │ └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init) 22. │ └─tidyselect:::walk_data_tree(new, data_mask, context_mask) 23. │ └─tidyselect:::eval_c(expr, data_mask, context_mask) 24. │ └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init) 25. │ └─tidyselect:::walk_data_tree(new, data_mask, context_mask) 26. │ └─tidyselect:::as_indices_sel_impl(...) 27. │ └─tidyselect:::as_indices_impl(...) 28. │ └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg) 29. │ └─vctrs::vec_as_location(...) 30. └─vctrs (local) ``() 31. └─vctrs:::stop_subscript_oob(...) 32. └─vctrs:::stop_subscript(...) 33. └─rlang::abort(...) ── Error ('test-ard_total_n.survey.design.R:11:3'): ard_total_n.survey.design() follows ard structure ── Error in `dplyr::select(dplyr::mutate(ard_categorical(data = data[["variables"]], variables = all_of(names(statistic_unweighted)), by = any_of(by), statistic = statistic_unweighted, denominator = denominator), across(c(cards::all_ard_groups("levels"), cards::all_ard_variables("levels")), ~map(.x, as.character))), -c("stat_label", "fmt_fn", "warning", "error"))`: Can't select columns that don't exist. x Column `fmt_fn` doesn't exist. Backtrace: ▆ 1. ├─testthat::expect_silent(...) at test-ard_total_n.survey.design.R:11:3 2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise) 3. │ ├─testthat (local) .capture(...) 4. │ │ ├─withr::with_output_sink(...) 5. │ │ │ └─base::force(code) 6. │ │ ├─base::withCallingHandlers(...) 7. │ │ └─base::withVisible(code) 8. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo)) 9. ├─cards::check_ard_structure(...) 10. ├─cards::ard_total_n(...) 11. ├─cardx:::ard_total_n.survey.design(...) 12. │ ├─dplyr::select(...) 13. │ ├─dplyr::mutate(...) 14. │ ├─cards::ard_dichotomous(...) 15. │ └─cardx:::ard_dichotomous.survey.design(...) 16. │ ├─dplyr::mutate(...) 17. │ ├─dplyr::filter(...) 18. │ ├─cards::ard_categorical(...) 19. │ └─cardx:::ard_categorical.survey.design(...) 20. │ ├─dplyr::mutate(...) 21. │ ├─dplyr::select(...) 22. │ └─dplyr:::select.data.frame(...) 23. │ └─tidyselect::eval_select(expr(c(...)), data = .data, error_call = error_call) 24. │ └─tidyselect:::eval_select_impl(...) 25. │ ├─tidyselect:::with_subscript_errors(...) 26. │ │ └─base::withCallingHandlers(...) 27. │ └─tidyselect:::vars_select_eval(...) 28. │ └─tidyselect:::walk_data_tree(expr, data_mask, context_mask) 29. │ └─tidyselect:::eval_c(expr, data_mask, context_mask) 30. │ └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init) 31. │ └─tidyselect:::walk_data_tree(new, data_mask, context_mask) 32. │ └─tidyselect:::eval_c(expr, data_mask, context_mask) 33. │ └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init) 34. │ └─tidyselect:::walk_data_tree(new, data_mask, context_mask) 35. │ └─tidyselect:::as_indices_sel_impl(...) 36. │ └─tidyselect:::as_indices_impl(...) 37. │ └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg) 38. │ └─vctrs::vec_as_location(...) 39. └─vctrs (local) ``() 40. └─vctrs:::stop_subscript_oob(...) 41. └─vctrs:::stop_subscript(...) 42. └─rlang::abort(...) ── Failure ('test-ard_continuous.survey.design.R:516:3'): ard_continuous.survey.design() follows ard structure ── `cards::check_ard_structure(...)` produced messages. [ FAIL 40 | WARN 4 | SKIP 54 | PASS 295 ] Error: Test failures Execution halted Package: gtsummary Check: examples New result: ERROR Running examples in ‘gtsummary-Ex.R’ failed The error most likely occurred in: > base::assign(".ptime", proc.time(), pos = "CheckExEnv") > ### Name: add_nevent.tbl_survfit > ### Title: Add event N > ### Aliases: add_nevent.tbl_survfit > > ### ** Examples > > ## Don't show: > if (gtsummary:::is_pkg_installed(c("survival", "broom"))) (if (getRversion() >= "3.4") withAutoprint else force)({ # examplesIf + ## End(Don't show) + library(survival) + fit1 <- survfit(Surv(ttdeath, death) ~ 1, trial) + fit2 <- survfit(Surv(ttdeath, death) ~ trt, trial) + + # Example 1 ---------------------------------- + list(fit1, fit2) |> + tbl_survfit(times = c(12, 24)) |> + add_n() |> + add_nevent() + ## Don't show: + }) # examplesIf > library(survival) > fit1 <- survfit(Surv(ttdeath, death) ~ 1, trial) > fit2 <- survfit(Surv(ttdeath, death) ~ trt, trial) > add_nevent(add_n(tbl_survfit(list(fit1, fit2), times = c(12, 24)))) Error in `dplyr::mutate()`: ℹ In argument: `stat_fmt = pmap(...)`. Caused by error in `.data$fmt_fun`: ! Column `fmt_fun` not found in `.data`. Backtrace: ▆ 1. ├─(if (getRversion() >= "3.4") withAutoprint else force)(...) 2. │ └─base::source(...) 3. │ ├─base::withVisible(eval(ei, envir)) 4. │ └─base::eval(ei, envir) 5. │ └─base::eval(ei, envir) 6. ├─gtsummary::add_nevent(...) 7. │ └─gtsummary:::check_class(x, "gtsummary") 8. ├─gtsummary::add_n(...) 9. │ └─gtsummary:::check_class(x, "gtsummary") 10. ├─gtsummary::tbl_survfit(list(fit1, fit2), times = c(12, 24)) 11. ├─gtsummary:::tbl_survfit.list(...) 12. │ ├─base::structure(...) 13. │ └─gtsummary:::brdg_survfit(...) 14. │ ├─dplyr::bind_rows(...) 15. │ │ └─rlang::list2(...) 16. │ └─gtsummary:::imap(...) 17. │ └─gtsummary:::map2(.x, names(.x) %||% seq_along(.x), .f, ...) 18. │ └─base::mapply(.f, .x, .y, MoreArgs = list(...), SIMPLIFY = FALSE) 19. │ └─gtsummary (local) ``(dots[[1L]][[1L]], dots[[2L]][[1L]]) 20. │ └─gtsummary::pier_summary_continuous(...) 21. │ └─cards::apply_fmt_fn(...) 22. │ └─cards::apply_fmt_fun(...) 23. │ ├─dplyr::mutate(...) 24. │ └─dplyr:::mutate.data.frame(...) 25. │ └─dplyr:::mutate_cols(.data, dplyr_quosures(...), by) 26. │ ├─base::withCallingHandlers(...) 27. │ └─dplyr:::mutate_col(dots[[i]], data, mask, new_columns) 28. │ └─mask$eval_all_mutate(quo) 29. │ └─dplyr (local) eval() 30. ├─cards:::pmap(...) 31. │ └─cards:::.rlang_purrr_args_recycle(.l) 32. │ └─cards:::map_int(args, length) 33. │ └─cards:::.rlang_purrr_map_mold(.x, .f, integer(1), ...) 34. │ └─base::vapply(.x, .f, .mold, ..., USE.NAMES = FALSE) 35. ├─fmt_fun 36. ├─rlang:::`$.rlang_data_pronoun`(.data, fmt_fun) 37. │ └─rlang:::data_pronoun_get(...) 38. └─rlang:::abort_data_pronoun(x, call = y) 39. └─rlang::abort(msg, "rlang_error_data_pronoun_not_found", call = call) Execution halted Package: gtsummary Check: tests New result: ERROR Running ‘spelling.R’ [0s/0s] Running ‘testthat.R’ [25s/20s] Running the tests in ‘tests/testthat.R’ failed. Complete output: > # This file is part of the standard setup for testthat. > # It is recommended that you do not modify it. > # > # Where should you do additional test configuration? > # Learn more about the roles of various files in: > # * https://r-pkgs.org/testing-design.html#sec-tests-files-overview > # * https://testthat.r-lib.org/articles/special-files.html > > library(testthat) > library(gtsummary) Attaching package: 'gtsummary' The following object is masked from 'package:testthat': matches > > test_check("gtsummary", stop_on_warning = TRUE) Starting 2 test processes [ FAIL 0 | WARN 15 | SKIP 100 | PASS 47 ] ══ Skipped tests (100) ═════════════════════════════════════════════════════════ • On CRAN (100): 'test-add_ci.tbl_summary.R:1:1', 'test-add_ci.tbl_svysummary.R:1:1', 'test-add_difference.tbl_summary.R:1:1', 'test-add_difference.tbl_svysummary.R:1:1', 'test-add_glance.R:1:1', 'test-add_global_p.tbl_regression.R:1:1', 'test-add_global_p.tbl_uvregression.R:1:1', 'test-add_n.tbl_regression.R:1:1', 'test-add_n.tbl_summary.R:1:1', 'test-add_n.tbl_survfit.R:1:1', 'test-add_n.tbl_svysummary.R:1:1', 'test-add_n.tbl_uvregression.R:1:1', 'test-add_nevent.tbl_regression.R:1:1', 'test-add_nevent.tbl_survfit.R:1:1', 'test-add_nevent.tbl_uvregression.R:1:1', 'test-add_overall.tbl_ard_summary.R:1:1', 'test-add_overall.tbl_continuous.R:1:1', 'test-add_overall.tbl_custom_summary.R:1:1', 'test-add_overall.tbl_hierarchical.R:1:1', 'test-add_overall.tbl_summary.R:1:1', 'test-add_overall.tbl_svysummary.R:1:1', 'test-add_p.tbl_continuous.R:1:1', 'test-add_p.tbl_cross.R:1:1', 'test-add_p.tbl_summary.R:1:1', 'test-add_p.tbl_survfit.R:1:1', 'test-add_q.R:1:1', 'test-add_p.tbl_svysummary.R:1:1', 'test-add_significance_stars.R:1:1', 'test-add_stat.R:1:1', 'test-add_stat_label.R:1:1', 'test-add_stat_label.tbl_ard_summary.R:1:1', 'test-add_stat_label.tbl_svysummary.R:1:1', 'test-add_variable_group_header.R:1:1', 'test-add_vif.R:1:1', 'test-as_flex_table.R:1:1', 'test-as_gt.R:1:1', 'test-as_hux_table.R:1:1', 'test-as_kable.R:1:1', 'test-as_kable_extra.R:1:1', 'test-as_tibble.R:1:1', 'test-bold_italicize_labels_levels.R:1:1', 'test-bold_p.R:1:1', 'test-custom_tidiers.R:1:1', 'test-combine_terms.R:1:1', 'test-filter_hierarchical.R:1:1', 'test-gather_ard.R:1:1', 'test-label_style.R:1:1', 'test-inline_text.R:1:1', 'test-modify_abbreviation.R:1:1', 'test-modify_bold_italic.R:1:1', 'test-modify_caption.R:1:1', 'test-modify_column_alignment.R:1:1', 'test-modify_column_hide.R:1:1', 'test-modify_column_indent.R:1:1', 'test-modify_column_merge.R:1:1', 'test-modify_fmt_fun.R:1:1', 'test-modify_footnote.R:1:1', 'test-modify_footnote_body.R:1:1', 'test-modify_footnote_header.R:1:1', 'test-modify_footnote_spanning_header.R:1:1', 'test-modify_header.R:1:1', 'test-modify_missing_symbol.R:1:1', 'test-modify_source_note.R:1:1', 'test-modify_spanning_header.R:1:1', 'test-modify_table_body.R:1:1', 'test-modify_table_styling.R:1:1', 'test-plot.tbl_regression.R:1:1', 'test-plot.tbl_uvregression.R:1:1', 'test-remove_row_type.R:1:1', 'test-scoping_gtsummary.R:1:1', 'test-select_helpers.R:1:1', 'test-separate_p_footnotes.R:1:1', 'test-show_header_names.R:1:1', 'test-sort_filter_p.R:1:1', 'test-sort_hierarchical.R:1:1', 'test-style_pvalue.R:49:3', 'test-tbl_ard_continuous.R:1:1', 'test-tbl_ard_hierarchical.R:1:1', 'test-tbl_ard_summary.R:1:1', 'test-tbl_ard_wide_summary.R:1:1', 'test-tbl_butcher.R:1:1', 'test-tbl_continuous.R:1:1', 'test-tbl_cross.R:1:1', 'test-tbl_custom_summary.R:1:1', 'test-tbl_hierarchical.R:1:1', 'test-tbl_likert.R:1:1', 'test-tbl_merge.R:1:1', 'test-tbl_regression.R:1:1', 'test-tbl_regression_methods.R:1:1', 'test-tbl_split.R:1:1', 'test-tbl_stack.R:1:1', 'test-tbl_strata.R:1:1', 'test-tbl_summary.R:1:1', 'test-tbl_survfit.R:1:1', 'test-tbl_svysummary.R:1:1', 'test-tbl_uvregression.R:1:1', 'test-tbl_wide_summary.R:1:1', 'test-theme_elements_gtsummary.R:1:1', 'test-theme_gtsummary.R:1:1', 'test-tbl_strata_nested_stack.R:127:3' [ FAIL 0 | WARN 15 | SKIP 100 | PASS 47 ] Error: Tests generated warnings Execution halted