Merge pull request #205 from datalorax/fix-#202

fix #202

NEWS.md

@@ -1,5 +1,11 @@
 # equatiomatic (development)
 * New license: CC-BY
+* Bug fix: If names overlap, prior version had an error with the ordering and
+    construction of the coefficients.
+* Bug fix: Prior versions did not escape characters in multilevel models when
+  declaring the grouping factor (e.g., `for census_division l = 1` is now 
+  rendered as `for census\_division l = 1`).
+
 
 # equatiomatic 0.3.0
 * Export new `renderEq()` and `eqOutput()` functions for working with equatiomatic with shiny.

R/merMod.R

@@ -626,7 +626,7 @@ create_ranef_structure_merMod <- function(model, ital_vars, use_coefs,
 
   Map(function(lhs, dist, name, index) {
     paste0("\n    ", lhs, " \\sim ", dist,
-           "\n    \\text{, for ", name, " ", tolower(index), " = 1,}",
+           "\n    \\text{, for ", escape_tex(name), " ", tolower(index), " = 1,}",
            " \\dots ", "\\text{,", toupper(index), "}")
   }, lhs, distributed, names(lhs), letters[seq_along(lhs) + 9])
 }