最近我似乎和合作者分享了很多代码。他们中的许多人是新手/中级R用户，并没有意识到他们必须安装他们还没有的包。
是否有一种优雅的方式来调用installed.packages()，比较那些我正在加载和安装如果丢失?
当前回答
我想贡献一下我用的:
testin <- function(package){if (!package %in% installed.packages())
install.packages(package)}
testin("packagename")
其他回答
source("https://bioconductor.org/biocLite.R")
if (!require("ggsci")) biocLite("ggsci")
packages_installed <- function(pkg_list){
pkgs <- unlist(pkg_list)
req <- unlist(lapply(pkgs, require, character.only = TRUE))
not_installed <- pkgs[req == FALSE]
lapply(not_installed, install.packages,
repos = "http://cran.r-project.org")# add lib.loc if needed
lapply(pkgs, library, character.only = TRUE)
}
你可以使用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则不这样做。
此解决方案将获取包名的字符向量并尝试加载它们，或者在加载失败时安装它们。它依赖于require的返回行为来做到这一点，因为…
Require返回(不可见的)一个逻辑，指示所需的包是否可用
因此，我们可以简单地查看是否能够加载所需的包，如果不能，则使用依赖项安装它。所以给定一个你想要加载的包的字符向量…
foo <- function(x){
for( i in x ){
# require returns TRUE invisibly if it was able to load package
if( ! require( i , character.only = TRUE ) ){
# If package was not able to be loaded then re-install
install.packages( i , dependencies = TRUE )
# Load package after installing
require( i , character.only = TRUE )
}
}
}
# Then try/install packages...
foo( c("ggplot2" , "reshape2" , "data.table" ) )
你可以使用find.package()。
这里几乎所有的答案都依赖于(1)require()或(2)installed.packages()来检查给定的包是否已经安装。
我添加了一个答案，因为这些对于回答这个问题的轻量级方法来说是不令人满意的。
Require具有加载包的名称空间的副作用，这可能并不总是可取的 安装。Packages是点燃蜡烛的火箭筒——它将首先检查所有已安装的包，然后我们检查这个库中是否有一个(或几个)包“库存”。没有必要为了找一根针而堆一堆干草堆。
这个答案也是受到@ArtemKlevtsov的启发，以类似的精神回答了这个问题的复制版本。他指出system.file(package=x)可以达到预期的效果，即返回“如果包未安装，则返回nchar > 1”。
如果我们深入了解系统。File实现了这个，我们可以看到它使用了不同的基函数find。包，我们可以直接使用:
# a package that exists
find.package('data.table', quiet=TRUE)
# [1] "/Library/Frameworks/R.framework/Versions/4.0/Resources/library/data.table"
# a package that does not
find.package('InstantaneousWorldPeace', quiet=TRUE)
# character(0)
我们还可以在find中查看引擎盖下的内容。包来看看它是如何工作的，但这主要是一个有指导意义的练习——我看到的唯一简化函数的方法是跳过一些健壮性检查。但是基本的想法是:在. libpaths()中查找——任何安装的包pkg将在file.path(. libpaths ()， pkg)处有一个DESCRIPTION文件，因此快速检查file.exists(file.path(. libpaths ()， pkg， 'DESCRIPTION')。
