虽然@Thomas的答案已经解决了这个问题，但我想指出pacman可能是一个更好但简单的选择：
首次安装pacman：

install.packages("pacman")

然后加载软件包。Pacman会检查每个软件包是否已经安装，如果没有，会自动安装。

pacman::p_load("stockPortfolio","quadprog")

就是这样。

• 相关链接：*

1. pacman GitHub page
2. Introduction to pacman

我觉得这很接近你想要的：

requiredPackages <- c("stockPortfolio","quadprog")
for (package in requiredPackages) { #Installs packages if not yet installed
if (!requireNamespace(package, quietly = TRUE))
install.packages(package)
}

HERE是requireNamespace函数的源代码和说明。

默认情况下，library和require都在第一个参数上使用非标准求值。这使得它们很难在编程中使用。但是，它们都接受character.only参数（默认值为FALSE），可以使用该参数来获得结果：

RequiredPackages <- c("stockPortfolio","quadprog")
for (i in RequiredPackages) { #Installs packages if not yet installed
    if (!require(i, character.only = TRUE)) install.packages(i)
}

到目前为止，我已经编写了以下函数（并将其放入一个包中），它基本上完成了@托马斯和@federico提出的任务：

SPLoadPackages<-function(packages){
    for(fP in packages){
        eval(parse(text="if(!require("%_%fP%_%")) install.packages('"%_%fP%_%"')"))
        eval(parse(text="library("%_%fP%_%")"))
    }
}