updates

.Rbuildignore

@@ -15,6 +15,7 @@ LICENSE
 ^\.git$
 ^\.github$
 ^\.gitlab-ci\.yml$
+^codecov\.yml$
 
 # lintr
 ^\.lintr$

R/ard_svyttest.R

@@ -19,7 +19,7 @@
 #'
 #' @examplesIf cards::is_pkg_installed(c("survey", "broom"), reference_pkg = "cardx")
 #' data(api, package = "survey")
-#' dclus2 <- survey::svydesign(id = ~dnum + snum, fpc = ~fpc1 + fpc2, data = apiclus2)
+#' dclus2 <- survey::svydesign(id = ~ dnum + snum, fpc = ~ fpc1 + fpc2, data = apiclus2)
 #'
 #' ard_svyttest(dclus2, variable = enroll, by = comp.imp, conf.level = 0.9)
 ard_svyttest <- function(data, by, variable, conf.level = 0.95, ...) {
@@ -44,15 +44,16 @@ ard_svyttest <- function(data, by, variable, conf.level = 0.95, ...) {
       cards::eval_capture_conditions(
         survey::svyttest(stats::reformulate(by, response = variable), design = data, ...) %>%
           # a slightly enhanced tidier that allows us to specify the conf.level
-          {dplyr::bind_cols(
-            broom::tidy(.) |> dplyr::select(-c("conf.low", "conf.high")),
-            dplyr::tibble(!!!stats::confint(., level = conf.level) |> set_names(c("conf.low", "conf.high"))) |>
-              dplyr::mutate(conf.level = conf.level)
-          )}
+          {
+            dplyr::bind_cols(
+              broom::tidy(.) |> dplyr::select(-c("conf.low", "conf.high")),
+              dplyr::tibble(!!!stats::confint(., level = conf.level) |> set_names(c("conf.low", "conf.high"))) |>
+                dplyr::mutate(conf.level = conf.level)
+            )
+          }
       ),
     ...
   )
-
 }
 
 .format_svyttest_results <- function(by, variable, lst_tidy, ...) {
@@ -79,4 +80,3 @@ ard_svyttest <- function(data, by, variable, conf.level = 0.95, ...) {
     dplyr::mutate(stat_label = dplyr::coalesce(.data$stat_label, .data$stat_name)) |>
     cards::tidy_ard_column_order()
 }
-

codecov.yml

@@ -0,0 +1 @@
+comment: false

tests/testthat/test-ard_svyttest.R

@@ -0,0 +1,56 @@
+skip_if_not(cards::is_pkg_installed(c("survey", "broom"), reference_pkg = "cardx"))
+
+test_that("ard_svyttest() works", {
+  data(api, package = "survey")
+  dclus2 <- survey::svydesign(id = ~ dnum + snum, fpc = ~ fpc1 + fpc2, data = apiclus2)
+
+  expect_error(
+    ard_svyttest <-
+      ard_svyttest(
+        dclus2,
+        variable = enroll,
+        by = comp.imp,
+        conf.level = 0.9
+      ),
+    NA
+  )
+
+  expect_equal(
+    cards::get_ard_statistics(
+      ard_svyttest,
+      stat_name %in% c("estimate", "p.value")
+    ),
+    survey::svyttest(enroll ~ comp.imp, dclus2)[c("estimate", "p.value")],
+    ignore_attr = TRUE
+  )
+
+  expect_equal(
+    cards::get_ard_statistics(
+      ard_svyttest,
+      stat_name %in% c("conf.low", "conf.high")
+    ),
+    survey::svyttest(enroll ~ comp.imp, dclus2) |>
+      confint(level = 0.9) |>
+      as.list(),
+    ignore_attr = TRUE
+  )
+})
+
+test_that("ard_svyttest() messaging", {
+  data(api, package = "survey")
+  dclus2 <- survey::svydesign(id = ~ dnum + snum, fpc = ~ fpc1 + fpc2, data = apiclus2)
+
+  expect_error(
+    ard_svyttest <-
+      ard_svyttest(
+        dclus2,
+        variable = enroll,
+        by = stype
+      ),
+    NA
+  )
+  expect_equal(
+    ard_svyttest$error |> unique() |> unlist(),
+    "group must be binary"
+  )
+})