use reformulate2 to address the backticking stuff

R/ard_survey_svycontinuous.R

@@ -213,7 +213,7 @@ accepted_svy_stats <- function(expand_quantiles = TRUE) {
 
   # if no by variable, calculate univariate statistics
   if (is_empty(by)) {
-    args$x <- stats::reformulate(variable)
+    args$x <- reformulate2(variable)
     # calculate statistic (and remove FUN from the argument list)
     stat <-
       cards::eval_capture_conditions(
@@ -244,8 +244,8 @@ accepted_svy_stats <- function(expand_quantiles = TRUE) {
 
   # if there is by variable(s), calculate statistics for the combinations
   else {
-    args$formula <- stats::reformulate(variable)
-    args$by <- stats::reformulate(by)
+    args$formula <- reformulate2(variable)
+    args$by <- reformulate2(by)
     stat <-
       if (stat_name %in% c("median", paste0("p", 0:100))) {
         cards::eval_capture_conditions(

R/ard_survey_svyranktest.R

@@ -48,7 +48,7 @@ ard_survey_svyranktest <- function(data, by, variables, test, ...) {
         variable = variable,
         lst_tidy =
           cards::eval_capture_conditions(
-            survey::svyranktest(stats::reformulate(by, response = variable), design = data, test = test, ...) |>
+            survey::svyranktest(reformulate2(termlabels = by, response = variable), design = data, test = test, ...) |>
               broom::tidy()
           )
       )

R/ard_survey_svyttest.R

@@ -46,7 +46,7 @@ ard_survey_svyttest <- function(data, by, variables, conf.level = 0.95, ...) {
         variable = variable,
         lst_tidy =
           cards::eval_capture_conditions(
-            survey::svyttest(stats::reformulate(by, response = variable), design = data, ...) %>%
+            survey::svyttest(reformulate2(termlabels = by, response = variable), design = data, ...) %>%
               # a slightly enhanced tidier that allows us to specify the conf.level
               {
                 dplyr::bind_cols(