R/thaw.R

In Mullefa/locallib: Project isolation for R

#' Install the packages specified a pkg.yaml file
#'
#' @export
thaw <- function() {
  if (!is.activated()) {
    error("local library must be activated to use thaw()")
  }

  path <- file.path(meta_data$path, "pkgs.yaml")
  pkgs <- yaml::yaml.load_file(path)

  # FIXME: need to decide how to handle yaml dependency
  pkgs$packages <- Filter(function(pkg) pkg$name %notin% global_pkgs(), pkgs$packages)

  if (pkgs$R_version != R_version()) {
    warn(
      "R version of current environment ", bracket(R_version()), " ",
      "is different to R version in which the local library was created ",
      bracket(pkgs$R_version)
    )
  }

  for (pkg in pkgs$packages) {
    if (pkg$name %in% loadedNamespaces()) {
      error(
        "the namespace of ", pkg$name, " is currently loaded. ",
        "Not attempting installation into the local library.",
        "Restart R, activate the local library, and try again."
      )
    }
  }

  lib_pkgs <- read_dcfs(local_lib())

  for (pkg in pkgs$packages) {
    install_version(pkg$name, pkg$version)
  }
}