R/get_ode_model_size.R

In PKPDsim: Tools for Performing Pharmacokinetic-Pharmacodynamic Simulations

#' Get the number of states in the ODE from the code
#' code C++ code for model
#' @param code C++ code
#' @export
#' @return Number of states in the ODE model
get_ode_model_size <- function(code) {
  m <- gregexpr("\\[([0-9]*)\\]", code)
  m1 <- unlist(regmatches(code, m))
  tmp <- 0
  return(length(unique(m1)))
}