From e357679b82a74c4624d880e499c1059c2cffc401 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Rapha=C3=ABl=20Bent=C3=A9geac?= <raphael@bentegeac.com>
Date: Tue, 26 Mar 2024 16:05:39 +0100
Subject: [PATCH] fix: added more backticks

---
 R/sampler.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/sampler.R b/R/sampler.R
index cf747a408..95362c330 100644
--- 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"))