Last updated on 2026-05-29 02:49:39 CEST.
| Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
|---|---|---|---|---|---|---|
| r-devel-linux-x86_64-debian-clang | 0.3.2 | 8.64 | 429.14 | 437.78 | OK | |
| r-devel-linux-x86_64-debian-gcc | 0.3.2 | 5.73 | 161.99 | 167.72 | ERROR | |
| r-devel-linux-x86_64-fedora-clang | 0.3.2 | 14.00 | 346.08 | 360.08 | ERROR | |
| r-devel-linux-x86_64-fedora-gcc | 0.3.2 | 15.00 | 331.96 | 346.96 | ERROR | |
| r-devel-windows-x86_64 | 0.3.2 | 14.00 | 306.00 | 320.00 | OK | |
| r-patched-linux-x86_64 | 0.3.2 | 8.97 | 413.32 | 422.29 | OK | |
| r-release-linux-x86_64 | 0.3.2 | 8.59 | 409.52 | 418.11 | OK | |
| r-release-macos-arm64 | 0.3.2 | 2.00 | 59.00 | 61.00 | OK | |
| r-release-macos-x86_64 | 0.3.2 | 6.00 | 381.00 | 387.00 | OK | |
| r-release-windows-x86_64 | 0.3.2 | 9.00 | 282.00 | 291.00 | OK | |
| r-oldrel-macos-arm64 | 0.3.2 | 2.00 | 60.00 | 62.00 | OK | |
| r-oldrel-macos-x86_64 | 0.3.2 | 6.00 | 269.00 | 275.00 | OK | |
| r-oldrel-windows-x86_64 | 0.3.2 | 16.00 | 417.00 | 433.00 | OK |
Version: 0.3.2
Check: examples
Result: ERROR
Running examples in ‘cardx-Ex.R’ failed
The error most likely occurred in:
> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: ard_missing.survey.design
> ### Title: ARD Missing Survey Statistics
> ### Aliases: ard_missing.survey.design
>
> ### ** Examples
>
> ## Don't show:
> if (cardx:::is_pkg_installed("survey")) withAutoprint({ # examplesIf
+ ## End(Don't show)
+ svy_titanic <- survey::svydesign(~1, data = as.data.frame(Titanic), weights = ~Freq)
+
+ ard_missing(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_missing(svy_titanic, variables = c(Class, Age), by = Survived)
Error in `ard_missing()`:
! The following columns are not present: "warning" and "error".
Backtrace:
▆
1. ├─base::withAutoprint(...)
2. │ └─base::source(...)
3. │ ├─base::withVisible(eval(ei, envir))
4. │ └─base::eval(ei, envir)
5. │ └─base::eval(ei, envir)
6. ├─cards::ard_missing(svy_titanic, variables = c(Class, Age), by = Survived)
7. └─cardx:::ard_missing.survey.design(svy_titanic, variables = c(Class, Age), by = Survived)
8. ├─dplyr::mutate(...)
9. ├─cards::ard_tabulate(...)
10. └─cardx:::ard_tabulate.survey.design(...)
11. ├─cards::tidy_ard_row_order(...)
12. │ └─dplyr::select(x, all_ard_groups(c("names", "levels")))
13. ├─cards::tidy_ard_column_order(...)
14. │ ├─dplyr::pull(...)
15. │ ├─dplyr::arrange(...)
16. │ ├─base::data.frame(colname = names(dplyr::select(x, all_ard_groups())))
17. │ └─dplyr::select(x, all_ard_groups())
18. ├─cards::as_card(...)
19. │ └─cards:::check_class(x, cls = "data.frame")
20. ├─dplyr::mutate(...)
21. └─cardx:::.restore_original_column_types(cards, data = data$variables)
22. └─cards::as_card(...)
23. └─cards::check_ard_structure(...)
24. └─cards:::.message_or_error(...)
25. └─cli::cli_abort(msg, call = call, .envir = envir)
26. └─rlang::abort(...)
Execution halted
Flavor: r-devel-linux-x86_64-debian-gcc
Version: 0.3.2
Check: tests
Result: ERROR
Running ‘testthat.R’ [106s/74s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> library(testthat)
> test_check("cardx", stop_on_warning = TRUE)
Loading required package: cardx
Starting 2 test processes.
Saving _problems/test-ard_categorical_ci.survey.design-28.R
> test-ard_categorical_ci.data.frame.R: 5 missing observations in the "am" column have been removed.
Saving _problems/test-ard_continuous_ci.survey.design-39.R
Saving _problems/test-ard_categorical_ci.data.frame-202.R
Saving _problems/test-ard_categorical_ci.data.frame-224.R
Saving _problems/test-ard_categorical_ci.data.frame-287.R
Saving _problems/test-ard_categorical_ci.data.frame-309.R
> test-ard_effectsize_cohens_d.R: For paired samples, 'repeated_measures_d()' provides more options.
> test-ard_effectsize_hedges_g.R: For paired samples, 'repeated_measures_d()' provides more options.
Saving _problems/test-ard_missing.survey.design-14.R
Saving _problems/test-ard_missing.survey.design-15.R
Saving _problems/test-ard_missing.survey.design-113.R
Saving _problems/test-ard_missing.survey.design-146.R
> test-ard_stats_oneway_test.R: Multiple parameters; naming those columns num.df and den.df.
Saving _problems/test-ard_stats_t_test_onesample-49.R
Saving _problems/test-ard_stats_wilcox_test_onesample-51.R
Saving _problems/test-ard_summary.survey.design-18.R
Saving _problems/test-ard_summary.survey.design-19.R
Saving _problems/test-ard_summary.survey.design-90.R
Saving _problems/test-ard_summary.survey.design-91.R
Saving _problems/test-ard_summary.survey.design-256.R
Saving _problems/test-ard_summary.survey.design-262.R
Saving _problems/test-ard_summary.survey.design-302.R
Saving _problems/test-ard_summary.survey.design-315.R
Saving _problems/test-ard_summary.survey.design-331.R
Saving _problems/test-ard_summary.survey.design-346.R
Saving _problems/test-ard_summary.survey.design-374.R
Saving _problems/test-ard_summary.survey.design-406.R
Saving _problems/test-ard_summary.survey.design-519.R
Saving _problems/test-ard_summary.survey.design-540.R
Saving _problems/test-ard_tabulate.survey.design-21.R
Saving _problems/test-ard_tabulate.survey.design-22.R
Saving _problems/test-ard_tabulate.survey.design-484.R
Saving _problems/test-ard_tabulate.survey.design-485.R
Saving _problems/test-ard_tabulate.survey.design-780.R
Saving _problems/test-ard_tabulate.survey.design-781.R
Saving _problems/test-ard_tabulate.survey.design-1071.R
Saving _problems/test-ard_tabulate.survey.design-1072.R
Saving _problems/test-ard_tabulate.survey.design-1229.R
Saving _problems/test-ard_tabulate.survey.design-1310.R
Saving _problems/test-ard_tabulate.survey.design-1325.R
Saving _problems/test-ard_tabulate.survey.design-1343.R
Saving _problems/test-ard_tabulate.survey.design-1387.R
Saving _problems/test-ard_tabulate_value.survey.design-21.R
Saving _problems/test-ard_tabulate_value.survey.design-25.R
Saving _problems/test-ard_tabulate_value.survey.design-640.R
Saving _problems/test-ard_tabulate_value.survey.design-644.R
Saving _problems/test-ard_tabulate_value.survey.design-799.R
> test-ard_tabulate_max.R: `AESEV`: "MILD" < "MODERATE" < "SEVERE"
Saving _problems/test-ard_tabulate_max-194.R
Saving _problems/test-ard_tabulate_max-244.R
Saving _problems/test-ard_total_n.survey.design-7.R
Saving _problems/test-ard_total_n.survey.design-15.R
Saving _problems/test-ard_total_n.survey.design-37.R
[ FAIL 49 | WARN 0 | SKIP 59 | PASS 327 ]
══ Skipped tests (59) ══════════════════════════════════════════════════════════
• On CRAN (59): 'test-ard_aod_wald_test.R:3:1',
'test-ard_attributes.survey.design.R:3:1', 'test-ard_car_anova.R:3:1',
'test-ard_car_anova.R:15:1', 'test-ard_car_vif.R:3:1',
'test-ard_car_vif.R:28:1', 'test-ard_categorical_ci.survey.design.R:6:1',
'test-ard_continuous_ci.survey.design.R:6:1',
'test-ard_continuous_ci.survey.design.R:193:1',
'test-ard_effectsize_cohens_d.R:3:1', 'test-ard_effectsize_hedges_g.R:3:1',
'test-ard_emmeans_contrast.R:3:1', 'test-ard_emmeans_contrast.R:100:1',
'test-ard_incidence_rate.R:7:1', 'test-ard_incidence_rate.R:43:1',
'test-ard_incidence_rate.R:66:1', 'test-ard_emmeans_emmeans.R:3:1',
'test-ard_emmeans_emmeans.R:93:1', 'test-ard_proportion_ci.R:62:1',
'test-ard_proportion_ci.R:112:1', 'test-ard_regression_basic.R:3:1',
'test-ard_regression.R:3:1', 'test-ard_regression.R:40:1',
'test-ard_stats_aov.R:3:1', 'test-ard_stats_kruskal_test.R:3:1',
'test-ard_stats_mantelhaen_test.R:3:1', 'test-ard_stats_mood_test.R:3:1',
'test-ard_stats_oneway_test.R:3:1', 'test-ard_stats_poisson_test.R:73:1',
'test-ard_survey_svychisq.R:3:1', 'test-ard_survey_svyranktest.R:3:1',
'test-ard_survival_survfit.R:3:1', 'test-ard_survival_survfit.R:16:1',
'test-ard_survival_survfit.R:29:1', 'test-ard_survival_survfit.R:42:1',
'test-ard_survival_survfit.R:64:1', 'test-ard_survival_survfit.R:90:1',
'test-ard_survival_survfit.R:120:1', 'test-ard_survival_survfit.R:191:1',
'test-ard_survival_survfit.R:201:1', 'test-ard_survival_survfit.R:221:1',
'test-ard_survival_survfit.R:231:1', 'test-ard_survival_survfit_diff.R:36:1',
'test-ard_tabulate_abnormal.R:5:1', 'test-ard_tabulate_abnormal.R:41:1',
'test-ard_tabulate.survey.design.R:421:1',
'test-ard_tabulate.survey.design.R:1176:1',
'test-ard_tabulate.survey.design.R:1410:1',
'test-ard_tabulate_value.survey.design.R:736:1',
'test-ard_tabulate_max.R:1:1', 'test-ard_tabulate_max.R:60:1',
'test-ard_tabulate_max.R:75:1', 'test-ard_tabulate_max.R:115:1',
'test-ard_tabulate_max.R:210:1', 'test-ard_tabulate_max.R:258:1',
'test-proportion_ci.R:3:1', 'test-proportion_ci.R:122:1',
'test-construction_helpers.R:3:1', 'test-construction_helpers.R:103:1'
══ Failed tests ════════════════════════════════════════════════════════════════
── Error ('test-ard_categorical_ci.survey.design.R:25:3'): ard_categorical_ci(variables) ──
Error in `ard_categorical_ci(dclus1, variables = starts_with("xxxxxx"))`: The following columns are not present: "variable", "stat_name", "stat_label", "stat", "fmt_fun", "warning", and "error".
Backtrace:
▆
1. ├─testthat::expect_equal(...) at test-ard_categorical_ci.survey.design.R:25:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─cardx::ard_categorical_ci(dclus1, variables = starts_with("xxxxxx"))
5. └─cardx:::ard_categorical_ci.survey.design(dclus1, variables = starts_with("xxxxxx"))
6. └─cards::as_card(dplyr::tibble())
7. └─cards::check_ard_structure(...)
8. └─cards:::.message_or_error(...)
9. └─cli::cli_abort(msg, call = call, .envir = envir)
10. └─rlang::abort(...)
── Error ('test-ard_continuous_ci.survey.design.R:36:3'): ard_continuous_ci(variables) ──
Error in `ard_continuous_ci(dclus1, variables = starts_with("xxxxxx"))`: The following columns are not present: "variable", "stat_name", "stat_label", "stat", "fmt_fun", "warning", and "error".
Backtrace:
▆
1. ├─testthat::expect_equal(...) at test-ard_continuous_ci.survey.design.R:36:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─cardx::ard_continuous_ci(dclus1, variables = starts_with("xxxxxx"))
5. └─cardx:::ard_continuous_ci.survey.design(dclus1, variables = starts_with("xxxxxx"))
6. └─cards::as_card(dplyr::tibble())
7. └─cards::check_ard_structure(...)
8. └─cards:::.message_or_error(...)
9. └─cli::cli_abort(msg, call = call, .envir = envir)
10. └─rlang::abort(...)
── Failure ('test-ard_categorical_ci.data.frame.R:188:3'): ard_continuous_ci.data.frame(denominator='row') ──
Expected `dplyr::arrange(...)` to equal `dplyr::arrange(...)`.
Differences:
`attr(actual, 'args')` is absent
`attr(expected, 'args')` is a list
── Failure ('test-ard_categorical_ci.data.frame.R:205:3'): ard_continuous_ci.data.frame(denominator='row') ──
Expected `dplyr::arrange(...)` to equal `dplyr::arrange(...)`.
Differences:
`attr(actual, 'args')` is absent
`attr(expected, 'args')` is a list
── Failure ('test-ard_categorical_ci.data.frame.R:273:3'): ard_continuous_ci.data.frame(denominator='cell') ──
Expected `dplyr::arrange(...)` to equal `dplyr::arrange(...)`.
Differences:
`attr(actual, 'args')` is absent
`attr(expected, 'args')` is a list
── Failure ('test-ard_categorical_ci.data.frame.R:290:3'): ard_continuous_ci.data.frame(denominator='cell') ──
Expected `dplyr::arrange(...)` to equal `dplyr::arrange(...)`.
Differences:
`attr(actual, 'args')` is absent
`attr(expected, 'args')` is a list
── Failure ('test-ard_missing.survey.design.R:11:3'): ard_missing.survey.design() works ──
Expected `... <- NULL` not to throw any errors.
Actually got a <rlang_error> with message:
The following columns are not present: "warning" and "error".
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(svy_titanic, variables = c(Class, Age), by = NULL)
9. ├─dplyr::mutate(...)
10. ├─cards::ard_tabulate(...)
11. └─cardx:::ard_tabulate.survey.design(...)
12. ├─cards::tidy_ard_row_order(...)
13. │ └─dplyr::select(x, all_ard_groups(c("names", "levels")))
14. ├─cards::tidy_ard_column_order(...)
15. │ ├─dplyr::pull(...)
16. │ ├─dplyr::arrange(...)
17. │ ├─base::data.frame(colname = names(dplyr::select(x, all_ard_groups())))
18. │ └─dplyr::select(x, all_ard_groups())
19. ├─cards::as_card(...)
20. │ └─cards:::check_class(x, cls = "data.frame")
21. ├─dplyr::mutate(...)
22. └─cardx:::.restore_original_column_types(cards, data = data$variables)
23. └─cards::as_card(...)
24. └─cards::check_ard_structure(...)
25. └─cards:::.message_or_error(...)
26. └─cli::cli_abort(msg, call = call, .envir = envir)
27. └─rlang::abort(...)
── Error ('test-ard_missing.survey.design.R:15:3'): ard_missing.survey.design() works ──
<objectNotFoundError/error/condition>
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 `cards::check_ard_structure(ard_missing(svy_titanic, variables = c(Class, Age), by = NULL), method = FALSE)`: The following columns are not present: "warning" and "error".
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_tabulate(...)
14. └─cardx:::ard_tabulate.survey.design(...)
15. ├─cards::tidy_ard_row_order(...)
16. │ └─dplyr::select(x, all_ard_groups(c("names", "levels")))
17. ├─cards::tidy_ard_column_order(...)
18. │ ├─dplyr::pull(...)
19. │ ├─dplyr::arrange(...)
20. │ ├─base::data.frame(colname = names(dplyr::select(x, all_ard_groups())))
21. │ └─dplyr::select(x, all_ard_groups())
22. ├─cards::as_card(...)
23. │ └─cards:::check_class(x, cls = "data.frame")
24. ├─dplyr::mutate(...)
25. └─cardx:::.restore_original_column_types(cards, data = data$variables)
26. └─cards::as_card(...)
27. └─cards::check_ard_structure(...)
28. └─cards:::.message_or_error(...)
29. └─cli::cli_abort(msg, call = call, .envir = envir)
30. └─rlang::abort(...)
── Error ('test-ard_missing.survey.design.R:118:3'): ard_missing.survey.design() works on design columns ──
Error in `ard_missing(dplyr::tribble(~region, ~year, ~weights, 3, 1972, 0.663196271930943, 3, 1972, 0.917370028585327, 3, 1972, 0.897412512251031, 3, 1972, 1.06634082743438, 3, 1972, 0.94432371066466, 3, 1972, 0.526887241987567, 3, 1972, 0.526887241987567, 3, 1972, 0.546578869586901, 7, 1972, 0.283198307048893, 7, 1972, 0.494322145606406) %>% survey::svydesign(data = ., ids = ~region, strata = ~year, weights = ~weights, nest = TRUE), variables = weights)`: The following columns are not present: "warning" and "error".
Backtrace:
▆
1. ├─testthat::expect_equal(...) at test-ard_missing.survey.design.R:118:3
2. │ └─testthat::quasi_label(enquo(object), label)
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_tabulate(...)
13. └─cardx:::ard_tabulate.survey.design(...)
14. ├─cards::tidy_ard_row_order(...)
15. │ └─dplyr::select(x, all_ard_groups(c("names", "levels")))
16. ├─cards::tidy_ard_column_order(...)
17. │ ├─dplyr::pull(...)
18. │ ├─dplyr::arrange(...)
19. │ ├─base::data.frame(colname = names(dplyr::select(x, all_ard_groups())))
20. │ └─dplyr::select(x, all_ard_groups())
21. ├─cards::as_card(...)
22. │ └─cards:::check_class(x, cls = "data.frame")
23. ├─dplyr::mutate(...)
24. └─cardx:::.restore_original_column_types(cards, data = data$variables)
25. └─cards::as_card(...)
26. └─cards::check_ard_structure(...)
27. └─cards:::.message_or_error(...)
28. └─cli::cli_abort(msg, call = call, .envir = envir)
29. └─rlang::abort(...)
── Error ('test-ard_stats_t_test_onesample.R:43:3'): ard_stats_t_test_onesample() works ──
Error in `ard_stats_t_test_onesample(cards::ADSL, variables = character(0))`: The following columns are not present: "variable", "stat_name", "stat_label", "stat", "fmt_fun", "warning", and "error".
Backtrace:
▆
1. ├─testthat::expect_equal(...) at test-ard_stats_t_test_onesample.R:43:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. └─cardx::ard_stats_t_test_onesample(cards::ADSL, variables = character(0))
5. └─cards::as_card(dplyr::tibble())
6. └─cards::check_ard_structure(...)
7. └─cards:::.message_or_error(...)
8. └─cli::cli_abort(msg, call = call, .envir = envir)
9. └─rlang::abort(...)
── Error ('test-ard_stats_wilcox_test_onesample.R:45:3'): ard_stats_wilcox_test_onesample() works ──
Error in `ard_stats_wilcox_test_onesample(cards::ADSL, variables = character(0))`: The following columns are not present: "variable", "stat_name", "stat_label", "stat", "fmt_fun", "warning", and "error".
Backtrace:
▆
1. ├─testthat::expect_equal(...) at test-ard_stats_wilcox_test_onesample.R:45:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. └─cardx::ard_stats_wilcox_test_onesample(cards::ADSL, variables = character(0))
5. └─cards::as_card(dplyr::tibble())
6. └─cards::check_ard_structure(...)
7. └─cards:::.message_or_error(...)
8. └─cli::cli_abort(msg, call = call, .envir = envir)
9. └─rlang::abort(...)
── Failure ('test-ard_summary.survey.design.R:7:3'): unstratified ard_summary.survey.design() works ──
Expected `... <- NULL` not to throw any errors.
Actually got a <rlang_error> with message:
The following columns are not present: "stat_label" and "fmt_fun".
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-ard_summary.survey.design.R:7: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_summary(...)
8. └─cardx:::ard_summary.survey.design(...)
9. └─cardx:::.restore_original_column_types(...)
10. └─cards::as_card(...)
11. └─cards::check_ard_structure(...)
12. └─cards:::.message_or_error(...)
13. └─cli::cli_abort(msg, call = call, .envir = envir)
14. └─rlang::abort(...)
── Error ('test-ard_summary.survey.design.R:19:3'): unstratified ard_summary.survey.design() works ──
<objectNotFoundError/error/condition>
Error in `eval(code, test_env)`: object 'ard_uni_svy_cont' not found
Backtrace:
▆
1. ├─testthat::expect_invisible(cards::check_ard_structure(ard_uni_svy_cont)) at test-ard_summary.survey.design.R:19:3
2. │ └─base::withVisible(call)
3. └─cards::check_ard_structure(ard_uni_svy_cont)
── Failure ('test-ard_summary.survey.design.R:78:3'): stratified ard_summary.survey.design() works ──
Expected `... <- NULL` not to throw any errors.
Actually got a <rlang_error> with message:
The following columns are not present: "stat_label" and "fmt_fun".
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-ard_summary.survey.design.R:78: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_summary(...)
8. └─cardx:::ard_summary.survey.design(...)
9. └─cardx:::.restore_original_column_types(...)
10. └─cards::as_card(...)
11. └─cards::check_ard_structure(...)
12. └─cards:::.message_or_error(...)
13. └─cli::cli_abort(msg, call = call, .envir = envir)
14. └─rlang::abort(...)
── Error ('test-ard_summary.survey.design.R:91:3'): stratified ard_summary.survey.design() works ──
<objectNotFoundError/error/condition>
Error in `eval(code, test_env)`: object 'ard_svy_cont' not found
Backtrace:
▆
1. ├─testthat::expect_invisible(cards::check_ard_structure(ard_svy_cont)) at test-ard_summary.survey.design.R:91:3
2. │ └─base::withVisible(call)
3. └─cards::check_ard_structure(ard_svy_cont)
── Failure ('test-ard_summary.survey.design.R:245:3'): ard_summary.survey.design() NA handling ──
Expected `... <- NULL` not to throw any errors.
Actually got a <rlang_error> with message:
The following columns are not present: "stat_label" and "fmt_fun".
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-ard_summary.survey.design.R:245: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_summary(...)
8. └─cardx:::ard_summary.survey.design(...)
9. └─cardx:::.restore_original_column_types(...)
10. └─cards::as_card(...)
11. └─cards::check_ard_structure(...)
12. └─cards:::.message_or_error(...)
13. └─cli::cli_abort(msg, call = call, .envir = envir)
14. └─rlang::abort(...)
── Error ('test-ard_summary.survey.design.R:258:3'): ard_summary.survey.design() NA handling ──
<objectNotFoundError/error/condition>
Error in `eval(code, test_env)`: object 'ard_uni_NA_svy_cont' not found
Backtrace:
▆
1. ├─testthat::expect_true(...) at test-ard_summary.survey.design.R:258:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. └─cardx:::map_lgl(...)
5. └─cardx:::.rlang_purrr_map_mold(.x, .f, logical(1), ...)
6. └─base::vapply(.x, .f, .mold, ..., USE.NAMES = FALSE)
── Failure ('test-ard_summary.survey.design.R:292:3'): ard_summary.survey.design() error handling ──
Expected `ard_summary(...)` not to throw any errors.
Actually got a <rlang_error> with message:
The following columns are not present: "stat_label" and "fmt_fun".
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-ard_summary.survey.design.R:292: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_summary(...)
8. └─cardx:::ard_summary.survey.design(...)
9. └─cardx:::.restore_original_column_types(...)
10. └─cards::as_card(...)
11. └─cards::check_ard_structure(...)
12. └─cards:::.message_or_error(...)
13. └─cli::cli_abort(msg, call = call, .envir = envir)
14. └─rlang::abort(...)
── Failure ('test-ard_summary.survey.design.R:304:3'): ard_summary.survey.design() error handling ──
Expected `ard_summary(...)` not to throw any errors.
Actually got a <rlang_error> with message:
The following columns are not present: "stat_label" and "fmt_fun".
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-ard_summary.survey.design.R:304: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_summary(...)
8. └─cardx:::ard_summary.survey.design(...)
9. └─cardx:::.restore_original_column_types(...)
10. └─cards::as_card(...)
11. └─cards::check_ard_structure(...)
12. └─cards:::.message_or_error(...)
13. └─cli::cli_abort(msg, call = call, .envir = envir)
14. └─rlang::abort(...)
── Error ('test-ard_summary.survey.design.R:322:3'): ard_summary.survey.design(fmt_fun) ──
Error in `ard_summary(dclus1, variables = c(api99, api00), statistic = ~c("mean", "median", "min", "max"), fmt_fun = list(api00 = list(mean = 2, median = "xx.xx", min = as.character)))`: The following columns are not present: "stat_label" and "fmt_fun".
Backtrace:
▆
1. ├─base::as.data.frame(...)
2. ├─dplyr::select(...)
3. ├─cards::ard_summary(...)
4. └─cardx:::ard_summary.survey.design(...)
5. └─cardx:::.restore_original_column_types(...)
6. └─cards::as_card(...)
7. └─cards::check_ard_structure(...)
8. └─cards:::.message_or_error(...)
9. └─cli::cli_abort(msg, call = call, .envir = envir)
10. └─rlang::abort(...)
── Error ('test-ard_summary.survey.design.R:338:3'): ard_summary.survey.design(stat_label) ──
Error in `ard_summary(dclus1, variables = c(api00, api99), statistic = ~c("mean", "median", "min", "max"), stat_label = list(api00 = list(mean = "MeAn", median = "MEDian", min = "MINimum")))`: The following columns are not present: "stat_label" and "fmt_fun".
Backtrace:
▆
1. ├─base::as.data.frame(...)
2. ├─cards::ard_summary(...)
3. └─cardx:::ard_summary.survey.design(...)
4. └─cardx:::.restore_original_column_types(...)
5. └─cards::as_card(...)
6. └─cards::check_ard_structure(...)
7. └─cards:::.message_or_error(...)
8. └─cli::cli_abort(msg, call = call, .envir = envir)
9. └─rlang::abort(...)
── Error ('test-ard_summary.survey.design.R:363:3'): ard_summary.survey.design(by) unobserved levels/combinations ──
Error in `ard_summary(dclus1, variables = api00, by = both, statistic = ~c("mean", "median", "min", "max"))`: The following columns are not present: "stat_label" and "fmt_fun".
Backtrace:
▆
1. ├─testthat::expect_setequal(...) at test-ard_summary.survey.design.R:363:3
2. │ └─testthat::quasi_label(enquo(expected))
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─base::unique(...)
5. ├─cardx:::map_chr(...)
6. │ └─cardx:::.rlang_purrr_map_mold(.x, .f, character(1), ...)
7. │ └─base::vapply(.x, .f, .mold, ..., USE.NAMES = FALSE)
8. ├─dplyr::pull(...)
9. ├─cards::ard_summary(...)
10. └─cardx:::ard_summary.survey.design(...)
11. └─cardx:::.restore_original_column_types(...)
12. └─cards::as_card(...)
13. └─cards::check_ard_structure(...)
14. └─cards:::.message_or_error(...)
15. └─cli::cli_abort(msg, call = call, .envir = envir)
16. └─rlang::abort(...)
── Error ('test-ard_summary.survey.design.R:403:3'): ard_summary.survey.design() works when using generic names ──
Error in `ard_summary(dclus1, variables = c(cds, stype), by = dnum)`: The following columns are not present: "stat_label" and "fmt_fun".
Backtrace:
▆
1. ├─testthat::expect_equal(...) at test-ard_summary.survey.design.R:403:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─dplyr::select(...)
5. ├─cards::ard_summary(dclus1, variables = c(cds, stype), by = dnum)
6. └─cardx:::ard_summary.survey.design(dclus1, variables = c(cds, stype), by = dnum)
7. └─cardx:::.restore_original_column_types(...)
8. └─cards::as_card(...)
9. └─cards::check_ard_structure(...)
10. └─cards:::.message_or_error(...)
11. └─cli::cli_abort(msg, call = call, .envir = envir)
12. └─rlang::abort(...)
── Error ('test-ard_summary.survey.design.R:516:3'): ard_summary.survey.design() follows ard structure ──
Error in `cards::check_ard_structure(ard_summary(dclus1, variables = c(cds, stype), by = snum), method = FALSE)`: The following columns are not present: "stat_label" and "fmt_fun".
Backtrace:
▆
1. ├─testthat::expect_silent(...) at test-ard_summary.survey.design.R:516: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_summary(dclus1, variables = c(cds, stype), by = snum)
11. └─cardx:::ard_summary.survey.design(...)
12. └─cardx:::.restore_original_column_types(...)
13. └─cards::as_card(...)
14. └─cards::check_ard_structure(...)
15. └─cards:::.message_or_error(...)
16. └─cli::cli_abort(msg, call = call, .envir = envir)
17. └─rlang::abort(...)
── Error ('test-ard_summary.survey.design.R:533:3'): ard_summary.survey.design() original types are retained ──
Error in `ard_summary(data = dclus1, variables = c(api00, api99), by = c(stype, sch.wide_int, sch.wide_dbl))`: The following columns are not present: "stat_label" and "fmt_fun".
Backtrace:
▆
1. ├─testthat::expect_silent(...) at test-ard_summary.survey.design.R:533: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_summary(...)
10. └─cardx:::ard_summary.survey.design(...)
11. └─cardx:::.restore_original_column_types(...)
12. └─cards::as_card(...)
13. └─cards::check_ard_structure(...)
14. └─cards:::.message_or_error(...)
15. └─cli::cli_abort(msg, call = call, .envir = envir)
16. └─rlang::abort(...)
── Failure ('test-ard_tabulate.survey.design.R:12:3'): ard_tabulate.survey.design() works ──
Expected `... <- NULL` not to throw any errors.
Actually got a <rlang_error> with message:
The following columns are not present: "warning" and "error".
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-ard_tabulate.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_tabulate(...)
8. └─cardx:::ard_tabulate.survey.design(svy_titanic, variables = c(Class, Age), by = Survived, denominator = "row")
9. ├─cards::tidy_ard_row_order(...)
10. │ └─dplyr::select(x, all_ard_groups(c("names", "levels")))
11. ├─cards::tidy_ard_column_order(...)
12. │ ├─dplyr::pull(...)
13. │ ├─dplyr::arrange(...)
14. │ ├─base::data.frame(colname = names(dplyr::select(x, all_ard_groups())))
15. │ └─dplyr::select(x, all_ard_groups())
16. ├─cards::as_card(...)
17. │ └─cards:::check_class(x, cls = "data.frame")
18. ├─dplyr::mutate(...)
19. └─cardx:::.restore_original_column_types(cards, data = data$variables)
20. └─cards::as_card(...)
21. └─cards::check_ard_structure(...)
22. └─cards:::.message_or_error(...)
23. └─cli::cli_abort(msg, call = call, .envir = envir)
24. └─rlang::abort(...)
── Error ('test-ard_tabulate.survey.design.R:22:3'): ard_tabulate.survey.design() works ──
<objectNotFoundError/error/condition>
Error in `eval(code, test_env)`: object 'ard_svy_cat_row' not found
Backtrace:
▆
1. ├─testthat::expect_invisible(...) at test-ard_tabulate.survey.design.R:22:3
2. │ └─base::withVisible(call)
3. └─cards::check_ard_structure(ard_svy_cat_row, method = FALSE)
── Failure ('test-ard_tabulate.survey.design.R:475:3'): ard_tabulate.survey.design() works for unobserved factor levels ──
Expected `... <- NULL` not to throw any errors.
Actually got a <rlang_error> with message:
The following columns are not present: "warning" and "error".
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-ard_tabulate.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_tabulate(...)
8. └─cardx:::ard_tabulate.survey.design(svy_titanic, variables = c(Class, Age), by = Survived, denominator = "row")
9. ├─cards::tidy_ard_row_order(...)
10. │ └─dplyr::select(x, all_ard_groups(c("names", "levels")))
11. ├─cards::tidy_ard_column_order(...)
12. │ ├─dplyr::pull(...)
13. │ ├─dplyr::arrange(...)
14. │ ├─base::data.frame(colname = names(dplyr::select(x, all_ard_groups())))
15. │ └─dplyr::select(x, all_ard_groups())
16. ├─cards::as_card(...)
17. │ └─cards:::check_class(x, cls = "data.frame")
18. ├─dplyr::mutate(...)
19. └─cardx:::.restore_original_column_types(cards, data = data$variables)
20. └─cards::as_card(...)
21. └─cards::check_ard_structure(...)
22. └─cards:::.message_or_error(...)
23. └─cli::cli_abort(msg, call = call, .envir = envir)
24. └─rlang::abort(...)
── Error ('test-ard_tabulate.survey.design.R:485:3'): ard_tabulate.survey.design() works for unobserved factor levels ──
<objectNotFoundError/error/condition>
Error in `eval(code, test_env)`: object 'ard_svy_cat_row' not found
Backtrace:
▆
1. ├─testthat::expect_invisible(...) at test-ard_tabulate.survey.design.R:485:3
2. │ └─base::withVisible(call)
3. └─cards::check_ard_structure(ard_svy_cat_row, method = FALSE)
── Failure ('test-ard_tabulate.survey.design.R:771:3'): ard_tabulate.survey.design() works for unobserved logical levels ──
Expected `... <- NULL` not to throw any errors.
Actually got a <rlang_error> with message:
The following columns are not present: "warning" and "error".
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-ard_tabulate.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_tabulate(...)
8. └─cardx:::ard_tabulate.survey.design(svy_titanic, variables = c(Class, Age), by = Survived, denominator = "row")
9. ├─cards::tidy_ard_row_order(...)
10. │ └─dplyr::select(x, all_ard_groups(c("names", "levels")))
11. ├─cards::tidy_ard_column_order(...)
12. │ ├─dplyr::pull(...)
13. │ ├─dplyr::arrange(...)
14. │ ├─base::data.frame(colname = names(dplyr::select(x, all_ard_groups())))
15. │ └─dplyr::select(x, all_ard_groups())
16. ├─cards::as_card(...)
17. │ └─cards:::check_class(x, cls = "data.frame")
18. ├─dplyr::mutate(...)
19. └─cardx:::.restore_original_column_types(cards, data = data$variables)
20. └─cards::as_card(...)
21. └─cards::check_ard_structure(...)
22. └─cards:::.message_or_error(...)
23. └─cli::cli_abort(msg, call = call, .envir = envir)
24. └─rlang::abort(...)
── Error ('test-ard_tabulate.survey.design.R:781:3'): ard_tabulate.survey.design() works for unobserved logical levels ──
<objectNotFoundError/error/condition>
Error in `eval(code, test_env)`: object 'ard_svy_cat_row' not found
Backtrace:
▆
1. ├─testthat::expect_invisible(...) at test-ard_tabulate.survey.design.R:781:3
2. │ └─base::withVisible(call)
3. └─cards::check_ard_structure(ard_svy_cat_row, method = FALSE)
── Failure ('test-ard_tabulate.survey.design.R:1062:3'): ard_tabulate.survey.design() works with variables with only 1 level ──
Expected `... <- NULL` not to throw any errors.
Actually got a <rlang_error> with message:
The following columns are not present: "warning" and "error".
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-ard_tabulate.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_tabulate(...)
8. └─cardx:::ard_tabulate.survey.design(svy_titanic, variables = c(Class, Age), by = Survived, denominator = "row")
9. ├─cards::tidy_ard_row_order(...)
10. │ └─dplyr::select(x, all_ard_groups(c("names", "levels")))
11. ├─cards::tidy_ard_column_order(...)
12. │ ├─dplyr::pull(...)
13. │ ├─dplyr::arrange(...)
14. │ ├─base::data.frame(colname = names(dplyr::select(x, all_ard_groups())))
15. │ └─dplyr::select(x, all_ard_groups())
16. ├─cards::as_card(...)
17. │ └─cards:::check_class(x, cls = "data.frame")
18. ├─dplyr::mutate(...)
19. └─cardx:::.restore_original_column_types(cards, data = data$variables)
20. └─cards::as_card(...)
21. └─cards::check_ard_structure(...)
22. └─cards:::.message_or_error(...)
23. └─cli::cli_abort(msg, call = call, .envir = envir)
24. └─rlang::abort(...)
── Error ('test-ard_tabulate.survey.design.R:1072:3'): ard_tabulate.survey.design() works with variables with only 1 level ──
<objectNotFoundError/error/condition>
Error in `eval(code, test_env)`: object 'ard_svy_cat_row' not found
Backtrace:
▆
1. ├─testthat::expect_invisible(...) at test-ard_tabulate.survey.design.R:1072:3
2. │ └─base::withVisible(call)
3. └─cards::check_ard_structure(ard_svy_cat_row, method = FALSE)
── Error ('test-ard_tabulate.survey.design.R:1226:3'): ard_tabulate.survey.design() works when using generic names ──
Error in `ard_tabulate(svy_titanic, variables = c(Class, Age), by = Survived, denominator = "row")`: The following columns are not present: "warning" and "error".
Backtrace:
▆
1. ├─testthat::expect_equal(...) at test-ard_tabulate.survey.design.R:1226:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─dplyr::select(...)
5. ├─cards::ard_tabulate(...)
6. └─cardx:::ard_tabulate.survey.design(svy_titanic, variables = c(Class, Age), by = Survived, denominator = "row")
7. ├─cards::tidy_ard_row_order(...)
8. │ └─dplyr::select(x, all_ard_groups(c("names", "levels")))
9. ├─cards::tidy_ard_column_order(...)
10. │ ├─dplyr::pull(...)
11. │ ├─dplyr::arrange(...)
12. │ ├─base::data.frame(colname = names(dplyr::select(x, all_ard_groups())))
13. │ └─dplyr::select(x, all_ard_groups())
14. ├─cards::as_card(...)
15. │ └─cards:::check_class(x, cls = "data.frame")
16. ├─dplyr::mutate(...)
17. └─cardx:::.restore_original_column_types(cards, data = data$variables)
18. └─cards::as_card(...)
19. └─cards::check_ard_structure(...)
20. └─cards:::.message_or_error(...)
21. └─cli::cli_abort(msg, call = call, .envir = envir)
22. └─rlang::abort(...)
── Error ('test-ard_tabulate.survey.design.R:1297:3'): ard_tabulate.survey.design(statistic) properly excluded unweighted stats not selected ──
Error in `ard_tabulate(svy_titanic, variables = Sex, statistic = ~c("N", "N_unweighted"))`: The following columns are not present: "warning" and "error".
Backtrace:
▆
1. ├─testthat::expect_equal(...) at test-ard_tabulate.survey.design.R:1297:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─dplyr::select(...)
5. ├─cards::ard_tabulate(...)
6. └─cardx:::ard_tabulate.survey.design(svy_titanic, variables = Sex, statistic = ~c("N", "N_unweighted"))
7. ├─cards::tidy_ard_row_order(...)
8. │ └─dplyr::select(x, all_ard_groups(c("names", "levels")))
9. ├─cards::tidy_ard_column_order(...)
10. │ ├─dplyr::pull(...)
11. │ ├─dplyr::arrange(...)
12. │ ├─base::data.frame(colname = names(dplyr::select(x, all_ard_groups())))
13. │ └─dplyr::select(x, all_ard_groups())
14. ├─cards::as_card(...)
15. │ └─cards:::check_class(x, cls = "data.frame")
16. ├─dplyr::mutate(...)
17. └─cardx:::.restore_original_column_types(cards, data = data$variables)
18. └─cards::as_card(...)
19. └─cards::check_ard_structure(...)
20. └─cards:::.message_or_error(...)
21. └─cli::cli_abort(msg, call = call, .envir = envir)
22. └─rlang::abort(...)
── Error ('test-ard_tabulate.survey.design.R:1317:3'): ard_tabulate follows ard structure ──
Error in `cards::check_ard_structure(ard_tabulate(svy_titanic, variables = c(Class, Age), by = Survived, denominator = "row"), method = FALSE)`: The following columns are not present: "warning" and "error".
Backtrace:
▆
1. ├─testthat::expect_silent(...) at test-ard_tabulate.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_tabulate(...)
11. └─cardx:::ard_tabulate.survey.design(...)
12. ├─cards::tidy_ard_row_order(...)
13. │ └─dplyr::select(x, all_ard_groups(c("names", "levels")))
14. ├─cards::tidy_ard_column_order(...)
15. │ ├─dplyr::pull(...)
16. │ ├─dplyr::arrange(...)
17. │ ├─base::data.frame(colname = names(dplyr::select(x, all_ard_groups())))
18. │ └─dplyr::select(x, all_ard_groups())
19. ├─cards::as_card(...)
20. │ └─cards:::check_class(x, cls = "data.frame")
21. ├─dplyr::mutate(...)
22. └─cardx:::.restore_original_column_types(cards, data = data$variables)
23. └─cards::as_card(...)
24. └─cards::check_ard_structure(...)
25. └─cards:::.message_or_error(...)
26. └─cli::cli_abort(msg, call = call, .envir = envir)
27. └─rlang::abort(...)
── Error ('test-ard_tabulate.survey.design.R:1340:3'): ard_tabulate.survey.design() original types are retained ──
Error in `ard_tabulate(svy_titanic, variables = c(Class, Age, Class.int, Class.dbl), by = Survived)`: The following columns are not present: "warning" and "error".
Backtrace:
▆
1. ├─testthat::expect_silent(...) at test-ard_tabulate.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_tabulate(...)
10. └─cardx:::ard_tabulate.survey.design(...)
11. ├─cards::tidy_ard_row_order(...)
12. │ └─dplyr::select(x, all_ard_groups(c("names", "levels")))
13. ├─cards::tidy_ard_column_order(...)
14. │ ├─dplyr::pull(...)
15. │ ├─dplyr::arrange(...)
16. │ ├─base::data.frame(colname = names(dplyr::select(x, all_ard_groups())))
17. │ └─dplyr::select(x, all_ard_groups())
18. ├─cards::as_card(...)
19. │ └─cards:::check_class(x, cls = "data.frame")
20. ├─dplyr::mutate(...)
21. └─cardx:::.restore_original_column_types(cards, data = data$variables)
22. └─cards::as_card(...)
23. └─cards::check_ard_structure(...)
24. └─cards:::.message_or_error(...)
25. └─cli::cli_abort(msg, call = call, .envir = envir)
26. └─rlang::abort(...)
── Error ('test-ard_tabulate.survey.design.R:1375:3'): ard_tabulate.survey.design() works with all NA fct variables ──
Error in `ard_tabulate(survey::svydesign(~1, data = dplyr::tibble(fct = factor(c(NA, NA), levels = c("no", "yes")), lgl = c(NA, NA)), weights = ~1), variables = fct)`: The following columns are not present: "warning" and "error".
Backtrace:
▆
1. ├─testthat::expect_silent(...) at test-ard_tabulate.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_tabulate(...)
10. └─cardx:::ard_tabulate.survey.design(...)
11. ├─cards::tidy_ard_row_order(...)
12. │ └─dplyr::select(x, all_ard_groups(c("names", "levels")))
13. ├─cards::tidy_ard_column_order(...)
14. │ ├─dplyr::pull(...)
15. │ ├─dplyr::arrange(...)
16. │ ├─base::data.frame(colname = names(dplyr::select(x, all_ard_groups())))
17. │ └─dplyr::select(x, all_ard_groups())
18. ├─cards::as_card(...)
19. │ └─cards:::check_class(x, cls = "data.frame")
20. ├─dplyr::mutate(...)
21. └─cardx:::.restore_original_column_types(cards, data = data$variables)
22. └─cards::as_card(...)
23. └─cards::check_ard_structure(...)
24. └─cards:::.message_or_error(...)
25. └─cli::cli_abort(msg, call = call, .envir = envir)
26. └─rlang::abort(...)
── Failure ('test-ard_tabulate_value.survey.design.R:11:3'): ard_tabulate_value.survey.design() works ──
Expected `... <- NULL` not to throw any errors.
Actually got a <rlang_error> with message:
The following columns are not present: "warning" and "error".
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-ard_tabulate_value.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_tabulate_value(...)
8. └─cardx:::ard_tabulate_value.survey.design(...)
9. ├─dplyr::mutate(...)
10. ├─dplyr::filter(...)
11. ├─cards::ard_tabulate(...)
12. └─cardx:::ard_tabulate.survey.design(...)
13. ├─cards::tidy_ard_row_order(...)
14. │ └─dplyr::select(x, all_ard_groups(c("names", "levels")))
15. ├─cards::tidy_ard_column_order(...)
16. │ ├─dplyr::pull(...)
17. │ ├─dplyr::arrange(...)
18. │ ├─base::data.frame(colname = names(dplyr::select(x, all_ard_groups())))
19. │ └─dplyr::select(x, all_ard_groups())
20. ├─cards::as_card(...)
21. │ └─cards:::check_class(x, cls = "data.frame")
22. ├─dplyr::mutate(...)
23. └─cardx:::.restore_original_column_types(cards, data = data$variables)
24. └─cards::as_card(...)
25. └─cards::check_ard_structure(...)
26. └─cards:::.message_or_error(...)
27. └─cli::cli_abort(msg, call = call, .envir = envir)
28. └─rlang::abort(...)
── Error ('test-ard_tabulate_value.survey.design.R:22:3'): ard_tabulate_value.survey.design() works ──
<objectNotFoundError/error/condition>
Error in `eval(code, test_env)`: object 'ard_dichotomous_row' not found
Backtrace:
▆
1. ├─testthat::expect_invisible(...) at test-ard_tabulate_value.survey.design.R:22:3
2. │ └─base::withVisible(call)
3. └─cards::check_ard_structure(ard_dichotomous_row, method = FALSE)
── Failure ('test-ard_tabulate_value.survey.design.R:630:3'): ard_dichotomous.survey.design() works with various input types ──
Expected `... <- NULL` not to throw any errors.
Actually got a <rlang_error> with message:
The following columns are not present: "warning" and "error".
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-ard_tabulate_value.survey.design.R:630: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_tabulate_value(...)
8. └─cardx:::ard_tabulate_value.survey.design(...)
9. ├─dplyr::mutate(...)
10. ├─dplyr::filter(...)
11. ├─cards::ard_tabulate(...)
12. └─cardx:::ard_tabulate.survey.design(...)
13. ├─cards::tidy_ard_row_order(...)
14. │ └─dplyr::select(x, all_ard_groups(c("names", "levels")))
15. ├─cards::tidy_ard_column_order(...)
16. │ ├─dplyr::pull(...)
17. │ ├─dplyr::arrange(...)
18. │ ├─base::data.frame(colname = names(dplyr::select(x, all_ard_groups())))
19. │ └─dplyr::select(x, all_ard_groups())
20. ├─cards::as_card(...)
21. │ └─cards:::check_class(x, cls = "data.frame")
22. ├─dplyr::mutate(...)
23. └─cardx:::.restore_original_column_types(cards, data = data$variables)
24. └─cards::as_card(...)
25. └─cards::check_ard_structure(...)
26. └─cards:::.message_or_error(...)
27. └─cli::cli_abort(msg, call = call, .envir = envir)
28. └─rlang::abort(...)
── Error ('test-ard_tabulate_value.survey.design.R:641:3'): ard_dichotomous.survey.design() works with various input types ──
<objectNotFoundError/error/condition>
Error in `eval(code, test_env)`: object 'ard_dichotomous_row' not found
Backtrace:
▆
1. ├─testthat::expect_invisible(...) at test-ard_tabulate_value.survey.design.R:641:3
2. │ └─base::withVisible(call)
3. └─cards::check_ard_structure(ard_dichotomous_row, method = FALSE)
── Error ('test-ard_tabulate_value.survey.design.R:790:3'): ard_tabulate_value.survey.design() follows ard structure ──
Error in `cards::check_ard_structure(ard_tabulate_value(svy_dicho, by = vs, variables = c(cyl, am), value = list(cyl = 4), denominator = "row"), method = FALSE)`: The following columns are not present: "warning" and "error".
Backtrace:
▆
1. ├─testthat::expect_silent(...) at test-ard_tabulate_value.survey.design.R:790: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_tabulate_value(...)
11. └─cardx:::ard_tabulate_value.survey.design(...)
12. ├─dplyr::mutate(...)
13. ├─dplyr::filter(...)
14. ├─cards::ard_tabulate(...)
15. └─cardx:::ard_tabulate.survey.design(...)
16. ├─cards::tidy_ard_row_order(...)
17. │ └─dplyr::select(x, all_ard_groups(c("names", "levels")))
18. ├─cards::tidy_ard_column_order(...)
19. │ ├─dplyr::pull(...)
20. │ ├─dplyr::arrange(...)
21. │ ├─base::data.frame(colname = names(dplyr::select(x, all_ard_groups())))
22. │ └─dplyr::select(x, all_ard_groups())
23. ├─cards::as_card(...)
24. │ └─cards:::check_class(x, cls = "data.frame")
25. ├─dplyr::mutate(...)
26. └─cardx:::.restore_original_column_types(cards, data = data$variables)
27. └─cards::as_card(...)
28. └─cards::check_ard_structure(...)
29. └─cards:::.message_or_error(...)
30. └─cli::cli_abort(msg, call = call, .envir = envir)
31. └─rlang::abort(...)
── Failure ('test-ard_tabulate_max.R:191:3'): ard_tabulate_max() works with pre-ordered factor variables ──
Expected `res` to equal `dplyr::filter(res3, variable == "AESEV")`.
Differences:
`attr(actual, 'args')$variables`: "AESEV"
`attr(expected, 'args')$variables`: "SEX"
── Error ('test-ard_tabulate_max.R:237:3'): ard_tabulate_max() works without any variables ──
Error in `ard_tabulate_max(data = cards::ADAE, variables = starts_with("xxxx"), id = USUBJID, by = c(TRTA, AESEV))`: The following columns are not present: "variable", "stat_name", "stat_label", "stat", "fmt_fun", "warning", and "error".
Backtrace:
▆
1. └─cardx::ard_tabulate_max(...)
2. └─cards::as_card(dplyr::tibble())
3. └─cards::check_ard_structure(...)
4. └─cards:::.message_or_error(...)
5. └─cli::cli_abort(msg, call = call, .envir = envir)
6. └─rlang::abort(...)
── Error ('test-ard_total_n.survey.design.R:4:3'): ard_total_n.survey.design() works ──
Error in `ard_total_n(survey::svydesign(~1, data = as.data.frame(Titanic), weights = ~Freq))`: The following columns are not present: "warning" and "error".
Backtrace:
▆
1. ├─cards::ard_total_n(...)
2. └─cardx:::ard_total_n.survey.design(survey::svydesign(~1, data = as.data.frame(Titanic), weights = ~Freq))
3. ├─dplyr::select(...)
4. ├─dplyr::mutate(...)
5. ├─cards::ard_tabulate_value(...)
6. └─cardx:::ard_tabulate_value.survey.design(...)
7. ├─dplyr::mutate(...)
8. ├─dplyr::filter(...)
9. ├─cards::ard_tabulate(...)
10. └─cardx:::ard_tabulate.survey.design(...)
11. ├─cards::tidy_ard_row_order(...)
12. │ └─dplyr::select(x, all_ard_groups(c("names", "levels")))
13. ├─cards::tidy_ard_column_order(...)
14. │ ├─dplyr::pull(...)
15. │ ├─dplyr::arrange(...)
16. │ ├─base::data.frame(colname = names(dplyr::select(x, all_ard_groups())))
17. │ └─dplyr::select(x, all_ard_groups())
18. ├─cards::as_card(...)
19. │ └─cards:::check_class(x, cls = "data.frame")
20. ├─dplyr::mutate(...)
21. └─cardx:::.restore_original_column_types(cards, data = data$variables)
22. └─cards::as_card(...)
23. └─cards::check_ard_structure(...)
24. └─cards:::.message_or_error(...)
25. └─cli::cli_abort(msg, call = call, .envir = envir)
26. └─rlang::abort(...)
── Error ('test-ard_total_n.survey.design.R:11:3'): ard_total_n.survey.design() follows ard structure ──
Error in `cards::check_ard_structure(ard_total_n(survey::svydesign(~1, data = as.data.frame(Titanic), weights = ~Freq)), method = FALSE)`: The following columns are not present: "warning" and "error".
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_tabulate_value(...)
15. └─cardx:::ard_tabulate_value.survey.design(...)
16. ├─dplyr::mutate(...)
17. ├─dplyr::filter(...)
18. ├─cards::ard_tabulate(...)
19. └─cardx:::ard_tabulate.survey.design(...)
20. ├─cards::tidy_ard_row_order(...)
21. │ └─dplyr::select(x, all_ard_groups(c("names", "levels")))
22. ├─cards::tidy_ard_column_order(...)
23. │ ├─dplyr::pull(...)
24. │ ├─dplyr::arrange(...)
25. │ ├─base::data.frame(colname = names(dplyr::select(x, all_ard_groups())))
26. │ └─dplyr::select(x, all_ard_groups())
27. ├─cards::as_card(...)
28. │ └─cards:::check_class(x, cls = "data.frame")
29. ├─dplyr::mutate(...)
30. └─cardx:::.restore_original_column_types(cards, data = data$variables)
31. └─cards::as_card(...)
32. └─cards::check_ard_structure(...)
33. └─cards:::.message_or_error(...)
34. └─cli::cli_abort(msg, call = call, .envir = envir)
35. └─rlang::abort(...)
── Error ('test-ard_total_n.survey.design.R:29:3'): ard_total_n.survey.design() using `update()` ──
Error in `ard_total_n(subset(survey::svydesign(id = ~1, weights = ~poids, data = database), !is.na(INDIV_GENDER)))`: The following columns are not present: "warning" and "error".
Backtrace:
▆
1. ├─testthat::expect_silent(...) at test-ard_total_n.survey.design.R:29: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_total_n(...)
10. └─cardx:::ard_total_n.survey.design(...)
11. ├─dplyr::select(...)
12. ├─dplyr::mutate(...)
13. ├─cards::ard_tabulate_value(...)
14. └─cardx:::ard_tabulate_value.survey.design(...)
15. ├─dplyr::mutate(...)
16. ├─dplyr::filter(...)
17. ├─cards::ard_tabulate(...)
18. └─cardx:::ard_tabulate.survey.design(...)
19. ├─cards::tidy_ard_row_order(...)
20. │ └─dplyr::select(x, all_ard_groups(c("names", "levels")))
21. ├─cards::tidy_ard_column_order(...)
22. │ ├─dplyr::pull(...)
23. │ ├─dplyr::arrange(...)
24. │ ├─base::data.frame(colname = names(dplyr::select(x, all_ard_groups())))
25. │ └─dplyr::select(x, all_ard_groups())
26. ├─cards::as_card(...)
27. │ └─cards:::check_class(x, cls = "data.frame")
28. ├─dplyr::mutate(...)
29. └─cardx:::.restore_original_column_types(cards, data = data$variables)
30. └─cards::as_card(...)
31. └─cards::check_ard_structure(...)
32. └─cards:::.message_or_error(...)
33. └─cli::cli_abort(msg, call = call, .envir = envir)
34. └─rlang::abort(...)
[ FAIL 49 | WARN 0 | SKIP 59 | PASS 327 ]
Error:
! Test failures.
Execution halted
Flavor: r-devel-linux-x86_64-debian-gcc
Version: 0.3.2
Check: examples
Result: ERROR
Running examples in ‘cardx-Ex.R’ failed
The error most likely occurred in:
> ### Name: ard_missing.survey.design
> ### Title: ARD Missing Survey Statistics
> ### Aliases: ard_missing.survey.design
>
> ### ** Examples
>
> ## Don't show:
> if (cardx:::is_pkg_installed("survey")) withAutoprint({ # examplesIf
+ ## End(Don't show)
+ svy_titanic <- survey::svydesign(~1, data = as.data.frame(Titanic), weights = ~Freq)
+
+ ard_missing(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_missing(svy_titanic, variables = c(Class, Age), by = Survived)
Error in `ard_missing()`:
! The following columns are not present: "warning" and "error".
Backtrace:
▆
1. ├─base::withAutoprint(...)
2. │ └─base::source(...)
3. │ ├─base::withVisible(eval(ei, envir))
4. │ └─base::eval(ei, envir)
5. │ └─base::eval(ei, envir)
6. ├─cards::ard_missing(svy_titanic, variables = c(Class, Age), by = Survived)
7. └─cardx:::ard_missing.survey.design(svy_titanic, variables = c(Class, Age), by = Survived)
8. ├─dplyr::mutate(...)
9. ├─cards::ard_tabulate(...)
10. └─cardx:::ard_tabulate.survey.design(...)
11. ├─cards::tidy_ard_row_order(...)
12. │ └─dplyr::select(x, all_ard_groups(c("names", "levels")))
13. ├─cards::tidy_ard_column_order(...)
14. │ ├─dplyr::pull(...)
15. │ ├─dplyr::arrange(...)
16. │ ├─base::data.frame(colname = names(dplyr::select(x, all_ard_groups())))
17. │ └─dplyr::select(x, all_ard_groups())
18. ├─cards::as_card(...)
19. │ └─cards:::check_class(x, cls = "data.frame")
20. ├─dplyr::mutate(...)
21. └─cardx:::.restore_original_column_types(cards, data = data$variables)
22. └─cards::as_card(...)
23. └─cards::check_ard_structure(...)
24. └─cards:::.message_or_error(...)
25. └─cli::cli_abort(msg, call = call, .envir = envir)
26. └─rlang::abort(...)
Execution halted
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc
Version: 0.3.2
Check: tests
Result: ERROR
Running ‘testthat.R’ [230s/191s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> library(testthat)
> test_check("cardx", stop_on_warning = TRUE)
Loading required package: cardx
Starting 2 test processes.
Saving _problems/test-ard_categorical_ci.survey.design-28.R
> test-ard_categorical_ci.data.frame.R: 5 missing observations in the "am" column have been removed.
Saving _problems/test-ard_categorical_ci.data.frame-202.R
Saving _problems/test-ard_categorical_ci.data.frame-224.R
Saving _problems/test-ard_categorical_ci.data.frame-287.R
Saving _problems/test-ard_categorical_ci.data.frame-309.R
Saving _problems/test-ard_continuous_ci.survey.design-39.R
> test-ard_effectsize_cohens_d.R: For paired samples, 'repeated_measures_d()' provides more options.
> test-ard_effectsize_hedges_g.R: For paired samples, 'repeated_measures_d()' provides more options.
Saving _problems/test-ard_missing.survey.design-14.R
Saving _problems/test-ard_missing.survey.design-15.R
Saving _problems/test-ard_missing.survey.design-113.R
Saving _problems/test-ard_missing.survey.design-146.R
> test-ard_stats_oneway_test.R: Multiple parameters; naming those columns num.df and den.df.
Saving _problems/test-ard_stats_t_test_onesample-49.R
Saving _problems/test-ard_stats_wilcox_test_onesample-51.R
Saving _problems/test-ard_summary.survey.design-18.R
Saving _problems/test-ard_summary.survey.design-19.R
Saving _problems/test-ard_summary.survey.design-90.R
Saving _problems/test-ard_summary.survey.design-91.R
Saving _problems/test-ard_summary.survey.design-256.R
Saving _problems/test-ard_summary.survey.design-262.R
Saving _problems/test-ard_summary.survey.design-302.R
Saving _problems/test-ard_summary.survey.design-315.R
Saving _problems/test-ard_summary.survey.design-331.R
Saving _problems/test-ard_summary.survey.design-346.R
Saving _problems/test-ard_summary.survey.design-374.R
Saving _problems/test-ard_summary.survey.design-406.R
Saving _problems/test-ard_summary.survey.design-519.R
Saving _problems/test-ard_summary.survey.design-540.R
Saving _problems/test-ard_tabulate.survey.design-21.R
Saving _problems/test-ard_tabulate.survey.design-22.R
Saving _problems/test-ard_tabulate.survey.design-484.R
Saving _problems/test-ard_tabulate.survey.design-485.R
Saving _problems/test-ard_tabulate.survey.design-780.R
Saving _problems/test-ard_tabulate.survey.design-781.R
Saving _problems/test-ard_tabulate.survey.design-1071.R
Saving _problems/test-ard_tabulate.survey.design-1072.R
Saving _problems/test-ard_tabulate.survey.design-1229.R
Saving _problems/test-ard_tabulate.survey.design-1310.R
Saving _problems/test-ard_tabulate.survey.design-1325.R
Saving _problems/test-ard_tabulate.survey.design-1343.R
Saving _problems/test-ard_tabulate.survey.design-1387.R
> test-ard_tabulate_max.R: `AESEV`: "MILD" < "MODERATE" < "SEVERE"
Saving _problems/test-ard_tabulate_max-194.R
Saving _problems/test-ard_tabulate_max-244.R
Saving _problems/test-ard_total_n.survey.design-7.R
Saving _problems/test-ard_total_n.survey.design-15.R
Saving _problems/test-ard_total_n.survey.design-37.R
Saving _problems/test-ard_tabulate_value.survey.design-21.R
Saving _problems/test-ard_tabulate_value.survey.design-25.R
Saving _problems/test-ard_tabulate_value.survey.design-640.R
Saving _problems/test-ard_tabulate_value.survey.design-644.R
Saving _problems/test-ard_tabulate_value.survey.design-799.R
[ FAIL 49 | WARN 0 | SKIP 59 | PASS 327 ]
══ Skipped tests (59) ══════════════════════════════════════════════════════════
• On CRAN (59): 'test-ard_attributes.survey.design.R:3:1',
'test-ard_aod_wald_test.R:3:1', 'test-ard_car_vif.R:3:1',
'test-ard_car_vif.R:28:1', 'test-ard_car_anova.R:3:1',
'test-ard_car_anova.R:15:1', 'test-ard_categorical_ci.survey.design.R:6:1',
'test-ard_continuous_ci.survey.design.R:6:1',
'test-ard_continuous_ci.survey.design.R:193:1',
'test-ard_effectsize_cohens_d.R:3:1', 'test-ard_effectsize_hedges_g.R:3:1',
'test-ard_emmeans_contrast.R:3:1', 'test-ard_emmeans_contrast.R:100:1',
'test-ard_emmeans_emmeans.R:3:1', 'test-ard_emmeans_emmeans.R:93:1',
'test-ard_incidence_rate.R:7:1', 'test-ard_incidence_rate.R:43:1',
'test-ard_incidence_rate.R:66:1', 'test-ard_proportion_ci.R:62:1',
'test-ard_proportion_ci.R:112:1', 'test-ard_regression_basic.R:3:1',
'test-ard_regression.R:3:1', 'test-ard_regression.R:40:1',
'test-ard_stats_aov.R:3:1', 'test-ard_stats_kruskal_test.R:3:1',
'test-ard_stats_mantelhaen_test.R:3:1', 'test-ard_stats_mood_test.R:3:1',
'test-ard_stats_oneway_test.R:3:1', 'test-ard_stats_poisson_test.R:73:1',
'test-ard_survey_svychisq.R:3:1', 'test-ard_survey_svyranktest.R:3:1',
'test-ard_survival_survfit.R:3:1', 'test-ard_survival_survfit.R:16:1',
'test-ard_survival_survfit.R:29:1', 'test-ard_survival_survfit.R:42:1',
'test-ard_survival_survfit.R:64:1', 'test-ard_survival_survfit.R:90:1',
'test-ard_survival_survfit.R:120:1', 'test-ard_survival_survfit.R:191:1',
'test-ard_survival_survfit.R:201:1', 'test-ard_survival_survfit.R:221:1',
'test-ard_survival_survfit.R:231:1', 'test-ard_survival_survfit_diff.R:36:1',
'test-ard_tabulate_abnormal.R:5:1', 'test-ard_tabulate_abnormal.R:41:1',
'test-ard_tabulate.survey.design.R:421:1',
'test-ard_tabulate.survey.design.R:1176:1',
'test-ard_tabulate.survey.design.R:1410:1', 'test-ard_tabulate_max.R:1:1',
'test-ard_tabulate_max.R:60:1', 'test-ard_tabulate_max.R:75:1',
'test-ard_tabulate_max.R:115:1', 'test-ard_tabulate_max.R:210:1',
'test-ard_tabulate_max.R:258:1',
'test-ard_tabulate_value.survey.design.R:736:1',
'test-construction_helpers.R:3:1', 'test-construction_helpers.R:103:1',
'test-proportion_ci.R:3:1', 'test-proportion_ci.R:122:1'
══ Failed tests ════════════════════════════════════════════════════════════════
── Error ('test-ard_categorical_ci.survey.design.R:25:3'): ard_categorical_ci(variables) ──
Error in `ard_categorical_ci(dclus1, variables = starts_with("xxxxxx"))`: The following columns are not present: "variable", "stat_name", "stat_label", "stat", "fmt_fun", "warning", and "error".
Backtrace:
▆
1. ├─testthat::expect_equal(...) at test-ard_categorical_ci.survey.design.R:25:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─cardx::ard_categorical_ci(dclus1, variables = starts_with("xxxxxx"))
5. └─cardx:::ard_categorical_ci.survey.design(dclus1, variables = starts_with("xxxxxx"))
6. └─cards::as_card(dplyr::tibble())
7. └─cards::check_ard_structure(...)
8. └─cards:::.message_or_error(...)
9. └─cli::cli_abort(msg, call = call, .envir = envir)
10. └─rlang::abort(...)
── Failure ('test-ard_categorical_ci.data.frame.R:188:3'): ard_continuous_ci.data.frame(denominator='row') ──
Expected `dplyr::arrange(...)` to equal `dplyr::arrange(...)`.
Differences:
`attr(actual, 'args')` is absent
`attr(expected, 'args')` is a list
── Failure ('test-ard_categorical_ci.data.frame.R:205:3'): ard_continuous_ci.data.frame(denominator='row') ──
Expected `dplyr::arrange(...)` to equal `dplyr::arrange(...)`.
Differences:
`attr(actual, 'args')` is absent
`attr(expected, 'args')` is a list
── Failure ('test-ard_categorical_ci.data.frame.R:273:3'): ard_continuous_ci.data.frame(denominator='cell') ──
Expected `dplyr::arrange(...)` to equal `dplyr::arrange(...)`.
Differences:
`attr(actual, 'args')` is absent
`attr(expected, 'args')` is a list
── Failure ('test-ard_categorical_ci.data.frame.R:290:3'): ard_continuous_ci.data.frame(denominator='cell') ──
Expected `dplyr::arrange(...)` to equal `dplyr::arrange(...)`.
Differences:
`attr(actual, 'args')` is absent
`attr(expected, 'args')` is a list
── Error ('test-ard_continuous_ci.survey.design.R:36:3'): ard_continuous_ci(variables) ──
Error in `ard_continuous_ci(dclus1, variables = starts_with("xxxxxx"))`: The following columns are not present: "variable", "stat_name", "stat_label", "stat", "fmt_fun", "warning", and "error".
Backtrace:
▆
1. ├─testthat::expect_equal(...) at test-ard_continuous_ci.survey.design.R:36:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─cardx::ard_continuous_ci(dclus1, variables = starts_with("xxxxxx"))
5. └─cardx:::ard_continuous_ci.survey.design(dclus1, variables = starts_with("xxxxxx"))
6. └─cards::as_card(dplyr::tibble())
7. └─cards::check_ard_structure(...)
8. └─cards:::.message_or_error(...)
9. └─cli::cli_abort(msg, call = call, .envir = envir)
10. └─rlang::abort(...)
── Failure ('test-ard_missing.survey.design.R:11:3'): ard_missing.survey.design() works ──
Expected `... <- NULL` not to throw any errors.
Actually got a <rlang_error> with message:
The following columns are not present: "warning" and "error".
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(svy_titanic, variables = c(Class, Age), by = NULL)
9. ├─dplyr::mutate(...)
10. ├─cards::ard_tabulate(...)
11. └─cardx:::ard_tabulate.survey.design(...)
12. ├─cards::tidy_ard_row_order(...)
13. │ └─dplyr::select(x, all_ard_groups(c("names", "levels")))
14. ├─cards::tidy_ard_column_order(...)
15. │ ├─dplyr::pull(...)
16. │ ├─dplyr::arrange(...)
17. │ ├─base::data.frame(colname = names(dplyr::select(x, all_ard_groups())))
18. │ └─dplyr::select(x, all_ard_groups())
19. ├─cards::as_card(...)
20. │ └─cards:::check_class(x, cls = "data.frame")
21. ├─dplyr::mutate(...)
22. └─cardx:::.restore_original_column_types(cards, data = data$variables)
23. └─cards::as_card(...)
24. └─cards::check_ard_structure(...)
25. └─cards:::.message_or_error(...)
26. └─cli::cli_abort(msg, call = call, .envir = envir)
27. └─rlang::abort(...)
── Error ('test-ard_missing.survey.design.R:15:3'): ard_missing.survey.design() works ──
<objectNotFoundError/error/condition>
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 `cards::check_ard_structure(ard_missing(svy_titanic, variables = c(Class, Age), by = NULL), method = FALSE)`: The following columns are not present: "warning" and "error".
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_tabulate(...)
14. └─cardx:::ard_tabulate.survey.design(...)
15. ├─cards::tidy_ard_row_order(...)
16. │ └─dplyr::select(x, all_ard_groups(c("names", "levels")))
17. ├─cards::tidy_ard_column_order(...)
18. │ ├─dplyr::pull(...)
19. │ ├─dplyr::arrange(...)
20. │ ├─base::data.frame(colname = names(dplyr::select(x, all_ard_groups())))
21. │ └─dplyr::select(x, all_ard_groups())
22. ├─cards::as_card(...)
23. │ └─cards:::check_class(x, cls = "data.frame")
24. ├─dplyr::mutate(...)
25. └─cardx:::.restore_original_column_types(cards, data = data$variables)
26. └─cards::as_card(...)
27. └─cards::check_ard_structure(...)
28. └─cards:::.message_or_error(...)
29. └─cli::cli_abort(msg, call = call, .envir = envir)
30. └─rlang::abort(...)
── Error ('test-ard_missing.survey.design.R:118:3'): ard_missing.survey.design() works on design columns ──
Error in `ard_missing(dplyr::tribble(~region, ~year, ~weights, 3, 1972, 0.663196271930943, 3, 1972, 0.917370028585327, 3, 1972, 0.897412512251031, 3, 1972, 1.06634082743438, 3, 1972, 0.94432371066466, 3, 1972, 0.526887241987567, 3, 1972, 0.526887241987567, 3, 1972, 0.546578869586901, 7, 1972, 0.283198307048893, 7, 1972, 0.494322145606406) %>% survey::svydesign(data = ., ids = ~region, strata = ~year, weights = ~weights, nest = TRUE), variables = weights)`: The following columns are not present: "warning" and "error".
Backtrace:
▆
1. ├─testthat::expect_equal(...) at test-ard_missing.survey.design.R:118:3
2. │ └─testthat::quasi_label(enquo(object), label)
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_tabulate(...)
13. └─cardx:::ard_tabulate.survey.design(...)
14. ├─cards::tidy_ard_row_order(...)
15. │ └─dplyr::select(x, all_ard_groups(c("names", "levels")))
16. ├─cards::tidy_ard_column_order(...)
17. │ ├─dplyr::pull(...)
18. │ ├─dplyr::arrange(...)
19. │ ├─base::data.frame(colname = names(dplyr::select(x, all_ard_groups())))
20. │ └─dplyr::select(x, all_ard_groups())
21. ├─cards::as_card(...)
22. │ └─cards:::check_class(x, cls = "data.frame")
23. ├─dplyr::mutate(...)
24. └─cardx:::.restore_original_column_types(cards, data = data$variables)
25. └─cards::as_card(...)
26. └─cards::check_ard_structure(...)
27. └─cards:::.message_or_error(...)
28. └─cli::cli_abort(msg, call = call, .envir = envir)
29. └─rlang::abort(...)
── Error ('test-ard_stats_t_test_onesample.R:43:3'): ard_stats_t_test_onesample() works ──
Error in `ard_stats_t_test_onesample(cards::ADSL, variables = character(0))`: The following columns are not present: "variable", "stat_name", "stat_label", "stat", "fmt_fun", "warning", and "error".
Backtrace:
▆
1. ├─testthat::expect_equal(...) at test-ard_stats_t_test_onesample.R:43:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. └─cardx::ard_stats_t_test_onesample(cards::ADSL, variables = character(0))
5. └─cards::as_card(dplyr::tibble())
6. └─cards::check_ard_structure(...)
7. └─cards:::.message_or_error(...)
8. └─cli::cli_abort(msg, call = call, .envir = envir)
9. └─rlang::abort(...)
── Error ('test-ard_stats_wilcox_test_onesample.R:45:3'): ard_stats_wilcox_test_onesample() works ──
Error in `ard_stats_wilcox_test_onesample(cards::ADSL, variables = character(0))`: The following columns are not present: "variable", "stat_name", "stat_label", "stat", "fmt_fun", "warning", and "error".
Backtrace:
▆
1. ├─testthat::expect_equal(...) at test-ard_stats_wilcox_test_onesample.R:45:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. └─cardx::ard_stats_wilcox_test_onesample(cards::ADSL, variables = character(0))
5. └─cards::as_card(dplyr::tibble())
6. └─cards::check_ard_structure(...)
7. └─cards:::.message_or_error(...)
8. └─cli::cli_abort(msg, call = call, .envir = envir)
9. └─rlang::abort(...)
── Failure ('test-ard_summary.survey.design.R:7:3'): unstratified ard_summary.survey.design() works ──
Expected `... <- NULL` not to throw any errors.
Actually got a <rlang_error> with message:
The following columns are not present: "stat_label" and "fmt_fun".
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-ard_summary.survey.design.R:7: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_summary(...)
8. └─cardx:::ard_summary.survey.design(...)
9. └─cardx:::.restore_original_column_types(...)
10. └─cards::as_card(...)
11. └─cards::check_ard_structure(...)
12. └─cards:::.message_or_error(...)
13. └─cli::cli_abort(msg, call = call, .envir = envir)
14. └─rlang::abort(...)
── Error ('test-ard_summary.survey.design.R:19:3'): unstratified ard_summary.survey.design() works ──
<objectNotFoundError/error/condition>
Error in `eval(code, test_env)`: object 'ard_uni_svy_cont' not found
Backtrace:
▆
1. ├─testthat::expect_invisible(cards::check_ard_structure(ard_uni_svy_cont)) at test-ard_summary.survey.design.R:19:3
2. │ └─base::withVisible(call)
3. └─cards::check_ard_structure(ard_uni_svy_cont)
── Failure ('test-ard_summary.survey.design.R:78:3'): stratified ard_summary.survey.design() works ──
Expected `... <- NULL` not to throw any errors.
Actually got a <rlang_error> with message:
The following columns are not present: "stat_label" and "fmt_fun".
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-ard_summary.survey.design.R:78: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_summary(...)
8. └─cardx:::ard_summary.survey.design(...)
9. └─cardx:::.restore_original_column_types(...)
10. └─cards::as_card(...)
11. └─cards::check_ard_structure(...)
12. └─cards:::.message_or_error(...)
13. └─cli::cli_abort(msg, call = call, .envir = envir)
14. └─rlang::abort(...)
── Error ('test-ard_summary.survey.design.R:91:3'): stratified ard_summary.survey.design() works ──
<objectNotFoundError/error/condition>
Error in `eval(code, test_env)`: object 'ard_svy_cont' not found
Backtrace:
▆
1. ├─testthat::expect_invisible(cards::check_ard_structure(ard_svy_cont)) at test-ard_summary.survey.design.R:91:3
2. │ └─base::withVisible(call)
3. └─cards::check_ard_structure(ard_svy_cont)
── Failure ('test-ard_summary.survey.design.R:245:3'): ard_summary.survey.design() NA handling ──
Expected `... <- NULL` not to throw any errors.
Actually got a <rlang_error> with message:
The following columns are not present: "stat_label" and "fmt_fun".
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-ard_summary.survey.design.R:245: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_summary(...)
8. └─cardx:::ard_summary.survey.design(...)
9. └─cardx:::.restore_original_column_types(...)
10. └─cards::as_card(...)
11. └─cards::check_ard_structure(...)
12. └─cards:::.message_or_error(...)
13. └─cli::cli_abort(msg, call = call, .envir = envir)
14. └─rlang::abort(...)
── Error ('test-ard_summary.survey.design.R:258:3'): ard_summary.survey.design() NA handling ──
<objectNotFoundError/error/condition>
Error in `eval(code, test_env)`: object 'ard_uni_NA_svy_cont' not found
Backtrace:
▆
1. ├─testthat::expect_true(...) at test-ard_summary.survey.design.R:258:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. └─cardx:::map_lgl(...)
5. └─cardx:::.rlang_purrr_map_mold(.x, .f, logical(1), ...)
6. └─base::vapply(.x, .f, .mold, ..., USE.NAMES = FALSE)
── Failure ('test-ard_summary.survey.design.R:292:3'): ard_summary.survey.design() error handling ──
Expected `ard_summary(...)` not to throw any errors.
Actually got a <rlang_error> with message:
The following columns are not present: "stat_label" and "fmt_fun".
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-ard_summary.survey.design.R:292: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_summary(...)
8. └─cardx:::ard_summary.survey.design(...)
9. └─cardx:::.restore_original_column_types(...)
10. └─cards::as_card(...)
11. └─cards::check_ard_structure(...)
12. └─cards:::.message_or_error(...)
13. └─cli::cli_abort(msg, call = call, .envir = envir)
14. └─rlang::abort(...)
── Failure ('test-ard_summary.survey.design.R:304:3'): ard_summary.survey.design() error handling ──
Expected `ard_summary(...)` not to throw any errors.
Actually got a <rlang_error> with message:
The following columns are not present: "stat_label" and "fmt_fun".
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-ard_summary.survey.design.R:304: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_summary(...)
8. └─cardx:::ard_summary.survey.design(...)
9. └─cardx:::.restore_original_column_types(...)
10. └─cards::as_card(...)
11. └─cards::check_ard_structure(...)
12. └─cards:::.message_or_error(...)
13. └─cli::cli_abort(msg, call = call, .envir = envir)
14. └─rlang::abort(...)
── Error ('test-ard_summary.survey.design.R:322:3'): ard_summary.survey.design(fmt_fun) ──
Error in `ard_summary(dclus1, variables = c(api99, api00), statistic = ~c("mean", "median", "min", "max"), fmt_fun = list(api00 = list(mean = 2, median = "xx.xx", min = as.character)))`: The following columns are not present: "stat_label" and "fmt_fun".
Backtrace:
▆
1. ├─base::as.data.frame(...)
2. ├─dplyr::select(...)
3. ├─cards::ard_summary(...)
4. └─cardx:::ard_summary.survey.design(...)
5. └─cardx:::.restore_original_column_types(...)
6. └─cards::as_card(...)
7. └─cards::check_ard_structure(...)
8. └─cards:::.message_or_error(...)
9. └─cli::cli_abort(msg, call = call, .envir = envir)
10. └─rlang::abort(...)
── Error ('test-ard_summary.survey.design.R:338:3'): ard_summary.survey.design(stat_label) ──
Error in `ard_summary(dclus1, variables = c(api00, api99), statistic = ~c("mean", "median", "min", "max"), stat_label = list(api00 = list(mean = "MeAn", median = "MEDian", min = "MINimum")))`: The following columns are not present: "stat_label" and "fmt_fun".
Backtrace:
▆
1. ├─base::as.data.frame(...)
2. ├─cards::ard_summary(...)
3. └─cardx:::ard_summary.survey.design(...)
4. └─cardx:::.restore_original_column_types(...)
5. └─cards::as_card(...)
6. └─cards::check_ard_structure(...)
7. └─cards:::.message_or_error(...)
8. └─cli::cli_abort(msg, call = call, .envir = envir)
9. └─rlang::abort(...)
── Error ('test-ard_summary.survey.design.R:363:3'): ard_summary.survey.design(by) unobserved levels/combinations ──
Error in `ard_summary(dclus1, variables = api00, by = both, statistic = ~c("mean", "median", "min", "max"))`: The following columns are not present: "stat_label" and "fmt_fun".
Backtrace:
▆
1. ├─testthat::expect_setequal(...) at test-ard_summary.survey.design.R:363:3
2. │ └─testthat::quasi_label(enquo(expected))
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─base::unique(...)
5. ├─cardx:::map_chr(...)
6. │ └─cardx:::.rlang_purrr_map_mold(.x, .f, character(1), ...)
7. │ └─base::vapply(.x, .f, .mold, ..., USE.NAMES = FALSE)
8. ├─dplyr::pull(...)
9. ├─cards::ard_summary(...)
10. └─cardx:::ard_summary.survey.design(...)
11. └─cardx:::.restore_original_column_types(...)
12. └─cards::as_card(...)
13. └─cards::check_ard_structure(...)
14. └─cards:::.message_or_error(...)
15. └─cli::cli_abort(msg, call = call, .envir = envir)
16. └─rlang::abort(...)
── Error ('test-ard_summary.survey.design.R:403:3'): ard_summary.survey.design() works when using generic names ──
Error in `ard_summary(dclus1, variables = c(cds, stype), by = dnum)`: The following columns are not present: "stat_label" and "fmt_fun".
Backtrace:
▆
1. ├─testthat::expect_equal(...) at test-ard_summary.survey.design.R:403:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─dplyr::select(...)
5. ├─cards::ard_summary(dclus1, variables = c(cds, stype), by = dnum)
6. └─cardx:::ard_summary.survey.design(dclus1, variables = c(cds, stype), by = dnum)
7. └─cardx:::.restore_original_column_types(...)
8. └─cards::as_card(...)
9. └─cards::check_ard_structure(...)
10. └─cards:::.message_or_error(...)
11. └─cli::cli_abort(msg, call = call, .envir = envir)
12. └─rlang::abort(...)
── Error ('test-ard_summary.survey.design.R:516:3'): ard_summary.survey.design() follows ard structure ──
Error in `cards::check_ard_structure(ard_summary(dclus1, variables = c(cds, stype), by = snum), method = FALSE)`: The following columns are not present: "stat_label" and "fmt_fun".
Backtrace:
▆
1. ├─testthat::expect_silent(...) at test-ard_summary.survey.design.R:516: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_summary(dclus1, variables = c(cds, stype), by = snum)
11. └─cardx:::ard_summary.survey.design(...)
12. └─cardx:::.restore_original_column_types(...)
13. └─cards::as_card(...)
14. └─cards::check_ard_structure(...)
15. └─cards:::.message_or_error(...)
16. └─cli::cli_abort(msg, call = call, .envir = envir)
17. └─rlang::abort(...)
── Error ('test-ard_summary.survey.design.R:533:3'): ard_summary.survey.design() original types are retained ──
Error in `ard_summary(data = dclus1, variables = c(api00, api99), by = c(stype, sch.wide_int, sch.wide_dbl))`: The following columns are not present: "stat_label" and "fmt_fun".
Backtrace:
▆
1. ├─testthat::expect_silent(...) at test-ard_summary.survey.design.R:533: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_summary(...)
10. └─cardx:::ard_summary.survey.design(...)
11. └─cardx:::.restore_original_column_types(...)
12. └─cards::as_card(...)
13. └─cards::check_ard_structure(...)
14. └─cards:::.message_or_error(...)
15. └─cli::cli_abort(msg, call = call, .envir = envir)
16. └─rlang::abort(...)
── Failure ('test-ard_tabulate.survey.design.R:12:3'): ard_tabulate.survey.design() works ──
Expected `... <- NULL` not to throw any errors.
Actually got a <rlang_error> with message:
The following columns are not present: "warning" and "error".
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-ard_tabulate.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_tabulate(...)
8. └─cardx:::ard_tabulate.survey.design(svy_titanic, variables = c(Class, Age), by = Survived, denominator = "row")
9. ├─cards::tidy_ard_row_order(...)
10. │ └─dplyr::select(x, all_ard_groups(c("names", "levels")))
11. ├─cards::tidy_ard_column_order(...)
12. │ ├─dplyr::pull(...)
13. │ ├─dplyr::arrange(...)
14. │ ├─base::data.frame(colname = names(dplyr::select(x, all_ard_groups())))
15. │ └─dplyr::select(x, all_ard_groups())
16. ├─cards::as_card(...)
17. │ └─cards:::check_class(x, cls = "data.frame")
18. ├─dplyr::mutate(...)
19. └─cardx:::.restore_original_column_types(cards, data = data$variables)
20. └─cards::as_card(...)
21. └─cards::check_ard_structure(...)
22. └─cards:::.message_or_error(...)
23. └─cli::cli_abort(msg, call = call, .envir = envir)
24. └─rlang::abort(...)
── Error ('test-ard_tabulate.survey.design.R:22:3'): ard_tabulate.survey.design() works ──
<objectNotFoundError/error/condition>
Error in `eval(code, test_env)`: object 'ard_svy_cat_row' not found
Backtrace:
▆
1. ├─testthat::expect_invisible(...) at test-ard_tabulate.survey.design.R:22:3
2. │ └─base::withVisible(call)
3. └─cards::check_ard_structure(ard_svy_cat_row, method = FALSE)
── Failure ('test-ard_tabulate.survey.design.R:475:3'): ard_tabulate.survey.design() works for unobserved factor levels ──
Expected `... <- NULL` not to throw any errors.
Actually got a <rlang_error> with message:
The following columns are not present: "warning" and "error".
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-ard_tabulate.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_tabulate(...)
8. └─cardx:::ard_tabulate.survey.design(svy_titanic, variables = c(Class, Age), by = Survived, denominator = "row")
9. ├─cards::tidy_ard_row_order(...)
10. │ └─dplyr::select(x, all_ard_groups(c("names", "levels")))
11. ├─cards::tidy_ard_column_order(...)
12. │ ├─dplyr::pull(...)
13. │ ├─dplyr::arrange(...)
14. │ ├─base::data.frame(colname = names(dplyr::select(x, all_ard_groups())))
15. │ └─dplyr::select(x, all_ard_groups())
16. ├─cards::as_card(...)
17. │ └─cards:::check_class(x, cls = "data.frame")
18. ├─dplyr::mutate(...)
19. └─cardx:::.restore_original_column_types(cards, data = data$variables)
20. └─cards::as_card(...)
21. └─cards::check_ard_structure(...)
22. └─cards:::.message_or_error(...)
23. └─cli::cli_abort(msg, call = call, .envir = envir)
24. └─rlang::abort(...)
── Error ('test-ard_tabulate.survey.design.R:485:3'): ard_tabulate.survey.design() works for unobserved factor levels ──
<objectNotFoundError/error/condition>
Error in `eval(code, test_env)`: object 'ard_svy_cat_row' not found
Backtrace:
▆
1. ├─testthat::expect_invisible(...) at test-ard_tabulate.survey.design.R:485:3
2. │ └─base::withVisible(call)
3. └─cards::check_ard_structure(ard_svy_cat_row, method = FALSE)
── Failure ('test-ard_tabulate.survey.design.R:771:3'): ard_tabulate.survey.design() works for unobserved logical levels ──
Expected `... <- NULL` not to throw any errors.
Actually got a <rlang_error> with message:
The following columns are not present: "warning" and "error".
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-ard_tabulate.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_tabulate(...)
8. └─cardx:::ard_tabulate.survey.design(svy_titanic, variables = c(Class, Age), by = Survived, denominator = "row")
9. ├─cards::tidy_ard_row_order(...)
10. │ └─dplyr::select(x, all_ard_groups(c("names", "levels")))
11. ├─cards::tidy_ard_column_order(...)
12. │ ├─dplyr::pull(...)
13. │ ├─dplyr::arrange(...)
14. │ ├─base::data.frame(colname = names(dplyr::select(x, all_ard_groups())))
15. │ └─dplyr::select(x, all_ard_groups())
16. ├─cards::as_card(...)
17. │ └─cards:::check_class(x, cls = "data.frame")
18. ├─dplyr::mutate(...)
19. └─cardx:::.restore_original_column_types(cards, data = data$variables)
20. └─cards::as_card(...)
21. └─cards::check_ard_structure(...)
22. └─cards:::.message_or_error(...)
23. └─cli::cli_abort(msg, call = call, .envir = envir)
24. └─rlang::abort(...)
── Error ('test-ard_tabulate.survey.design.R:781:3'): ard_tabulate.survey.design() works for unobserved logical levels ──
<objectNotFoundError/error/condition>
Error in `eval(code, test_env)`: object 'ard_svy_cat_row' not found
Backtrace:
▆
1. ├─testthat::expect_invisible(...) at test-ard_tabulate.survey.design.R:781:3
2. │ └─base::withVisible(call)
3. └─cards::check_ard_structure(ard_svy_cat_row, method = FALSE)
── Failure ('test-ard_tabulate.survey.design.R:1062:3'): ard_tabulate.survey.design() works with variables with only 1 level ──
Expected `... <- NULL` not to throw any errors.
Actually got a <rlang_error> with message:
The following columns are not present: "warning" and "error".
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-ard_tabulate.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_tabulate(...)
8. └─cardx:::ard_tabulate.survey.design(svy_titanic, variables = c(Class, Age), by = Survived, denominator = "row")
9. ├─cards::tidy_ard_row_order(...)
10. │ └─dplyr::select(x, all_ard_groups(c("names", "levels")))
11. ├─cards::tidy_ard_column_order(...)
12. │ ├─dplyr::pull(...)
13. │ ├─dplyr::arrange(...)
14. │ ├─base::data.frame(colname = names(dplyr::select(x, all_ard_groups())))
15. │ └─dplyr::select(x, all_ard_groups())
16. ├─cards::as_card(...)
17. │ └─cards:::check_class(x, cls = "data.frame")
18. ├─dplyr::mutate(...)
19. └─cardx:::.restore_original_column_types(cards, data = data$variables)
20. └─cards::as_card(...)
21. └─cards::check_ard_structure(...)
22. └─cards:::.message_or_error(...)
23. └─cli::cli_abort(msg, call = call, .envir = envir)
24. └─rlang::abort(...)
── Error ('test-ard_tabulate.survey.design.R:1072:3'): ard_tabulate.survey.design() works with variables with only 1 level ──
<objectNotFoundError/error/condition>
Error in `eval(code, test_env)`: object 'ard_svy_cat_row' not found
Backtrace:
▆
1. ├─testthat::expect_invisible(...) at test-ard_tabulate.survey.design.R:1072:3
2. │ └─base::withVisible(call)
3. └─cards::check_ard_structure(ard_svy_cat_row, method = FALSE)
── Error ('test-ard_tabulate.survey.design.R:1226:3'): ard_tabulate.survey.design() works when using generic names ──
Error in `ard_tabulate(svy_titanic, variables = c(Class, Age), by = Survived, denominator = "row")`: The following columns are not present: "warning" and "error".
Backtrace:
▆
1. ├─testthat::expect_equal(...) at test-ard_tabulate.survey.design.R:1226:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─dplyr::select(...)
5. ├─cards::ard_tabulate(...)
6. └─cardx:::ard_tabulate.survey.design(svy_titanic, variables = c(Class, Age), by = Survived, denominator = "row")
7. ├─cards::tidy_ard_row_order(...)
8. │ └─dplyr::select(x, all_ard_groups(c("names", "levels")))
9. ├─cards::tidy_ard_column_order(...)
10. │ ├─dplyr::pull(...)
11. │ ├─dplyr::arrange(...)
12. │ ├─base::data.frame(colname = names(dplyr::select(x, all_ard_groups())))
13. │ └─dplyr::select(x, all_ard_groups())
14. ├─cards::as_card(...)
15. │ └─cards:::check_class(x, cls = "data.frame")
16. ├─dplyr::mutate(...)
17. └─cardx:::.restore_original_column_types(cards, data = data$variables)
18. └─cards::as_card(...)
19. └─cards::check_ard_structure(...)
20. └─cards:::.message_or_error(...)
21. └─cli::cli_abort(msg, call = call, .envir = envir)
22. └─rlang::abort(...)
── Error ('test-ard_tabulate.survey.design.R:1297:3'): ard_tabulate.survey.design(statistic) properly excluded unweighted stats not selected ──
Error in `ard_tabulate(svy_titanic, variables = Sex, statistic = ~c("N", "N_unweighted"))`: The following columns are not present: "warning" and "error".
Backtrace:
▆
1. ├─testthat::expect_equal(...) at test-ard_tabulate.survey.design.R:1297:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─dplyr::select(...)
5. ├─cards::ard_tabulate(...)
6. └─cardx:::ard_tabulate.survey.design(svy_titanic, variables = Sex, statistic = ~c("N", "N_unweighted"))
7. ├─cards::tidy_ard_row_order(...)
8. │ └─dplyr::select(x, all_ard_groups(c("names", "levels")))
9. ├─cards::tidy_ard_column_order(...)
10. │ ├─dplyr::pull(...)
11. │ ├─dplyr::arrange(...)
12. │ ├─base::data.frame(colname = names(dplyr::select(x, all_ard_groups())))
13. │ └─dplyr::select(x, all_ard_groups())
14. ├─cards::as_card(...)
15. │ └─cards:::check_class(x, cls = "data.frame")
16. ├─dplyr::mutate(...)
17. └─cardx:::.restore_original_column_types(cards, data = data$variables)
18. └─cards::as_card(...)
19. └─cards::check_ard_structure(...)
20. └─cards:::.message_or_error(...)
21. └─cli::cli_abort(msg, call = call, .envir = envir)
22. └─rlang::abort(...)
── Error ('test-ard_tabulate.survey.design.R:1317:3'): ard_tabulate follows ard structure ──
Error in `cards::check_ard_structure(ard_tabulate(svy_titanic, variables = c(Class, Age), by = Survived, denominator = "row"), method = FALSE)`: The following columns are not present: "warning" and "error".
Backtrace:
▆
1. ├─testthat::expect_silent(...) at test-ard_tabulate.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_tabulate(...)
11. └─cardx:::ard_tabulate.survey.design(...)
12. ├─cards::tidy_ard_row_order(...)
13. │ └─dplyr::select(x, all_ard_groups(c("names", "levels")))
14. ├─cards::tidy_ard_column_order(...)
15. │ ├─dplyr::pull(...)
16. │ ├─dplyr::arrange(...)
17. │ ├─base::data.frame(colname = names(dplyr::select(x, all_ard_groups())))
18. │ └─dplyr::select(x, all_ard_groups())
19. ├─cards::as_card(...)
20. │ └─cards:::check_class(x, cls = "data.frame")
21. ├─dplyr::mutate(...)
22. └─cardx:::.restore_original_column_types(cards, data = data$variables)
23. └─cards::as_card(...)
24. └─cards::check_ard_structure(...)
25. └─cards:::.message_or_error(...)
26. └─cli::cli_abort(msg, call = call, .envir = envir)
27. └─rlang::abort(...)
── Error ('test-ard_tabulate.survey.design.R:1340:3'): ard_tabulate.survey.design() original types are retained ──
Error in `ard_tabulate(svy_titanic, variables = c(Class, Age, Class.int, Class.dbl), by = Survived)`: The following columns are not present: "warning" and "error".
Backtrace:
▆
1. ├─testthat::expect_silent(...) at test-ard_tabulate.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_tabulate(...)
10. └─cardx:::ard_tabulate.survey.design(...)
11. ├─cards::tidy_ard_row_order(...)
12. │ └─dplyr::select(x, all_ard_groups(c("names", "levels")))
13. ├─cards::tidy_ard_column_order(...)
14. │ ├─dplyr::pull(...)
15. │ ├─dplyr::arrange(...)
16. │ ├─base::data.frame(colname = names(dplyr::select(x, all_ard_groups())))
17. │ └─dplyr::select(x, all_ard_groups())
18. ├─cards::as_card(...)
19. │ └─cards:::check_class(x, cls = "data.frame")
20. ├─dplyr::mutate(...)
21. └─cardx:::.restore_original_column_types(cards, data = data$variables)
22. └─cards::as_card(...)
23. └─cards::check_ard_structure(...)
24. └─cards:::.message_or_error(...)
25. └─cli::cli_abort(msg, call = call, .envir = envir)
26. └─rlang::abort(...)
── Error ('test-ard_tabulate.survey.design.R:1375:3'): ard_tabulate.survey.design() works with all NA fct variables ──
Error in `ard_tabulate(survey::svydesign(~1, data = dplyr::tibble(fct = factor(c(NA, NA), levels = c("no", "yes")), lgl = c(NA, NA)), weights = ~1), variables = fct)`: The following columns are not present: "warning" and "error".
Backtrace:
▆
1. ├─testthat::expect_silent(...) at test-ard_tabulate.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_tabulate(...)
10. └─cardx:::ard_tabulate.survey.design(...)
11. ├─cards::tidy_ard_row_order(...)
12. │ └─dplyr::select(x, all_ard_groups(c("names", "levels")))
13. ├─cards::tidy_ard_column_order(...)
14. │ ├─dplyr::pull(...)
15. │ ├─dplyr::arrange(...)
16. │ ├─base::data.frame(colname = names(dplyr::select(x, all_ard_groups())))
17. │ └─dplyr::select(x, all_ard_groups())
18. ├─cards::as_card(...)
19. │ └─cards:::check_class(x, cls = "data.frame")
20. ├─dplyr::mutate(...)
21. └─cardx:::.restore_original_column_types(cards, data = data$variables)
22. └─cards::as_card(...)
23. └─cards::check_ard_structure(...)
24. └─cards:::.message_or_error(...)
25. └─cli::cli_abort(msg, call = call, .envir = envir)
26. └─rlang::abort(...)
── Failure ('test-ard_tabulate_max.R:191:3'): ard_tabulate_max() works with pre-ordered factor variables ──
Expected `res` to equal `dplyr::filter(res3, variable == "AESEV")`.
Differences:
`attr(actual, 'args')$variables`: "AESEV"
`attr(expected, 'args')$variables`: "SEX"
── Error ('test-ard_tabulate_max.R:237:3'): ard_tabulate_max() works without any variables ──
Error in `ard_tabulate_max(data = cards::ADAE, variables = starts_with("xxxx"), id = USUBJID, by = c(TRTA, AESEV))`: The following columns are not present: "variable", "stat_name", "stat_label", "stat", "fmt_fun", "warning", and "error".
Backtrace:
▆
1. └─cardx::ard_tabulate_max(...)
2. └─cards::as_card(dplyr::tibble())
3. └─cards::check_ard_structure(...)
4. └─cards:::.message_or_error(...)
5. └─cli::cli_abort(msg, call = call, .envir = envir)
6. └─rlang::abort(...)
── Error ('test-ard_total_n.survey.design.R:4:3'): ard_total_n.survey.design() works ──
Error in `ard_total_n(survey::svydesign(~1, data = as.data.frame(Titanic), weights = ~Freq))`: The following columns are not present: "warning" and "error".
Backtrace:
▆
1. ├─cards::ard_total_n(...)
2. └─cardx:::ard_total_n.survey.design(survey::svydesign(~1, data = as.data.frame(Titanic), weights = ~Freq))
3. ├─dplyr::select(...)
4. ├─dplyr::mutate(...)
5. ├─cards::ard_tabulate_value(...)
6. └─cardx:::ard_tabulate_value.survey.design(...)
7. ├─dplyr::mutate(...)
8. ├─dplyr::filter(...)
9. ├─cards::ard_tabulate(...)
10. └─cardx:::ard_tabulate.survey.design(...)
11. ├─cards::tidy_ard_row_order(...)
12. │ └─dplyr::select(x, all_ard_groups(c("names", "levels")))
13. ├─cards::tidy_ard_column_order(...)
14. │ ├─dplyr::pull(...)
15. │ ├─dplyr::arrange(...)
16. │ ├─base::data.frame(colname = names(dplyr::select(x, all_ard_groups())))
17. │ └─dplyr::select(x, all_ard_groups())
18. ├─cards::as_card(...)
19. │ └─cards:::check_class(x, cls = "data.frame")
20. ├─dplyr::mutate(...)
21. └─cardx:::.restore_original_column_types(cards, data = data$variables)
22. └─cards::as_card(...)
23. └─cards::check_ard_structure(...)
24. └─cards:::.message_or_error(...)
25. └─cli::cli_abort(msg, call = call, .envir = envir)
26. └─rlang::abort(...)
── Error ('test-ard_total_n.survey.design.R:11:3'): ard_total_n.survey.design() follows ard structure ──
Error in `cards::check_ard_structure(ard_total_n(survey::svydesign(~1, data = as.data.frame(Titanic), weights = ~Freq)), method = FALSE)`: The following columns are not present: "warning" and "error".
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_tabulate_value(...)
15. └─cardx:::ard_tabulate_value.survey.design(...)
16. ├─dplyr::mutate(...)
17. ├─dplyr::filter(...)
18. ├─cards::ard_tabulate(...)
19. └─cardx:::ard_tabulate.survey.design(...)
20. ├─cards::tidy_ard_row_order(...)
21. │ └─dplyr::select(x, all_ard_groups(c("names", "levels")))
22. ├─cards::tidy_ard_column_order(...)
23. │ ├─dplyr::pull(...)
24. │ ├─dplyr::arrange(...)
25. │ ├─base::data.frame(colname = names(dplyr::select(x, all_ard_groups())))
26. │ └─dplyr::select(x, all_ard_groups())
27. ├─cards::as_card(...)
28. │ └─cards:::check_class(x, cls = "data.frame")
29. ├─dplyr::mutate(...)
30. └─cardx:::.restore_original_column_types(cards, data = data$variables)
31. └─cards::as_card(...)
32. └─cards::check_ard_structure(...)
33. └─cards:::.message_or_error(...)
34. └─cli::cli_abort(msg, call = call, .envir = envir)
35. └─rlang::abort(...)
── Error ('test-ard_total_n.survey.design.R:29:3'): ard_total_n.survey.design() using `update()` ──
Error in `ard_total_n(subset(survey::svydesign(id = ~1, weights = ~poids, data = database), !is.na(INDIV_GENDER)))`: The following columns are not present: "warning" and "error".
Backtrace:
▆
1. ├─testthat::expect_silent(...) at test-ard_total_n.survey.design.R:29: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_total_n(...)
10. └─cardx:::ard_total_n.survey.design(...)
11. ├─dplyr::select(...)
12. ├─dplyr::mutate(...)
13. ├─cards::ard_tabulate_value(...)
14. └─cardx:::ard_tabulate_value.survey.design(...)
15. ├─dplyr::mutate(...)
16. ├─dplyr::filter(...)
17. ├─cards::ard_tabulate(...)
18. └─cardx:::ard_tabulate.survey.design(...)
19. ├─cards::tidy_ard_row_order(...)
20. │ └─dplyr::select(x, all_ard_groups(c("names", "levels")))
21. ├─cards::tidy_ard_column_order(...)
22. │ ├─dplyr::pull(...)
23. │ ├─dplyr::arrange(...)
24. │ ├─base::data.frame(colname = names(dplyr::select(x, all_ard_groups())))
25. │ └─dplyr::select(x, all_ard_groups())
26. ├─cards::as_card(...)
27. │ └─cards:::check_class(x, cls = "data.frame")
28. ├─dplyr::mutate(...)
29. └─cardx:::.restore_original_column_types(cards, data = data$variables)
30. └─cards::as_card(...)
31. └─cards::check_ard_structure(...)
32. └─cards:::.message_or_error(...)
33. └─cli::cli_abort(msg, call = call, .envir = envir)
34. └─rlang::abort(...)
── Failure ('test-ard_tabulate_value.survey.design.R:11:3'): ard_tabulate_value.survey.design() works ──
Expected `... <- NULL` not to throw any errors.
Actually got a <rlang_error> with message:
The following columns are not present: "warning" and "error".
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-ard_tabulate_value.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_tabulate_value(...)
8. └─cardx:::ard_tabulate_value.survey.design(...)
9. ├─dplyr::mutate(...)
10. ├─dplyr::filter(...)
11. ├─cards::ard_tabulate(...)
12. └─cardx:::ard_tabulate.survey.design(...)
13. ├─cards::tidy_ard_row_order(...)
14. │ └─dplyr::select(x, all_ard_groups(c("names", "levels")))
15. ├─cards::tidy_ard_column_order(...)
16. │ ├─dplyr::pull(...)
17. │ ├─dplyr::arrange(...)
18. │ ├─base::data.frame(colname = names(dplyr::select(x, all_ard_groups())))
19. │ └─dplyr::select(x, all_ard_groups())
20. ├─cards::as_card(...)
21. │ └─cards:::check_class(x, cls = "data.frame")
22. ├─dplyr::mutate(...)
23. └─cardx:::.restore_original_column_types(cards, data = data$variables)
24. └─cards::as_card(...)
25. └─cards::check_ard_structure(...)
26. └─cards:::.message_or_error(...)
27. └─cli::cli_abort(msg, call = call, .envir = envir)
28. └─rlang::abort(...)
── Error ('test-ard_tabulate_value.survey.design.R:22:3'): ard_tabulate_value.survey.design() works ──
<objectNotFoundError/error/condition>
Error in `eval(code, test_env)`: object 'ard_dichotomous_row' not found
Backtrace:
▆
1. ├─testthat::expect_invisible(...) at test-ard_tabulate_value.survey.design.R:22:3
2. │ └─base::withVisible(call)
3. └─cards::check_ard_structure(ard_dichotomous_row, method = FALSE)
── Failure ('test-ard_tabulate_value.survey.design.R:630:3'): ard_dichotomous.survey.design() works with various input types ──
Expected `... <- NULL` not to throw any errors.
Actually got a <rlang_error> with message:
The following columns are not present: "warning" and "error".
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-ard_tabulate_value.survey.design.R:630: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_tabulate_value(...)
8. └─cardx:::ard_tabulate_value.survey.design(...)
9. ├─dplyr::mutate(...)
10. ├─dplyr::filter(...)
11. ├─cards::ard_tabulate(...)
12. └─cardx:::ard_tabulate.survey.design(...)
13. ├─cards::tidy_ard_row_order(...)
14. │ └─dplyr::select(x, all_ard_groups(c("names", "levels")))
15. ├─cards::tidy_ard_column_order(...)
16. │ ├─dplyr::pull(...)
17. │ ├─dplyr::arrange(...)
18. │ ├─base::data.frame(colname = names(dplyr::select(x, all_ard_groups())))
19. │ └─dplyr::select(x, all_ard_groups())
20. ├─cards::as_card(...)
21. │ └─cards:::check_class(x, cls = "data.frame")
22. ├─dplyr::mutate(...)
23. └─cardx:::.restore_original_column_types(cards, data = data$variables)
24. └─cards::as_card(...)
25. └─cards::check_ard_structure(...)
26. └─cards:::.message_or_error(...)
27. └─cli::cli_abort(msg, call = call, .envir = envir)
28. └─rlang::abort(...)
── Error ('test-ard_tabulate_value.survey.design.R:641:3'): ard_dichotomous.survey.design() works with various input types ──
<objectNotFoundError/error/condition>
Error in `eval(code, test_env)`: object 'ard_dichotomous_row' not found
Backtrace:
▆
1. ├─testthat::expect_invisible(...) at test-ard_tabulate_value.survey.design.R:641:3
2. │ └─base::withVisible(call)
3. └─cards::check_ard_structure(ard_dichotomous_row, method = FALSE)
── Error ('test-ard_tabulate_value.survey.design.R:790:3'): ard_tabulate_value.survey.design() follows ard structure ──
Error in `cards::check_ard_structure(ard_tabulate_value(svy_dicho, by = vs, variables = c(cyl, am), value = list(cyl = 4), denominator = "row"), method = FALSE)`: The following columns are not present: "warning" and "error".
Backtrace:
▆
1. ├─testthat::expect_silent(...) at test-ard_tabulate_value.survey.design.R:790: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_tabulate_value(...)
11. └─cardx:::ard_tabulate_value.survey.design(...)
12. ├─dplyr::mutate(...)
13. ├─dplyr::filter(...)
14. ├─cards::ard_tabulate(...)
15. └─cardx:::ard_tabulate.survey.design(...)
16. ├─cards::tidy_ard_row_order(...)
17. │ └─dplyr::select(x, all_ard_groups(c("names", "levels")))
18. ├─cards::tidy_ard_column_order(...)
19. │ ├─dplyr::pull(...)
20. │ ├─dplyr::arrange(...)
21. │ ├─base::data.frame(colname = names(dplyr::select(x, all_ard_groups())))
22. │ └─dplyr::select(x, all_ard_groups())
23. ├─cards::as_card(...)
24. │ └─cards:::check_class(x, cls = "data.frame")
25. ├─dplyr::mutate(...)
26. └─cardx:::.restore_original_column_types(cards, data = data$variables)
27. └─cards::as_card(...)
28. └─cards::check_ard_structure(...)
29. └─cards:::.message_or_error(...)
30. └─cli::cli_abort(msg, call = call, .envir = envir)
31. └─rlang::abort(...)
[ FAIL 49 | WARN 0 | SKIP 59 | PASS 327 ]
Error:
! Test failures.
Execution halted
Flavor: r-devel-linux-x86_64-fedora-clang
Version: 0.3.2
Check: tests
Result: ERROR
Running ‘testthat.R’ [219s/175s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> library(testthat)
> test_check("cardx", stop_on_warning = TRUE)
Loading required package: cardx
Starting 2 test processes.
Saving _problems/test-ard_categorical_ci.survey.design-28.R
> test-ard_categorical_ci.data.frame.R: 5 missing observations in the "am" column have been removed.
Saving _problems/test-ard_categorical_ci.data.frame-202.R
Saving _problems/test-ard_categorical_ci.data.frame-224.R
Saving _problems/test-ard_categorical_ci.data.frame-287.R
Saving _problems/test-ard_categorical_ci.data.frame-309.R
Saving _problems/test-ard_continuous_ci.survey.design-39.R
> test-ard_effectsize_hedges_g.R: For paired samples, 'repeated_measures_d()' provides more options.
> test-ard_effectsize_cohens_d.R: For paired samples, 'repeated_measures_d()' provides more options.
Saving _problems/test-ard_missing.survey.design-14.R
Saving _problems/test-ard_missing.survey.design-15.R
Saving _problems/test-ard_missing.survey.design-113.R
Saving _problems/test-ard_missing.survey.design-146.R
> test-ard_stats_oneway_test.R: Multiple parameters; naming those columns num.df and den.df.
Saving _problems/test-ard_stats_t_test_onesample-49.R
Saving _problems/test-ard_stats_wilcox_test_onesample-51.R
Saving _problems/test-ard_summary.survey.design-18.R
Saving _problems/test-ard_summary.survey.design-19.R
Saving _problems/test-ard_summary.survey.design-90.R
Saving _problems/test-ard_summary.survey.design-91.R
Saving _problems/test-ard_summary.survey.design-256.R
Saving _problems/test-ard_summary.survey.design-262.R
Saving _problems/test-ard_summary.survey.design-302.R
Saving _problems/test-ard_summary.survey.design-315.R
Saving _problems/test-ard_summary.survey.design-331.R
Saving _problems/test-ard_summary.survey.design-346.R
Saving _problems/test-ard_summary.survey.design-374.R
Saving _problems/test-ard_summary.survey.design-406.R
Saving _problems/test-ard_summary.survey.design-519.R
Saving _problems/test-ard_summary.survey.design-540.R
> test-ard_tabulate_max.R: `AESEV`: "MILD" < "MODERATE" < "SEVERE"
Saving _problems/test-ard_tabulate_max-194.R
Saving _problems/test-ard_tabulate_max-244.R
Saving _problems/test-ard_tabulate.survey.design-21.R
Saving _problems/test-ard_tabulate.survey.design-22.R
Saving _problems/test-ard_tabulate.survey.design-484.R
Saving _problems/test-ard_tabulate.survey.design-485.R
Saving _problems/test-ard_tabulate.survey.design-780.R
Saving _problems/test-ard_tabulate.survey.design-781.R
Saving _problems/test-ard_tabulate.survey.design-1071.R
Saving _problems/test-ard_tabulate.survey.design-1072.R
Saving _problems/test-ard_tabulate.survey.design-1229.R
Saving _problems/test-ard_tabulate.survey.design-1310.R
Saving _problems/test-ard_tabulate.survey.design-1325.R
Saving _problems/test-ard_tabulate.survey.design-1343.R
Saving _problems/test-ard_tabulate.survey.design-1387.R
Saving _problems/test-ard_total_n.survey.design-7.R
Saving _problems/test-ard_total_n.survey.design-15.R
Saving _problems/test-ard_total_n.survey.design-37.R
Saving _problems/test-ard_tabulate_value.survey.design-21.R
Saving _problems/test-ard_tabulate_value.survey.design-25.R
Saving _problems/test-ard_tabulate_value.survey.design-640.R
Saving _problems/test-ard_tabulate_value.survey.design-644.R
Saving _problems/test-ard_tabulate_value.survey.design-799.R
[ FAIL 49 | WARN 0 | SKIP 59 | PASS 327 ]
══ Skipped tests (59) ══════════════════════════════════════════════════════════
• On CRAN (59): 'test-ard_attributes.survey.design.R:3:1',
'test-ard_aod_wald_test.R:3:1', 'test-ard_car_vif.R:3:1',
'test-ard_car_vif.R:28:1', 'test-ard_car_anova.R:3:1',
'test-ard_car_anova.R:15:1', 'test-ard_categorical_ci.survey.design.R:6:1',
'test-ard_continuous_ci.survey.design.R:6:1',
'test-ard_continuous_ci.survey.design.R:193:1',
'test-ard_effectsize_hedges_g.R:3:1', 'test-ard_effectsize_cohens_d.R:3:1',
'test-ard_emmeans_contrast.R:3:1', 'test-ard_emmeans_contrast.R:100:1',
'test-ard_emmeans_emmeans.R:3:1', 'test-ard_emmeans_emmeans.R:93:1',
'test-ard_incidence_rate.R:7:1', 'test-ard_incidence_rate.R:43:1',
'test-ard_incidence_rate.R:66:1', 'test-ard_proportion_ci.R:62:1',
'test-ard_proportion_ci.R:112:1', 'test-ard_regression_basic.R:3:1',
'test-ard_regression.R:3:1', 'test-ard_regression.R:40:1',
'test-ard_stats_aov.R:3:1', 'test-ard_stats_kruskal_test.R:3:1',
'test-ard_stats_mantelhaen_test.R:3:1', 'test-ard_stats_mood_test.R:3:1',
'test-ard_stats_oneway_test.R:3:1', 'test-ard_stats_poisson_test.R:73:1',
'test-ard_survey_svychisq.R:3:1', 'test-ard_survey_svyranktest.R:3:1',
'test-ard_survival_survfit.R:3:1', 'test-ard_survival_survfit.R:16:1',
'test-ard_survival_survfit.R:29:1', 'test-ard_survival_survfit.R:42:1',
'test-ard_survival_survfit.R:64:1', 'test-ard_survival_survfit.R:90:1',
'test-ard_survival_survfit.R:120:1', 'test-ard_survival_survfit.R:191:1',
'test-ard_survival_survfit.R:201:1', 'test-ard_survival_survfit.R:221:1',
'test-ard_survival_survfit.R:231:1', 'test-ard_survival_survfit_diff.R:36:1',
'test-ard_tabulate_abnormal.R:5:1', 'test-ard_tabulate_abnormal.R:41:1',
'test-ard_tabulate_max.R:1:1', 'test-ard_tabulate_max.R:60:1',
'test-ard_tabulate_max.R:75:1', 'test-ard_tabulate_max.R:115:1',
'test-ard_tabulate_max.R:210:1', 'test-ard_tabulate_max.R:258:1',
'test-ard_tabulate.survey.design.R:421:1',
'test-ard_tabulate.survey.design.R:1176:1',
'test-ard_tabulate.survey.design.R:1410:1',
'test-ard_tabulate_value.survey.design.R:736:1', 'test-proportion_ci.R:3:1',
'test-proportion_ci.R:122:1', 'test-construction_helpers.R:3:1',
'test-construction_helpers.R:103:1'
══ Failed tests ════════════════════════════════════════════════════════════════
── Error ('test-ard_categorical_ci.survey.design.R:25:3'): ard_categorical_ci(variables) ──
Error in `ard_categorical_ci(dclus1, variables = starts_with("xxxxxx"))`: The following columns are not present: "variable", "stat_name", "stat_label", "stat", "fmt_fun", "warning", and "error".
Backtrace:
▆
1. ├─testthat::expect_equal(...) at test-ard_categorical_ci.survey.design.R:25:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─cardx::ard_categorical_ci(dclus1, variables = starts_with("xxxxxx"))
5. └─cardx:::ard_categorical_ci.survey.design(dclus1, variables = starts_with("xxxxxx"))
6. └─cards::as_card(dplyr::tibble())
7. └─cards::check_ard_structure(...)
8. └─cards:::.message_or_error(...)
9. └─cli::cli_abort(msg, call = call, .envir = envir)
10. └─rlang::abort(...)
── Failure ('test-ard_categorical_ci.data.frame.R:188:3'): ard_continuous_ci.data.frame(denominator='row') ──
Expected `dplyr::arrange(...)` to equal `dplyr::arrange(...)`.
Differences:
`attr(actual, 'args')` is absent
`attr(expected, 'args')` is a list
── Failure ('test-ard_categorical_ci.data.frame.R:205:3'): ard_continuous_ci.data.frame(denominator='row') ──
Expected `dplyr::arrange(...)` to equal `dplyr::arrange(...)`.
Differences:
`attr(actual, 'args')` is absent
`attr(expected, 'args')` is a list
── Failure ('test-ard_categorical_ci.data.frame.R:273:3'): ard_continuous_ci.data.frame(denominator='cell') ──
Expected `dplyr::arrange(...)` to equal `dplyr::arrange(...)`.
Differences:
`attr(actual, 'args')` is absent
`attr(expected, 'args')` is a list
── Failure ('test-ard_categorical_ci.data.frame.R:290:3'): ard_continuous_ci.data.frame(denominator='cell') ──
Expected `dplyr::arrange(...)` to equal `dplyr::arrange(...)`.
Differences:
`attr(actual, 'args')` is absent
`attr(expected, 'args')` is a list
── Error ('test-ard_continuous_ci.survey.design.R:36:3'): ard_continuous_ci(variables) ──
Error in `ard_continuous_ci(dclus1, variables = starts_with("xxxxxx"))`: The following columns are not present: "variable", "stat_name", "stat_label", "stat", "fmt_fun", "warning", and "error".
Backtrace:
▆
1. ├─testthat::expect_equal(...) at test-ard_continuous_ci.survey.design.R:36:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─cardx::ard_continuous_ci(dclus1, variables = starts_with("xxxxxx"))
5. └─cardx:::ard_continuous_ci.survey.design(dclus1, variables = starts_with("xxxxxx"))
6. └─cards::as_card(dplyr::tibble())
7. └─cards::check_ard_structure(...)
8. └─cards:::.message_or_error(...)
9. └─cli::cli_abort(msg, call = call, .envir = envir)
10. └─rlang::abort(...)
── Failure ('test-ard_missing.survey.design.R:11:3'): ard_missing.survey.design() works ──
Expected `... <- NULL` not to throw any errors.
Actually got a <rlang_error> with message:
The following columns are not present: "warning" and "error".
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(svy_titanic, variables = c(Class, Age), by = NULL)
9. ├─dplyr::mutate(...)
10. ├─cards::ard_tabulate(...)
11. └─cardx:::ard_tabulate.survey.design(...)
12. ├─cards::tidy_ard_row_order(...)
13. │ └─dplyr::select(x, all_ard_groups(c("names", "levels")))
14. ├─cards::tidy_ard_column_order(...)
15. │ ├─dplyr::pull(...)
16. │ ├─dplyr::arrange(...)
17. │ ├─base::data.frame(colname = names(dplyr::select(x, all_ard_groups())))
18. │ └─dplyr::select(x, all_ard_groups())
19. ├─cards::as_card(...)
20. │ └─cards:::check_class(x, cls = "data.frame")
21. ├─dplyr::mutate(...)
22. └─cardx:::.restore_original_column_types(cards, data = data$variables)
23. └─cards::as_card(...)
24. └─cards::check_ard_structure(...)
25. └─cards:::.message_or_error(...)
26. └─cli::cli_abort(msg, call = call, .envir = envir)
27. └─rlang::abort(...)
── Error ('test-ard_missing.survey.design.R:15:3'): ard_missing.survey.design() works ──
<objectNotFoundError/error/condition>
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 `cards::check_ard_structure(ard_missing(svy_titanic, variables = c(Class, Age), by = NULL), method = FALSE)`: The following columns are not present: "warning" and "error".
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_tabulate(...)
14. └─cardx:::ard_tabulate.survey.design(...)
15. ├─cards::tidy_ard_row_order(...)
16. │ └─dplyr::select(x, all_ard_groups(c("names", "levels")))
17. ├─cards::tidy_ard_column_order(...)
18. │ ├─dplyr::pull(...)
19. │ ├─dplyr::arrange(...)
20. │ ├─base::data.frame(colname = names(dplyr::select(x, all_ard_groups())))
21. │ └─dplyr::select(x, all_ard_groups())
22. ├─cards::as_card(...)
23. │ └─cards:::check_class(x, cls = "data.frame")
24. ├─dplyr::mutate(...)
25. └─cardx:::.restore_original_column_types(cards, data = data$variables)
26. └─cards::as_card(...)
27. └─cards::check_ard_structure(...)
28. └─cards:::.message_or_error(...)
29. └─cli::cli_abort(msg, call = call, .envir = envir)
30. └─rlang::abort(...)
── Error ('test-ard_missing.survey.design.R:118:3'): ard_missing.survey.design() works on design columns ──
Error in `ard_missing(dplyr::tribble(~region, ~year, ~weights, 3, 1972, 0.663196271930943, 3, 1972, 0.917370028585327, 3, 1972, 0.897412512251031, 3, 1972, 1.06634082743438, 3, 1972, 0.94432371066466, 3, 1972, 0.526887241987567, 3, 1972, 0.526887241987567, 3, 1972, 0.546578869586901, 7, 1972, 0.283198307048893, 7, 1972, 0.494322145606406) %>% survey::svydesign(data = ., ids = ~region, strata = ~year, weights = ~weights, nest = TRUE), variables = weights)`: The following columns are not present: "warning" and "error".
Backtrace:
▆
1. ├─testthat::expect_equal(...) at test-ard_missing.survey.design.R:118:3
2. │ └─testthat::quasi_label(enquo(object), label)
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_tabulate(...)
13. └─cardx:::ard_tabulate.survey.design(...)
14. ├─cards::tidy_ard_row_order(...)
15. │ └─dplyr::select(x, all_ard_groups(c("names", "levels")))
16. ├─cards::tidy_ard_column_order(...)
17. │ ├─dplyr::pull(...)
18. │ ├─dplyr::arrange(...)
19. │ ├─base::data.frame(colname = names(dplyr::select(x, all_ard_groups())))
20. │ └─dplyr::select(x, all_ard_groups())
21. ├─cards::as_card(...)
22. │ └─cards:::check_class(x, cls = "data.frame")
23. ├─dplyr::mutate(...)
24. └─cardx:::.restore_original_column_types(cards, data = data$variables)
25. └─cards::as_card(...)
26. └─cards::check_ard_structure(...)
27. └─cards:::.message_or_error(...)
28. └─cli::cli_abort(msg, call = call, .envir = envir)
29. └─rlang::abort(...)
── Error ('test-ard_stats_t_test_onesample.R:43:3'): ard_stats_t_test_onesample() works ──
Error in `ard_stats_t_test_onesample(cards::ADSL, variables = character(0))`: The following columns are not present: "variable", "stat_name", "stat_label", "stat", "fmt_fun", "warning", and "error".
Backtrace:
▆
1. ├─testthat::expect_equal(...) at test-ard_stats_t_test_onesample.R:43:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. └─cardx::ard_stats_t_test_onesample(cards::ADSL, variables = character(0))
5. └─cards::as_card(dplyr::tibble())
6. └─cards::check_ard_structure(...)
7. └─cards:::.message_or_error(...)
8. └─cli::cli_abort(msg, call = call, .envir = envir)
9. └─rlang::abort(...)
── Error ('test-ard_stats_wilcox_test_onesample.R:45:3'): ard_stats_wilcox_test_onesample() works ──
Error in `ard_stats_wilcox_test_onesample(cards::ADSL, variables = character(0))`: The following columns are not present: "variable", "stat_name", "stat_label", "stat", "fmt_fun", "warning", and "error".
Backtrace:
▆
1. ├─testthat::expect_equal(...) at test-ard_stats_wilcox_test_onesample.R:45:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. └─cardx::ard_stats_wilcox_test_onesample(cards::ADSL, variables = character(0))
5. └─cards::as_card(dplyr::tibble())
6. └─cards::check_ard_structure(...)
7. └─cards:::.message_or_error(...)
8. └─cli::cli_abort(msg, call = call, .envir = envir)
9. └─rlang::abort(...)
── Failure ('test-ard_summary.survey.design.R:7:3'): unstratified ard_summary.survey.design() works ──
Expected `... <- NULL` not to throw any errors.
Actually got a <rlang_error> with message:
The following columns are not present: "stat_label" and "fmt_fun".
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-ard_summary.survey.design.R:7: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_summary(...)
8. └─cardx:::ard_summary.survey.design(...)
9. └─cardx:::.restore_original_column_types(...)
10. └─cards::as_card(...)
11. └─cards::check_ard_structure(...)
12. └─cards:::.message_or_error(...)
13. └─cli::cli_abort(msg, call = call, .envir = envir)
14. └─rlang::abort(...)
── Error ('test-ard_summary.survey.design.R:19:3'): unstratified ard_summary.survey.design() works ──
<objectNotFoundError/error/condition>
Error in `eval(code, test_env)`: object 'ard_uni_svy_cont' not found
Backtrace:
▆
1. ├─testthat::expect_invisible(cards::check_ard_structure(ard_uni_svy_cont)) at test-ard_summary.survey.design.R:19:3
2. │ └─base::withVisible(call)
3. └─cards::check_ard_structure(ard_uni_svy_cont)
── Failure ('test-ard_summary.survey.design.R:78:3'): stratified ard_summary.survey.design() works ──
Expected `... <- NULL` not to throw any errors.
Actually got a <rlang_error> with message:
The following columns are not present: "stat_label" and "fmt_fun".
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-ard_summary.survey.design.R:78: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_summary(...)
8. └─cardx:::ard_summary.survey.design(...)
9. └─cardx:::.restore_original_column_types(...)
10. └─cards::as_card(...)
11. └─cards::check_ard_structure(...)
12. └─cards:::.message_or_error(...)
13. └─cli::cli_abort(msg, call = call, .envir = envir)
14. └─rlang::abort(...)
── Error ('test-ard_summary.survey.design.R:91:3'): stratified ard_summary.survey.design() works ──
<objectNotFoundError/error/condition>
Error in `eval(code, test_env)`: object 'ard_svy_cont' not found
Backtrace:
▆
1. ├─testthat::expect_invisible(cards::check_ard_structure(ard_svy_cont)) at test-ard_summary.survey.design.R:91:3
2. │ └─base::withVisible(call)
3. └─cards::check_ard_structure(ard_svy_cont)
── Failure ('test-ard_summary.survey.design.R:245:3'): ard_summary.survey.design() NA handling ──
Expected `... <- NULL` not to throw any errors.
Actually got a <rlang_error> with message:
The following columns are not present: "stat_label" and "fmt_fun".
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-ard_summary.survey.design.R:245: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_summary(...)
8. └─cardx:::ard_summary.survey.design(...)
9. └─cardx:::.restore_original_column_types(...)
10. └─cards::as_card(...)
11. └─cards::check_ard_structure(...)
12. └─cards:::.message_or_error(...)
13. └─cli::cli_abort(msg, call = call, .envir = envir)
14. └─rlang::abort(...)
── Error ('test-ard_summary.survey.design.R:258:3'): ard_summary.survey.design() NA handling ──
<objectNotFoundError/error/condition>
Error in `eval(code, test_env)`: object 'ard_uni_NA_svy_cont' not found
Backtrace:
▆
1. ├─testthat::expect_true(...) at test-ard_summary.survey.design.R:258:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. └─cardx:::map_lgl(...)
5. └─cardx:::.rlang_purrr_map_mold(.x, .f, logical(1), ...)
6. └─base::vapply(.x, .f, .mold, ..., USE.NAMES = FALSE)
── Failure ('test-ard_summary.survey.design.R:292:3'): ard_summary.survey.design() error handling ──
Expected `ard_summary(...)` not to throw any errors.
Actually got a <rlang_error> with message:
The following columns are not present: "stat_label" and "fmt_fun".
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-ard_summary.survey.design.R:292: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_summary(...)
8. └─cardx:::ard_summary.survey.design(...)
9. └─cardx:::.restore_original_column_types(...)
10. └─cards::as_card(...)
11. └─cards::check_ard_structure(...)
12. └─cards:::.message_or_error(...)
13. └─cli::cli_abort(msg, call = call, .envir = envir)
14. └─rlang::abort(...)
── Failure ('test-ard_summary.survey.design.R:304:3'): ard_summary.survey.design() error handling ──
Expected `ard_summary(...)` not to throw any errors.
Actually got a <rlang_error> with message:
The following columns are not present: "stat_label" and "fmt_fun".
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-ard_summary.survey.design.R:304: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_summary(...)
8. └─cardx:::ard_summary.survey.design(...)
9. └─cardx:::.restore_original_column_types(...)
10. └─cards::as_card(...)
11. └─cards::check_ard_structure(...)
12. └─cards:::.message_or_error(...)
13. └─cli::cli_abort(msg, call = call, .envir = envir)
14. └─rlang::abort(...)
── Error ('test-ard_summary.survey.design.R:322:3'): ard_summary.survey.design(fmt_fun) ──
Error in `ard_summary(dclus1, variables = c(api99, api00), statistic = ~c("mean", "median", "min", "max"), fmt_fun = list(api00 = list(mean = 2, median = "xx.xx", min = as.character)))`: The following columns are not present: "stat_label" and "fmt_fun".
Backtrace:
▆
1. ├─base::as.data.frame(...)
2. ├─dplyr::select(...)
3. ├─cards::ard_summary(...)
4. └─cardx:::ard_summary.survey.design(...)
5. └─cardx:::.restore_original_column_types(...)
6. └─cards::as_card(...)
7. └─cards::check_ard_structure(...)
8. └─cards:::.message_or_error(...)
9. └─cli::cli_abort(msg, call = call, .envir = envir)
10. └─rlang::abort(...)
── Error ('test-ard_summary.survey.design.R:338:3'): ard_summary.survey.design(stat_label) ──
Error in `ard_summary(dclus1, variables = c(api00, api99), statistic = ~c("mean", "median", "min", "max"), stat_label = list(api00 = list(mean = "MeAn", median = "MEDian", min = "MINimum")))`: The following columns are not present: "stat_label" and "fmt_fun".
Backtrace:
▆
1. ├─base::as.data.frame(...)
2. ├─cards::ard_summary(...)
3. └─cardx:::ard_summary.survey.design(...)
4. └─cardx:::.restore_original_column_types(...)
5. └─cards::as_card(...)
6. └─cards::check_ard_structure(...)
7. └─cards:::.message_or_error(...)
8. └─cli::cli_abort(msg, call = call, .envir = envir)
9. └─rlang::abort(...)
── Error ('test-ard_summary.survey.design.R:363:3'): ard_summary.survey.design(by) unobserved levels/combinations ──
Error in `ard_summary(dclus1, variables = api00, by = both, statistic = ~c("mean", "median", "min", "max"))`: The following columns are not present: "stat_label" and "fmt_fun".
Backtrace:
▆
1. ├─testthat::expect_setequal(...) at test-ard_summary.survey.design.R:363:3
2. │ └─testthat::quasi_label(enquo(expected))
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─base::unique(...)
5. ├─cardx:::map_chr(...)
6. │ └─cardx:::.rlang_purrr_map_mold(.x, .f, character(1), ...)
7. │ └─base::vapply(.x, .f, .mold, ..., USE.NAMES = FALSE)
8. ├─dplyr::pull(...)
9. ├─cards::ard_summary(...)
10. └─cardx:::ard_summary.survey.design(...)
11. └─cardx:::.restore_original_column_types(...)
12. └─cards::as_card(...)
13. └─cards::check_ard_structure(...)
14. └─cards:::.message_or_error(...)
15. └─cli::cli_abort(msg, call = call, .envir = envir)
16. └─rlang::abort(...)
── Error ('test-ard_summary.survey.design.R:403:3'): ard_summary.survey.design() works when using generic names ──
Error in `ard_summary(dclus1, variables = c(cds, stype), by = dnum)`: The following columns are not present: "stat_label" and "fmt_fun".
Backtrace:
▆
1. ├─testthat::expect_equal(...) at test-ard_summary.survey.design.R:403:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─dplyr::select(...)
5. ├─cards::ard_summary(dclus1, variables = c(cds, stype), by = dnum)
6. └─cardx:::ard_summary.survey.design(dclus1, variables = c(cds, stype), by = dnum)
7. └─cardx:::.restore_original_column_types(...)
8. └─cards::as_card(...)
9. └─cards::check_ard_structure(...)
10. └─cards:::.message_or_error(...)
11. └─cli::cli_abort(msg, call = call, .envir = envir)
12. └─rlang::abort(...)
── Error ('test-ard_summary.survey.design.R:516:3'): ard_summary.survey.design() follows ard structure ──
Error in `cards::check_ard_structure(ard_summary(dclus1, variables = c(cds, stype), by = snum), method = FALSE)`: The following columns are not present: "stat_label" and "fmt_fun".
Backtrace:
▆
1. ├─testthat::expect_silent(...) at test-ard_summary.survey.design.R:516: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_summary(dclus1, variables = c(cds, stype), by = snum)
11. └─cardx:::ard_summary.survey.design(...)
12. └─cardx:::.restore_original_column_types(...)
13. └─cards::as_card(...)
14. └─cards::check_ard_structure(...)
15. └─cards:::.message_or_error(...)
16. └─cli::cli_abort(msg, call = call, .envir = envir)
17. └─rlang::abort(...)
── Error ('test-ard_summary.survey.design.R:533:3'): ard_summary.survey.design() original types are retained ──
Error in `ard_summary(data = dclus1, variables = c(api00, api99), by = c(stype, sch.wide_int, sch.wide_dbl))`: The following columns are not present: "stat_label" and "fmt_fun".
Backtrace:
▆
1. ├─testthat::expect_silent(...) at test-ard_summary.survey.design.R:533: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_summary(...)
10. └─cardx:::ard_summary.survey.design(...)
11. └─cardx:::.restore_original_column_types(...)
12. └─cards::as_card(...)
13. └─cards::check_ard_structure(...)
14. └─cards:::.message_or_error(...)
15. └─cli::cli_abort(msg, call = call, .envir = envir)
16. └─rlang::abort(...)
── Failure ('test-ard_tabulate_max.R:191:3'): ard_tabulate_max() works with pre-ordered factor variables ──
Expected `res` to equal `dplyr::filter(res3, variable == "AESEV")`.
Differences:
`attr(actual, 'args')$variables`: "AESEV"
`attr(expected, 'args')$variables`: "SEX"
── Error ('test-ard_tabulate_max.R:237:3'): ard_tabulate_max() works without any variables ──
Error in `ard_tabulate_max(data = cards::ADAE, variables = starts_with("xxxx"), id = USUBJID, by = c(TRTA, AESEV))`: The following columns are not present: "variable", "stat_name", "stat_label", "stat", "fmt_fun", "warning", and "error".
Backtrace:
▆
1. └─cardx::ard_tabulate_max(...)
2. └─cards::as_card(dplyr::tibble())
3. └─cards::check_ard_structure(...)
4. └─cards:::.message_or_error(...)
5. └─cli::cli_abort(msg, call = call, .envir = envir)
6. └─rlang::abort(...)
── Failure ('test-ard_tabulate.survey.design.R:12:3'): ard_tabulate.survey.design() works ──
Expected `... <- NULL` not to throw any errors.
Actually got a <rlang_error> with message:
The following columns are not present: "warning" and "error".
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-ard_tabulate.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_tabulate(...)
8. └─cardx:::ard_tabulate.survey.design(svy_titanic, variables = c(Class, Age), by = Survived, denominator = "row")
9. ├─cards::tidy_ard_row_order(...)
10. │ └─dplyr::select(x, all_ard_groups(c("names", "levels")))
11. ├─cards::tidy_ard_column_order(...)
12. │ ├─dplyr::pull(...)
13. │ ├─dplyr::arrange(...)
14. │ ├─base::data.frame(colname = names(dplyr::select(x, all_ard_groups())))
15. │ └─dplyr::select(x, all_ard_groups())
16. ├─cards::as_card(...)
17. │ └─cards:::check_class(x, cls = "data.frame")
18. ├─dplyr::mutate(...)
19. └─cardx:::.restore_original_column_types(cards, data = data$variables)
20. └─cards::as_card(...)
21. └─cards::check_ard_structure(...)
22. └─cards:::.message_or_error(...)
23. └─cli::cli_abort(msg, call = call, .envir = envir)
24. └─rlang::abort(...)
── Error ('test-ard_tabulate.survey.design.R:22:3'): ard_tabulate.survey.design() works ──
<objectNotFoundError/error/condition>
Error in `eval(code, test_env)`: object 'ard_svy_cat_row' not found
Backtrace:
▆
1. ├─testthat::expect_invisible(...) at test-ard_tabulate.survey.design.R:22:3
2. │ └─base::withVisible(call)
3. └─cards::check_ard_structure(ard_svy_cat_row, method = FALSE)
── Failure ('test-ard_tabulate.survey.design.R:475:3'): ard_tabulate.survey.design() works for unobserved factor levels ──
Expected `... <- NULL` not to throw any errors.
Actually got a <rlang_error> with message:
The following columns are not present: "warning" and "error".
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-ard_tabulate.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_tabulate(...)
8. └─cardx:::ard_tabulate.survey.design(svy_titanic, variables = c(Class, Age), by = Survived, denominator = "row")
9. ├─cards::tidy_ard_row_order(...)
10. │ └─dplyr::select(x, all_ard_groups(c("names", "levels")))
11. ├─cards::tidy_ard_column_order(...)
12. │ ├─dplyr::pull(...)
13. │ ├─dplyr::arrange(...)
14. │ ├─base::data.frame(colname = names(dplyr::select(x, all_ard_groups())))
15. │ └─dplyr::select(x, all_ard_groups())
16. ├─cards::as_card(...)
17. │ └─cards:::check_class(x, cls = "data.frame")
18. ├─dplyr::mutate(...)
19. └─cardx:::.restore_original_column_types(cards, data = data$variables)
20. └─cards::as_card(...)
21. └─cards::check_ard_structure(...)
22. └─cards:::.message_or_error(...)
23. └─cli::cli_abort(msg, call = call, .envir = envir)
24. └─rlang::abort(...)
── Error ('test-ard_tabulate.survey.design.R:485:3'): ard_tabulate.survey.design() works for unobserved factor levels ──
<objectNotFoundError/error/condition>
Error in `eval(code, test_env)`: object 'ard_svy_cat_row' not found
Backtrace:
▆
1. ├─testthat::expect_invisible(...) at test-ard_tabulate.survey.design.R:485:3
2. │ └─base::withVisible(call)
3. └─cards::check_ard_structure(ard_svy_cat_row, method = FALSE)
── Failure ('test-ard_tabulate.survey.design.R:771:3'): ard_tabulate.survey.design() works for unobserved logical levels ──
Expected `... <- NULL` not to throw any errors.
Actually got a <rlang_error> with message:
The following columns are not present: "warning" and "error".
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-ard_tabulate.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_tabulate(...)
8. └─cardx:::ard_tabulate.survey.design(svy_titanic, variables = c(Class, Age), by = Survived, denominator = "row")
9. ├─cards::tidy_ard_row_order(...)
10. │ └─dplyr::select(x, all_ard_groups(c("names", "levels")))
11. ├─cards::tidy_ard_column_order(...)
12. │ ├─dplyr::pull(...)
13. │ ├─dplyr::arrange(...)
14. │ ├─base::data.frame(colname = names(dplyr::select(x, all_ard_groups())))
15. │ └─dplyr::select(x, all_ard_groups())
16. ├─cards::as_card(...)
17. │ └─cards:::check_class(x, cls = "data.frame")
18. ├─dplyr::mutate(...)
19. └─cardx:::.restore_original_column_types(cards, data = data$variables)
20. └─cards::as_card(...)
21. └─cards::check_ard_structure(...)
22. └─cards:::.message_or_error(...)
23. └─cli::cli_abort(msg, call = call, .envir = envir)
24. └─rlang::abort(...)
── Error ('test-ard_tabulate.survey.design.R:781:3'): ard_tabulate.survey.design() works for unobserved logical levels ──
<objectNotFoundError/error/condition>
Error in `eval(code, test_env)`: object 'ard_svy_cat_row' not found
Backtrace:
▆
1. ├─testthat::expect_invisible(...) at test-ard_tabulate.survey.design.R:781:3
2. │ └─base::withVisible(call)
3. └─cards::check_ard_structure(ard_svy_cat_row, method = FALSE)
── Failure ('test-ard_tabulate.survey.design.R:1062:3'): ard_tabulate.survey.design() works with variables with only 1 level ──
Expected `... <- NULL` not to throw any errors.
Actually got a <rlang_error> with message:
The following columns are not present: "warning" and "error".
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-ard_tabulate.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_tabulate(...)
8. └─cardx:::ard_tabulate.survey.design(svy_titanic, variables = c(Class, Age), by = Survived, denominator = "row")
9. ├─cards::tidy_ard_row_order(...)
10. │ └─dplyr::select(x, all_ard_groups(c("names", "levels")))
11. ├─cards::tidy_ard_column_order(...)
12. │ ├─dplyr::pull(...)
13. │ ├─dplyr::arrange(...)
14. │ ├─base::data.frame(colname = names(dplyr::select(x, all_ard_groups())))
15. │ └─dplyr::select(x, all_ard_groups())
16. ├─cards::as_card(...)
17. │ └─cards:::check_class(x, cls = "data.frame")
18. ├─dplyr::mutate(...)
19. └─cardx:::.restore_original_column_types(cards, data = data$variables)
20. └─cards::as_card(...)
21. └─cards::check_ard_structure(...)
22. └─cards:::.message_or_error(...)
23. └─cli::cli_abort(msg, call = call, .envir = envir)
24. └─rlang::abort(...)
── Error ('test-ard_tabulate.survey.design.R:1072:3'): ard_tabulate.survey.design() works with variables with only 1 level ──
<objectNotFoundError/error/condition>
Error in `eval(code, test_env)`: object 'ard_svy_cat_row' not found
Backtrace:
▆
1. ├─testthat::expect_invisible(...) at test-ard_tabulate.survey.design.R:1072:3
2. │ └─base::withVisible(call)
3. └─cards::check_ard_structure(ard_svy_cat_row, method = FALSE)
── Error ('test-ard_tabulate.survey.design.R:1226:3'): ard_tabulate.survey.design() works when using generic names ──
Error in `ard_tabulate(svy_titanic, variables = c(Class, Age), by = Survived, denominator = "row")`: The following columns are not present: "warning" and "error".
Backtrace:
▆
1. ├─testthat::expect_equal(...) at test-ard_tabulate.survey.design.R:1226:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─dplyr::select(...)
5. ├─cards::ard_tabulate(...)
6. └─cardx:::ard_tabulate.survey.design(svy_titanic, variables = c(Class, Age), by = Survived, denominator = "row")
7. ├─cards::tidy_ard_row_order(...)
8. │ └─dplyr::select(x, all_ard_groups(c("names", "levels")))
9. ├─cards::tidy_ard_column_order(...)
10. │ ├─dplyr::pull(...)
11. │ ├─dplyr::arrange(...)
12. │ ├─base::data.frame(colname = names(dplyr::select(x, all_ard_groups())))
13. │ └─dplyr::select(x, all_ard_groups())
14. ├─cards::as_card(...)
15. │ └─cards:::check_class(x, cls = "data.frame")
16. ├─dplyr::mutate(...)
17. └─cardx:::.restore_original_column_types(cards, data = data$variables)
18. └─cards::as_card(...)
19. └─cards::check_ard_structure(...)
20. └─cards:::.message_or_error(...)
21. └─cli::cli_abort(msg, call = call, .envir = envir)
22. └─rlang::abort(...)
── Error ('test-ard_tabulate.survey.design.R:1297:3'): ard_tabulate.survey.design(statistic) properly excluded unweighted stats not selected ──
Error in `ard_tabulate(svy_titanic, variables = Sex, statistic = ~c("N", "N_unweighted"))`: The following columns are not present: "warning" and "error".
Backtrace:
▆
1. ├─testthat::expect_equal(...) at test-ard_tabulate.survey.design.R:1297:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─dplyr::select(...)
5. ├─cards::ard_tabulate(...)
6. └─cardx:::ard_tabulate.survey.design(svy_titanic, variables = Sex, statistic = ~c("N", "N_unweighted"))
7. ├─cards::tidy_ard_row_order(...)
8. │ └─dplyr::select(x, all_ard_groups(c("names", "levels")))
9. ├─cards::tidy_ard_column_order(...)
10. │ ├─dplyr::pull(...)
11. │ ├─dplyr::arrange(...)
12. │ ├─base::data.frame(colname = names(dplyr::select(x, all_ard_groups())))
13. │ └─dplyr::select(x, all_ard_groups())
14. ├─cards::as_card(...)
15. │ └─cards:::check_class(x, cls = "data.frame")
16. ├─dplyr::mutate(...)
17. └─cardx:::.restore_original_column_types(cards, data = data$variables)
18. └─cards::as_card(...)
19. └─cards::check_ard_structure(...)
20. └─cards:::.message_or_error(...)
21. └─cli::cli_abort(msg, call = call, .envir = envir)
22. └─rlang::abort(...)
── Error ('test-ard_tabulate.survey.design.R:1317:3'): ard_tabulate follows ard structure ──
Error in `cards::check_ard_structure(ard_tabulate(svy_titanic, variables = c(Class, Age), by = Survived, denominator = "row"), method = FALSE)`: The following columns are not present: "warning" and "error".
Backtrace:
▆
1. ├─testthat::expect_silent(...) at test-ard_tabulate.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_tabulate(...)
11. └─cardx:::ard_tabulate.survey.design(...)
12. ├─cards::tidy_ard_row_order(...)
13. │ └─dplyr::select(x, all_ard_groups(c("names", "levels")))
14. ├─cards::tidy_ard_column_order(...)
15. │ ├─dplyr::pull(...)
16. │ ├─dplyr::arrange(...)
17. │ ├─base::data.frame(colname = names(dplyr::select(x, all_ard_groups())))
18. │ └─dplyr::select(x, all_ard_groups())
19. ├─cards::as_card(...)
20. │ └─cards:::check_class(x, cls = "data.frame")
21. ├─dplyr::mutate(...)
22. └─cardx:::.restore_original_column_types(cards, data = data$variables)
23. └─cards::as_card(...)
24. └─cards::check_ard_structure(...)
25. └─cards:::.message_or_error(...)
26. └─cli::cli_abort(msg, call = call, .envir = envir)
27. └─rlang::abort(...)
── Error ('test-ard_tabulate.survey.design.R:1340:3'): ard_tabulate.survey.design() original types are retained ──
Error in `ard_tabulate(svy_titanic, variables = c(Class, Age, Class.int, Class.dbl), by = Survived)`: The following columns are not present: "warning" and "error".
Backtrace:
▆
1. ├─testthat::expect_silent(...) at test-ard_tabulate.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_tabulate(...)
10. └─cardx:::ard_tabulate.survey.design(...)
11. ├─cards::tidy_ard_row_order(...)
12. │ └─dplyr::select(x, all_ard_groups(c("names", "levels")))
13. ├─cards::tidy_ard_column_order(...)
14. │ ├─dplyr::pull(...)
15. │ ├─dplyr::arrange(...)
16. │ ├─base::data.frame(colname = names(dplyr::select(x, all_ard_groups())))
17. │ └─dplyr::select(x, all_ard_groups())
18. ├─cards::as_card(...)
19. │ └─cards:::check_class(x, cls = "data.frame")
20. ├─dplyr::mutate(...)
21. └─cardx:::.restore_original_column_types(cards, data = data$variables)
22. └─cards::as_card(...)
23. └─cards::check_ard_structure(...)
24. └─cards:::.message_or_error(...)
25. └─cli::cli_abort(msg, call = call, .envir = envir)
26. └─rlang::abort(...)
── Error ('test-ard_tabulate.survey.design.R:1375:3'): ard_tabulate.survey.design() works with all NA fct variables ──
Error in `ard_tabulate(survey::svydesign(~1, data = dplyr::tibble(fct = factor(c(NA, NA), levels = c("no", "yes")), lgl = c(NA, NA)), weights = ~1), variables = fct)`: The following columns are not present: "warning" and "error".
Backtrace:
▆
1. ├─testthat::expect_silent(...) at test-ard_tabulate.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_tabulate(...)
10. └─cardx:::ard_tabulate.survey.design(...)
11. ├─cards::tidy_ard_row_order(...)
12. │ └─dplyr::select(x, all_ard_groups(c("names", "levels")))
13. ├─cards::tidy_ard_column_order(...)
14. │ ├─dplyr::pull(...)
15. │ ├─dplyr::arrange(...)
16. │ ├─base::data.frame(colname = names(dplyr::select(x, all_ard_groups())))
17. │ └─dplyr::select(x, all_ard_groups())
18. ├─cards::as_card(...)
19. │ └─cards:::check_class(x, cls = "data.frame")
20. ├─dplyr::mutate(...)
21. └─cardx:::.restore_original_column_types(cards, data = data$variables)
22. └─cards::as_card(...)
23. └─cards::check_ard_structure(...)
24. └─cards:::.message_or_error(...)
25. └─cli::cli_abort(msg, call = call, .envir = envir)
26. └─rlang::abort(...)
── Error ('test-ard_total_n.survey.design.R:4:3'): ard_total_n.survey.design() works ──
Error in `ard_total_n(survey::svydesign(~1, data = as.data.frame(Titanic), weights = ~Freq))`: The following columns are not present: "warning" and "error".
Backtrace:
▆
1. ├─cards::ard_total_n(...)
2. └─cardx:::ard_total_n.survey.design(survey::svydesign(~1, data = as.data.frame(Titanic), weights = ~Freq))
3. ├─dplyr::select(...)
4. ├─dplyr::mutate(...)
5. ├─cards::ard_tabulate_value(...)
6. └─cardx:::ard_tabulate_value.survey.design(...)
7. ├─dplyr::mutate(...)
8. ├─dplyr::filter(...)
9. ├─cards::ard_tabulate(...)
10. └─cardx:::ard_tabulate.survey.design(...)
11. ├─cards::tidy_ard_row_order(...)
12. │ └─dplyr::select(x, all_ard_groups(c("names", "levels")))
13. ├─cards::tidy_ard_column_order(...)
14. │ ├─dplyr::pull(...)
15. │ ├─dplyr::arrange(...)
16. │ ├─base::data.frame(colname = names(dplyr::select(x, all_ard_groups())))
17. │ └─dplyr::select(x, all_ard_groups())
18. ├─cards::as_card(...)
19. │ └─cards:::check_class(x, cls = "data.frame")
20. ├─dplyr::mutate(...)
21. └─cardx:::.restore_original_column_types(cards, data = data$variables)
22. └─cards::as_card(...)
23. └─cards::check_ard_structure(...)
24. └─cards:::.message_or_error(...)
25. └─cli::cli_abort(msg, call = call, .envir = envir)
26. └─rlang::abort(...)
── Error ('test-ard_total_n.survey.design.R:11:3'): ard_total_n.survey.design() follows ard structure ──
Error in `cards::check_ard_structure(ard_total_n(survey::svydesign(~1, data = as.data.frame(Titanic), weights = ~Freq)), method = FALSE)`: The following columns are not present: "warning" and "error".
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_tabulate_value(...)
15. └─cardx:::ard_tabulate_value.survey.design(...)
16. ├─dplyr::mutate(...)
17. ├─dplyr::filter(...)
18. ├─cards::ard_tabulate(...)
19. └─cardx:::ard_tabulate.survey.design(...)
20. ├─cards::tidy_ard_row_order(...)
21. │ └─dplyr::select(x, all_ard_groups(c("names", "levels")))
22. ├─cards::tidy_ard_column_order(...)
23. │ ├─dplyr::pull(...)
24. │ ├─dplyr::arrange(...)
25. │ ├─base::data.frame(colname = names(dplyr::select(x, all_ard_groups())))
26. │ └─dplyr::select(x, all_ard_groups())
27. ├─cards::as_card(...)
28. │ └─cards:::check_class(x, cls = "data.frame")
29. ├─dplyr::mutate(...)
30. └─cardx:::.restore_original_column_types(cards, data = data$variables)
31. └─cards::as_card(...)
32. └─cards::check_ard_structure(...)
33. └─cards:::.message_or_error(...)
34. └─cli::cli_abort(msg, call = call, .envir = envir)
35. └─rlang::abort(...)
── Error ('test-ard_total_n.survey.design.R:29:3'): ard_total_n.survey.design() using `update()` ──
Error in `ard_total_n(subset(survey::svydesign(id = ~1, weights = ~poids, data = database), !is.na(INDIV_GENDER)))`: The following columns are not present: "warning" and "error".
Backtrace:
▆
1. ├─testthat::expect_silent(...) at test-ard_total_n.survey.design.R:29: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_total_n(...)
10. └─cardx:::ard_total_n.survey.design(...)
11. ├─dplyr::select(...)
12. ├─dplyr::mutate(...)
13. ├─cards::ard_tabulate_value(...)
14. └─cardx:::ard_tabulate_value.survey.design(...)
15. ├─dplyr::mutate(...)
16. ├─dplyr::filter(...)
17. ├─cards::ard_tabulate(...)
18. └─cardx:::ard_tabulate.survey.design(...)
19. ├─cards::tidy_ard_row_order(...)
20. │ └─dplyr::select(x, all_ard_groups(c("names", "levels")))
21. ├─cards::tidy_ard_column_order(...)
22. │ ├─dplyr::pull(...)
23. │ ├─dplyr::arrange(...)
24. │ ├─base::data.frame(colname = names(dplyr::select(x, all_ard_groups())))
25. │ └─dplyr::select(x, all_ard_groups())
26. ├─cards::as_card(...)
27. │ └─cards:::check_class(x, cls = "data.frame")
28. ├─dplyr::mutate(...)
29. └─cardx:::.restore_original_column_types(cards, data = data$variables)
30. └─cards::as_card(...)
31. └─cards::check_ard_structure(...)
32. └─cards:::.message_or_error(...)
33. └─cli::cli_abort(msg, call = call, .envir = envir)
34. └─rlang::abort(...)
── Failure ('test-ard_tabulate_value.survey.design.R:11:3'): ard_tabulate_value.survey.design() works ──
Expected `... <- NULL` not to throw any errors.
Actually got a <rlang_error> with message:
The following columns are not present: "warning" and "error".
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-ard_tabulate_value.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_tabulate_value(...)
8. └─cardx:::ard_tabulate_value.survey.design(...)
9. ├─dplyr::mutate(...)
10. ├─dplyr::filter(...)
11. ├─cards::ard_tabulate(...)
12. └─cardx:::ard_tabulate.survey.design(...)
13. ├─cards::tidy_ard_row_order(...)
14. │ └─dplyr::select(x, all_ard_groups(c("names", "levels")))
15. ├─cards::tidy_ard_column_order(...)
16. │ ├─dplyr::pull(...)
17. │ ├─dplyr::arrange(...)
18. │ ├─base::data.frame(colname = names(dplyr::select(x, all_ard_groups())))
19. │ └─dplyr::select(x, all_ard_groups())
20. ├─cards::as_card(...)
21. │ └─cards:::check_class(x, cls = "data.frame")
22. ├─dplyr::mutate(...)
23. └─cardx:::.restore_original_column_types(cards, data = data$variables)
24. └─cards::as_card(...)
25. └─cards::check_ard_structure(...)
26. └─cards:::.message_or_error(...)
27. └─cli::cli_abort(msg, call = call, .envir = envir)
28. └─rlang::abort(...)
── Error ('test-ard_tabulate_value.survey.design.R:22:3'): ard_tabulate_value.survey.design() works ──
<objectNotFoundError/error/condition>
Error in `eval(code, test_env)`: object 'ard_dichotomous_row' not found
Backtrace:
▆
1. ├─testthat::expect_invisible(...) at test-ard_tabulate_value.survey.design.R:22:3
2. │ └─base::withVisible(call)
3. └─cards::check_ard_structure(ard_dichotomous_row, method = FALSE)
── Failure ('test-ard_tabulate_value.survey.design.R:630:3'): ard_dichotomous.survey.design() works with various input types ──
Expected `... <- NULL` not to throw any errors.
Actually got a <rlang_error> with message:
The following columns are not present: "warning" and "error".
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-ard_tabulate_value.survey.design.R:630: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_tabulate_value(...)
8. └─cardx:::ard_tabulate_value.survey.design(...)
9. ├─dplyr::mutate(...)
10. ├─dplyr::filter(...)
11. ├─cards::ard_tabulate(...)
12. └─cardx:::ard_tabulate.survey.design(...)
13. ├─cards::tidy_ard_row_order(...)
14. │ └─dplyr::select(x, all_ard_groups(c("names", "levels")))
15. ├─cards::tidy_ard_column_order(...)
16. │ ├─dplyr::pull(...)
17. │ ├─dplyr::arrange(...)
18. │ ├─base::data.frame(colname = names(dplyr::select(x, all_ard_groups())))
19. │ └─dplyr::select(x, all_ard_groups())
20. ├─cards::as_card(...)
21. │ └─cards:::check_class(x, cls = "data.frame")
22. ├─dplyr::mutate(...)
23. └─cardx:::.restore_original_column_types(cards, data = data$variables)
24. └─cards::as_card(...)
25. └─cards::check_ard_structure(...)
26. └─cards:::.message_or_error(...)
27. └─cli::cli_abort(msg, call = call, .envir = envir)
28. └─rlang::abort(...)
── Error ('test-ard_tabulate_value.survey.design.R:641:3'): ard_dichotomous.survey.design() works with various input types ──
<objectNotFoundError/error/condition>
Error in `eval(code, test_env)`: object 'ard_dichotomous_row' not found
Backtrace:
▆
1. ├─testthat::expect_invisible(...) at test-ard_tabulate_value.survey.design.R:641:3
2. │ └─base::withVisible(call)
3. └─cards::check_ard_structure(ard_dichotomous_row, method = FALSE)
── Error ('test-ard_tabulate_value.survey.design.R:790:3'): ard_tabulate_value.survey.design() follows ard structure ──
Error in `cards::check_ard_structure(ard_tabulate_value(svy_dicho, by = vs, variables = c(cyl, am), value = list(cyl = 4), denominator = "row"), method = FALSE)`: The following columns are not present: "warning" and "error".
Backtrace:
▆
1. ├─testthat::expect_silent(...) at test-ard_tabulate_value.survey.design.R:790: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_tabulate_value(...)
11. └─cardx:::ard_tabulate_value.survey.design(...)
12. ├─dplyr::mutate(...)
13. ├─dplyr::filter(...)
14. ├─cards::ard_tabulate(...)
15. └─cardx:::ard_tabulate.survey.design(...)
16. ├─cards::tidy_ard_row_order(...)
17. │ └─dplyr::select(x, all_ard_groups(c("names", "levels")))
18. ├─cards::tidy_ard_column_order(...)
19. │ ├─dplyr::pull(...)
20. │ ├─dplyr::arrange(...)
21. │ ├─base::data.frame(colname = names(dplyr::select(x, all_ard_groups())))
22. │ └─dplyr::select(x, all_ard_groups())
23. ├─cards::as_card(...)
24. │ └─cards:::check_class(x, cls = "data.frame")
25. ├─dplyr::mutate(...)
26. └─cardx:::.restore_original_column_types(cards, data = data$variables)
27. └─cards::as_card(...)
28. └─cards::check_ard_structure(...)
29. └─cards:::.message_or_error(...)
30. └─cli::cli_abort(msg, call = call, .envir = envir)
31. └─rlang::abort(...)
[ FAIL 49 | WARN 0 | SKIP 59 | PASS 327 ]
Error:
! Test failures.
Execution halted
Flavor: r-devel-linux-x86_64-fedora-gcc