R/get_ode_model_size.R

In ronkeizer/PKPDsim: Simulate ODE models

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