Merge pull request #146 from nlmixr2/142-lotri-issue

Fix xml
nlmixr2 · Jun 23, 2023 · 2145774 · 2145774
2 parents c6be752 + 6090425
commit 2145774
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/xml.R b/R/xml.R
@@ -13,10 +13,10 @@
     .names <- xml2::xml_attrs(xml2::xml_find_all(xml, "nm:row"))
     .inputNames <- setNames(unlist(.names), NULL)
     .finalNames <-  .replaceNmDimNames(.inputNames)
-
-    .cov <- try(eval(parse(text=paste0("lotri({", paste(.finalNames, collapse = " + "),
+    .cov <- parse(text=paste0("lotri({", paste(.finalNames, collapse = " + "),
                                    "~", deparse1(.cov),
-                                   "}"))), silent=TRUE)
+                                   "})"))
+    .cov <- try(eval(.cov), silent=TRUE)
     if (inherits(.cov, "try-error")) {
       .minfo("try to get covariance a different method (slower)")
       .env <- new.env(parent=emptyenv())