优雅的方法来检查丢失的包并安装它们？

Question

优雅的方法来检查丢失的包并安装它们？这些天我似乎与共同作者分享了很多代码。他们中的许多人都是初级/中级R用户，并没有意识到他们必须安装他们尚未拥有的软件包。是否有一种优雅的方式来调用installed.packages()，将其与我正在加载的那些进行比较并在安装时如果丢失？

Answer 1

是。如果您有包列表，请将其与输出进行比较installed.packages()[,"Package"]并安装缺少的包。像这样的东西：

list.of.packages <- c("ggplot2", "Rcpp")

new.packages <- list.of.packages[!(list.of.packages %in% installed.packages()[,"Package"])]

if(length(new.packages)) install.packages(new.packages)

除此以外：

如果您将代码放在一个包中并使它们成为依赖项，那么在安装包时它们将自动安装。

Answer 2

Dason K.和我有pacman包可以做得很好。p_load包中的功能就是这样做的。第一行是为了确保安装pacman。

if (!require("pacman")) install.packages("pacman")pacman::p_load(package1, package2, package_n)

Answer 3

你可以使用以下的返回值require：

if(!require(somepackage)){
    install.packages("somepackage")
    library(somepackage)}

我library在安装后使用，因为如果安装不成功或由于某些其他原因无法加载包，它将抛出异常。您可以使其更加强大和可重用：

dynamic_require <- function(package){
  if(eval(parse(text=paste("require(",package,")")))) return True

  install.packages(package)
  return eval(parse(text=paste("require(",package,")")))}

这种方法的缺点是你必须在引号中传递包名，而不是真实的require。