Bugfix so models are properly updated within and between iterations

AnthonyRaborn · Dec 2, 2019 · 8a4d32b · 8a4d32b
1 parent c7371b5
commit 8a4d32b
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/Tabu_shortform.R b/R/Tabu_shortform.R
@@ -145,7 +145,8 @@ tabuShortForm <-
 
     if (is.list(allItems)) {
       included.items <-
-        stringr::str_extract_all(string = initialShortModel$model.syntax,
+        stringr::str_extract_all(string = unlist(strsplit(initialShortModel$model.syntax,
+                                                          split = "\\n")),
                                  pattern = paste0("(\\b", paste0(
                                    paste0(unlist(allItems), collapse = "\\b)|(\\b"), "\\b)"
                                  )))