allow formulas containing syntactically invalid variable names (i.e. …

…ones needing backticks)
Displayr · Sep 8, 2017 · d65078e · d65078e
1 parent 39ae5f4
commit d65078e
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/R/estimationdata.R b/R/estimationdata.R
@@ -74,8 +74,9 @@ EstimationData <- function(formula = NULL,
         weight.label <- Labels(weights)
     }
     unfiltered.weights <- weights
-    # Selecting the relevant variables from the data frame (unless imputation is being used).
-    variable.names <- AllVariablesNames(formula)
+    ## Selecting the relevant variables from the data frame (unless imputation is being used).
+    ## Remove backticks if present
+    variable.names <- sub("^[`]([[:print:]]*)[`]$", "\\1", AllVariablesNames(formula), perl = TRUE)
     labels <- Labels(data[, variable.names], show.name = TRUE)
     # Removing cases with entirely missing data
     some.data <- !apply(is.na(data[, variable.names, drop = FALSE]), 1, all)