R/get_runtime.R

In Certara.Xpose.NLME: Enhances 'xpose' Diagnostics for Pharmacometric Models from 'Certara.RsNLME' and Phoenix NLME

get_runtime <- function(nlme7engineLines) {
  runtimeLine <- nlme7engineLines[grep("engine runtime", nlme7engineLines)]
  if (length(runtimeLine) > 0) {
    runtime <-
      as.numeric(unlist(strsplit(runtimeLine, split = "="))[[2]])
  } else {
    runtime <- "na"
  }

  runtime
}