R/get_covtime.R

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

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

  covtime
}