fix: added more backticks

amices · Mar 26, 2024 · e357679 · e357679
1 parent 3cfc34d
commit e357679
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/sampler.R b/R/sampler.R
@@ -187,7 +187,7 @@ sampler.univ <- function(data, r, where, pred, formula, method, yname, k,
     vars <- colnames(data)[pred != 0]
     xnames <- setdiff(vars, j)
     if (length(xnames) > 0L) {
-      formula <- reformulate(backticks(xnames), response = j)
+      formula <- reformulate(backticks(xnames), response = backticks(j))
       formula <- update(formula, ". ~ . ")
     } else {
       formula <- as.formula(paste0(j, " ~ 1"))