R/check.R

In jetpack: A Friendly Package Manager

#' Check that all dependencies are installed
#'
#' @return `TRUE` if all dependencies are installed, `FALSE` otherwise, invisibly
#' @export
#' @examples \dontrun{
#'
#' jetpack::check()
#' }
check <- function() {
  sandbox({
    status <- getStatus()
    missing <- getMissing(status)
    if (length(missing) > 0) {
      message(paste("Missing packages:", paste(missing, collapse=", ")))
      if (isCLI()) {
        warn("Run 'jetpack install' to install them")
      } else {
        warn("Run 'jetpack::install()' to install them")
      }
      invisible(FALSE)
    } else {
      success("All dependencies are satisfied")
      invisible(TRUE)
    }
  })
}