R/add_unitsdata_ind.R

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

add_unitsdata_ind <- function(data_ind, optionalUnits, unitsPresent) {
  # adding units to the data
  if (unitsPresent) {
    optionalUnits <-
      optionalUnits[, optionalUnits != "" & !is.na(optionalUnits)]
    unitsMatchArray <- match(data_ind$col, names(optionalUnits))
    unitsArrayToChange <- !is.na(unitsMatchArray)
    data_ind$units[unitsArrayToChange] <-
      unlist(optionalUnits[, unitsMatchArray[unitsArrayToChange]])
  }

  data_ind
}