R/local-versions.R

In ErdaradunGaztea/woodendesc: Find Packages and Their Dependencies in Any 'R' Repository

#' Get locally available package versions
#'
#' @description This function searches for installed package versions inside
#' specified library paths.
#'
#' @template package
#' @template paths-local
#'
#' @return A character vector of version codes.
#'
#' @examples
#' wood_local_versions("httr2")
#'
#' @family local
#' @family versions
#' @export
wood_local_versions <- function(package, paths = .libPaths()[1]) {
  assert_param_package(package)
  assert_param_paths(paths)

  paths <- match_local_paths_args(paths)
  # Filter paths that contain package DESCRIPTION
  descriptions <- file.path(paths, package, "DESCRIPTION")
  descriptions <- descriptions[file.exists(descriptions)]
  # Extract package version from each DESCRIPTION found
  ret <- vapply(descriptions, function(desc) {
    read_dcf_one_value(read_char(desc), "Version")
  }, character(1), USE.NAMES = FALSE)
  # Return only unique values
  unique(ret)
}