fix: PMcore only supports eqs in the form XP(..)=X(..)

LAPKB · Mar 15, 2024 · 77c4c6a · 77c4c6a
1 parent 82a2cd9
commit 77c4c6a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/PM_model.R b/R/PM_model.R
@@ -563,7 +563,7 @@ PM_model_list <- R6::R6Class("PM_model_list",
       content <- gsub("</parameter_definition>", parameter_definition %>% paste(collapse = "\n"), content)
 
       eqs <- self$model_list$eqn %>% tolower()
-      neqs <- sum(sapply(stringr::str_extract_all(eqs, "xp\\[(\\d)\\]"), function(x) length(x) > 0))
+      neqs <- sum(sapply(stringr::str_extract_all(eqs, "xp\\((\\d)\\)"), function(x) length(x) > 0))
       if (neqs == 0) {stop("Error: PMcore does not support analytic equations, provide a eqn block.")}
       content <- gsub("</neqs>", neqs, content)