updates

R/ard_missing.survey.design.R

@@ -20,9 +20,16 @@ ard_missing.survey.design <- function(data,
                                                          "p_miss_unweighted", "p_nonmiss_unweighted"),
                                       fmt_fn = NULL,
                                       stat_label =
-                                        everything() ~ list("N_obs", "N_miss", "N_nonmiss", "p_miss", "p_nonmiss",
-                                                            "N_obs_unweighted", "N_miss_unweighted", "N_nonmiss_unweighted",
-                                                            "p_miss_unweighted", "p_nonmiss_unweighted"),
+                                        everything() ~ list(N_obs = "Total N",
+                                                            N_miss = "N Missing",
+                                                            N_nonmiss = "N not Missing",
+                                                            p_miss = "% Missing",
+                                                            p_nonmiss = "% not Missing",
+                                                            N_obs_unweighted = "Total N (unweighted)",
+                                                            N_miss_unweighted = "N Missing (unweighted)",
+                                                            N_nonmiss_unweighted = "N not Missing (unweighted)",
+                                                            p_miss_unweighted = "% Missing (unweighted)",
+                                                            p_nonmiss_unweighted = "% not Missing (unweighted)"),
                                       ...) {
   set_cli_abort_call()
   check_dots_empty()

_pkgdown.yml

@@ -64,6 +64,8 @@ reference:
   - contents:
       - ard_continuous.survey.design
       - ard_categorical.survey.design
+      - ard_dichotomous.survey.design
+      - ard_missing.survey.design
       - ard_attributes.survey.design
       - ard_survey_svychisq
       - ard_survey_svyranktest

tests/testthat/test-ard_categorical.survey.design.R

@@ -8,7 +8,8 @@
 # - It turns out variables (both by and variables) that only have one level are problematic in some ways.
 #     I've coded around these issues, but we need thorough testing when either by or a variable has a single level.
 #     We need tests for when these variables are factor, logical, and other to ensure every case is handled properly.
-# - A trick to test survey data is to take a normal data frame, convert it to survey using equal weights. Then all the results should equal the unweighted summariess
+# - A trick to test survey data is to take a normal data frame, convert it to survey using equal weights.
+#     Then all the results should equal the unweighted summaries and we can perform expect_equal() checks against the data.frame S3 methods.
 #    dplyr::tibble(y = rep(FALSE, 15), x = rep(TRUE, 15)) |>
 #      survey::svydesign(ids = ~1, data = _, weights = ~1) |>
 #      ard_categorical(by = y)