R/utils_packages.R

In crew: A Distributed Worker Launcher Framework

load_packages <- function(packages, library) {
  out <- lapply(
    packages,
    require,
    lib.loc = library,
    quietly = TRUE,
    character.only = TRUE
  )
  out <- as.logical(unlist(out))
  if (!all(out)) {
    msg <- paste(
      "could not find packages",
      paste(packages[!out], collapse = ", "),
      "in library paths",
      paste(library, collapse = ", ")
    )
    crew_error(message = msg)
  }
}

package_installed <- function(package) {
  result <- .subset2(packages_installed, "get")(package, default = NULL)
  if (is.null(result)) {
    result <- rlang::is_installed(pkg = package)
    .subset2(packages_installed, "set")(key = package, value = result)
  }
  result
}

packages_installed <- collections::dict()