From 2b39f5717913f51e8aea464c3fcbd33ec110b469 Mon Sep 17 00:00:00 2001
From: Matthew Fidler <matthew.fidler@gmail.com>
Date: Tue, 3 Sep 2024 19:28:05 -0500
Subject: [PATCH] Handle multiple lines

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

diff --git a/R/mlxtranChangeEquation.R b/R/mlxtranChangeEquation.R
index 0fb81bc..5587393 100644
--- a/R/mlxtranChangeEquation.R
+++ b/R/mlxtranChangeEquation.R
@@ -22,7 +22,7 @@
   if (is.null(.cov$dplyr)) {
     return(NULL)
   }
-  .e <- str2lang(paste0("{", .cov$dplyr, "}"))
+  .e <- str2lang(paste0("{", paste(.cov$dplyr, collapse="\n"), "}"))
   .ret <- lapply(seq_along(.e)[-1],
                  function(i) {
                    .e[[i]][[3]]