Make var names syntactic for lavaan

I'll be honest, this change has been sitting in my local working directory for years and I'm not 100% sure what it's for...but I think my description here is right.
jacob-long · Jan 11, 2024 · 8b773d6 · 8b773d6
1 parent ebae85b
commit 8b773d6
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/R/dpm.R b/R/dpm.R
@@ -191,6 +191,10 @@ dpm <- function(formula, data, error.inv = FALSE, const.inv = FALSE,
   mod_formula <- as.formula(mod_formula)
   mf <- panelr::model_frame(mod_formula, data = pf$data)
   names(mf) %just% pf$v_info$root <- make_names(names(mf) %just% pf$v_info$root)
+  names(mf) %just% pf$constants <- make_names(names(mf) %just% pf$constants)
+  pf$constants <- make_names(pf$constants)
+  names(mf) %just% dv <- make_names(names(mf) %just% dv)
+  dv <- make_names(dv)
 
   # Quick little helper
   get_raw_vars <- function(vars) {