r - 如果未安装则安装包(库)

Question

这个问题已经有答案了:

Elegant way to check for missing packages and install them? (35 个回答)

已关闭 9 年前。

我在 R 中使用了几个软件包，但我在可能已安装或尚未安装部分/全部软件包的计算机中运行脚本。

软件包是zoo , quantmod , data.table ，...，还有更多。

这是我尝试过的:有没有办法检查这些软件包是否已安装，如果没有安装？我不希望 R 浪费时间重新安装任何已经存在的软件包。

这是我尝试过的:

pckg = c("zoo", "tseries", "quantmod", "MASS", "graphics", "plyr", "data.table", "gridExtra") 

 is.installed <- function(mypkg){
    is.element(mypkg, installed.packages()[,1])
 } 

 for(i in 1:length(pckg)) {
    if (!is.installed(pckg[i])){
         install.packages(pckg[i])
     }
 }

有更好的方法吗？

此外，我需要自动设置安装镜像。我不知道该怎么做。

谢谢!

Answer 1

我有一个方便的函数，我使用它来代替library，如果缺少该软件包，它会安装该软件包，然后require它:

usePackage <- function(p) {
    if (!is.element(p, installed.packages()[,1]))
        install.packages(p, dep = TRUE)
    require(p, character.only = TRUE)
}

如果您需要全局选择 CRAN 镜像，这里是一种方法:

r <- getOption("repos")
r["CRAN"] <- "http://cran.us.r-project.org"
options(repos = r)
rm(r)