add test to montior ard structure. rename group 1 into "variable"

insightsengineering · Aug 23, 2024 · ae3a5b7 · ae3a5b7
1 parent 912d2e2
commit ae3a5b7
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 1 deletion.
diff --git a/R/ard_stats_poisson_test.R b/R/ard_stats_poisson_test.R
@@ -136,7 +136,7 @@ ard_stats_poisson_test <- function(data, numerator, denominator, na.rm = TRUE, b
 
   if (!is_empty(by)) {
     ret <- ret |>
-      dplyr::mutate(group1 = by)
+      dplyr::mutate(variable = by)
   }
 
   # add the stat label ---------------------------------------------------------

diff --git a/tests/testthat/test-ard_stats_poisson_test.R b/tests/testthat/test-ard_stats_poisson_test.R
@@ -78,3 +78,10 @@ test_that("ard_stats_poisson_test() errors are handled correctly", {
     error = TRUE
   )
 })
+
+test_that("ard_stats_poisson_test() follows ard structure", {
+  expect_silent(
+    ard_stats_poisson_test(cards::ADTTE, numerator = CNSR, denominator = AVAL)|>
+      cards::check_ard_structure(method = T)
+  )
+})