一次加载多个包

Question

我怎样才能一次加载一堆包而不一遍又一遍地重新输入 require 命令？我尝试了三种方法，但都崩溃了。

基本上，我想将包名称的向量提供给将加载它们的函数。

x<-c("plyr", "psych", "tm")

require(x)
lapply(x, require)
do.call("require", x)

Answer 1

对于想要同时安装和加载软件包的人，我从 link 发现了这个功能

# ipak function: install and load multiple R packages.
# check to see if packages are installed. Install them if they are not, then load them into the R session.

ipak <- function(pkg){
new.pkg <- pkg[!(pkg %in% installed.packages()[, "Package"])]
if (length(new.pkg)) 
    install.packages(new.pkg, dependencies = TRUE)
sapply(pkg, require, character.only = TRUE)
}

# usage
packages <- c("ggplot2", "plyr", "reshape2", "RColorBrewer", "scales", "grid")
ipak(packages)

Answer 2

Tyler Rinker's answer to add a check to install & load pacman 的轻微修改：

#Install/load pacman
if(!require(pacman)){install.packages("pacman");require(pacman)}
#Install/load tons of packages
p_load(plyr,psych,tm)

我喜欢 p_load 解决方案，因为它避免了引用！

Answer 3

我认为@daroczig 提供的代码可以通过将require 替换为library 并将lapply 调用包装在invisible() 函数中来改进。因此，改进后的代码如下所示：

invisible(lapply(x, library, character.only = TRUE))

此代码得到改进的原因是：

1. library() 通常比require() 更适合加载包，因为如果未安装包，前者会给出错误，而后者只会给出警告。而且require()调用library()，为什么不直接使用library()呢！

   library("time")
   # Error in library("time") : there is no package called ‘time’
   
   require("time")
   # Loading required package: time
   # Warning message:
   # In library(package, lib.loc = lib.loc, character.only = TRUE, logical.return = TRUE,  :
   # there is no package called ‘time’
   

2. lapply() 调用返回和打印的列表对象在这种情况下没有意义，因此使输出不可见是有意义的。假设您使用 R Notebook 进行分析工作，使用 invisible() 函数将抑制列表对象的内容并防止呈现的笔记本文件混乱。

Answer 4

您可以简单地使用 lubripack 包，它会整齐地安装新包，然后在一行中加载所有包。

lubripack("plyr", "psych", "tm")

这是您在 RStudio 中运行上述代码后的输出。

如何安装包：

运行以下代码以下载包并从 GitHub 安装它。无需 GitHub 帐户。

library(devtools)
install_github("espanta/lubripack")

Answer 5

另一个选项来自包easypackages。安装后，您可以以最直观的方式加载包：

libraries("plyr", "psych", "tm")

该包还包括一个安装多个包的功能：

packages("plyr", "psych", "tm")

参考here。

Answer 6

基于 daroczig 的解决方案，如果您不想指定列表作为输入，您可以使用

# Foo
mLoad <- function(...) {
  sapply(sapply(match.call(), as.character)[-1], require, character.only = TRUE)
}

# Example 
mLoad(plyr, dplyr, data.table)

...比

短

lapply(list('plyr', 'dplyr', 'data.table'), require, character.only = TRUE)

Answer 7

您提议的函数的几种排列确实有效——但前提是您将character.only 参数指定为TRUE。快速示例：

lapply(x, require, character.only = TRUE)

Answer 8

我维护的 CRAN 包 pacman（由 Dason Kurkiewicz 编写）可以实现这一点：

所以用户可以这样做：

## install.packages("pacman")
pacman::p_load(dplyr, psych, tm) 

如果包丢失，p_load 将从 CRAN 或 Bioconductor 下载。

Answer 9

我使用以下函数：

mrip <- function(..., install = TRUE){
    reqFun <- function(pack) {
        if(!suppressWarnings(suppressMessages(require(pack, character.only = TRUE)))) {
            message(paste0("unable to load package ", pack,
                           ": attempting to download & then load"))
            install.packages(pack)
            require(pack, character.only = TRUE)
        }
    }
    lapply(..., reqFun)
}

这会尝试加载，如果安装失败，则再次尝试加载。

Answer 10

这应该可以解决问题：

lapply(x, FUN = function(X) {
    do.call("require", list(X)) 
})

（关键是do.call(what, args) 中的args 参数必须是一个列表——即使它只有一个元素！）