pkg-version.R

pkg_version <- function(package, keep = c("all", "patch", "minor", "major")) {
  keep <- match.arg(keep)
  version <- utils::packageVersion(package)
  version <- unclass(version)[[1L]]
  version <- switch(
    keep,
    all = version,
    patch = version[1:3],
    minor = version[1:2],
    major = version[1L]
  )
  paste(version, collapse = ".")
}