sempervent

loadPackages <- function(pkgs, repo = 'https://cloud.r-project.org',
                         lib = .libPaths()[1]) {
  not_installed <- pkgs[!pkgs %in% rownames(installed.packages())]
  install.packages(not_installed, repos = repo, lib = lib)
  loaded <- unlist(lapply(pkgs, require, character.only = TRUE, quietly = TRUE))
  if (any(loaded == FALSE)) {
    message(sprintf('The following packages failed to load: %s',
            paste0(pkgs[!loaded], collapse = ', ')))
    return(FALSE)
  }