R/find-package.R

In slopp/renv: Project Environments for R

renv_package_find <- function(package, libpaths = renv_libpaths_all()) {

  # first, look in the library paths (specifiy lib.loc so that we avoid
  # using the path to loaded namespaces)
  location <- find.package(package, quiet = TRUE, lib.loc = libpaths) %||% ""
  if (file.exists(location))
    return(location)

  # try looking in the cache for the package
  location <- renv_paths_cache(package)
  versions <- list.files(location)
  if (!length(versions))
    return("")

  # take the most recent version
  sorted <- versions[order(numeric_version(versions))]
  version <- tail(sorted, n = 1)

  # now, check and see how many installations are associated with
  # this version
  hashes <- list.files(file.path(location, version))
  if (length(hashes) == 0)
    return("")

  # TODO: if we have multiple versions of the package hashed,
  # is there a way we can have the user request one or the other?
  file.path(location, version, hashes[[1]], package)

}