R/common_additional_info.R

In UUPharmacometrics/PsNR: R package for pharmacometric utilities

#' Get additional information from the yaml file about PsN version, Nonmem version, R version and loaded R packages that can be added to the pdf report.
#'
#' @param yaml_file Yaml file name
#' @return A list of three character elements (PsN_version, NONMEM_version and R_version) and one dataframe element (R_packages).
#' @export
additional_info <- function(yaml_file) {
  yaml_list <- yaml::yaml.load_file(yaml_file)

  R_packages <- as.data.frame(sessioninfo::session_info()[[2]])
  if(any(colnames(R_packages)=="version")) {
      R_packages <- R_packages[,c("package","version","source")]
  } else {
      R_packages <- R_packages[,c("package","loadedversion","source")] %>%
          dplyr::rename(version=loadedversion)
  }

  out <- list(PsN_version=yaml_list$PsN_version,
              NONMEM_version=yaml_list$NONMEM_version,
              R_version=yaml_list$R_version,
              R_packages=R_packages)
  return(out)
}