R/version.R

Defines functions rxVersion

Documented in rxVersion

rxode.logo <- "  _____         ____  _____  ______
 |  __ \\       / __ \\|  __ \\|  ____| %s
 | |__) |__  _| |  | | |  | | |__
 |  _  / \\ \\/ / |  | | |  | |  __|
 | | \\ \\  >  <| |__| | |__| | |____
 |_|  \\_\\/_/\\_\\\\____/|_____/|______|
"

#' Version and repository for this dparser package.
#'
#' @param version Version to display/return
#' @param echo Boolean to echo the text logo, by default FALSE
#' @param extra extra text to display in the logo
#' @return A character vector with the version and repository.
#' @author Matthew L. Fidler
#' @keywords internal
#' @export
rxVersion <- function(extra = "", echo = FALSE, version = sessionInfo()$otherPkgs$RxODE$Version) {
  if (echo) {
    message(sprintf(rxode.logo, sprintf("%s%s", version, extra)), appendLF = FALSE)
  }
  return(invisible(c(version = version, repo = "https://github.com/nlmixrdevelopment/RxODE", md5 = RxODE.md5)))
}
nlmixrdevelopment/RxODE documentation built on April 10, 2022, 5:36 a.m.