fix: calculation of neqs

LAPKB · Mar 15, 2024 · 82a2cd9 · 82a2cd9
1 parent 49f9609
commit 82a2cd9
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/R/PM_model.R b/R/PM_model.R
@@ -563,9 +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 <- stringr::str_extract_all(eqs, "xp\\((\\d)\\)") %>%
-        unique() %>%
-        length()
+      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)