update

R/ard_categorical.survey.design.R

@@ -120,7 +120,7 @@ ard_categorical.survey.design <- function(data,
   # return note about column names that result in errors -----------------------
   if (any(by %in% c("variable", "variable_level"))) {
     cli::cli_abort(
-      "The {.arg by} argument cannot include variables named {.val {c('variable', 'variable_level')}}",
+      "The {.arg by} argument cannot include variables named {.val {c('variable', 'variable_level')}}.",
       call = get_cli_abort_call()
     )
   }

tests/testthat/_snaps/ard_categorical.survey.design.md

@@ -31,8 +31,8 @@
 # ard_categorical.survey.design(by) messages about protected names
 
     Code
-      ard_categorical(svy_trial, by = variable, variables = gear)
+      ard_categorical(svy_mtcars, by = variable, variables = gear)
     Condition
       Error in `ard_categorical()`:
-      ! The `by` argument cannot include variables named "variable" and "variable_level"
+      ! The `by` argument cannot include variables named "variable" and "variable_level".
 

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

@@ -1175,15 +1175,26 @@ test_that("ard_categorical.survey.design() works with variables with only 1 leve
 
 
 test_that("ard_categorical.survey.design(by) messages about protected names", {
-  svy_trial <-
+  svy_mtcars <-
     survey::svydesign(
       ids = ~1,
-      data = mtcars |> dplyr::mutate(variable = am, variable_level = cyl),
+      data = mtcars |>
+        dplyr::mutate(
+          variable = am,
+          variable_level = cyl,
+          by = am,
+          by_level = cyl
+        ),
       weights = ~1
     )
 
   expect_snapshot(
     error = TRUE,
-    ard_categorical(svy_trial, by = variable, variables = gear)
+    ard_categorical(svy_mtcars, by = variable, variables = gear)
+  )
+
+  expect_error(
+    ard_categorical(svy_mtcars, by = variable_level, variables = gear),
+    'The `by` argument cannot include variables named "variable" and "variable_level".'
   )
 })