当我安装 yaml 包时,如果之前安装了 RStudio,则会在 RStudio 中弹出一条恼人的错误消息。如何判断包是否已经安装,以便我可以在代码中决定是否安装包?
该消息在一个弹出窗口中,它是:
当前已加载将通过此安装更新的一个或多个软件包。强烈建议在更新这些包之前重新启动 R。RStudio 可以重新启动 R,然后在重新启动后自动继续安装(所有工作和数据将在重新启动期间保留)。您想在安装之前重新启动 R 吗?
This will load yaml
, installing it first if its not already installed:
if (!require(yaml)) {
install.packages("yaml")
library(yaml)
}
or if you want to parameterize it:
pkg <- "yaml"
if (!require(pkg, character.only = TRUE)) {
install.packages(pkg)
if (!require(pkg, character.only = TRUE)) stop("load failure: ", pkg)
}
UPDATE. Parametrization.
您可以使用它installed.packages()
来查找已安装的软件包
或者,您可以使用该require
功能。它将尝试加载包并默默地返回一个逻辑说明包是否可用。如果无法加载包,也会出现警告。
test1 <- require("stats")
test1
test2 <- require("blah")
test2
我在我的代码中使用以下结构。library
最重要的部分是在失败时调用tryCatch
并安装它:
lib.auto <- function(lib, version=NULL, install.fun=install.packages, ...) {
tryCatch(
library(lib, character.only=T),
error=function(e) {
install.fun(lib, ...)
library(lib, character.only=T)
}
)
if (!is.null(version)) {
if (packageVersion(lib) < version) {
require(devtools)
detach(paste0('package:', lib), unload=T, character.only=T)
install.fun(lib, ...)
library(lib, character.only=T)
if (packageVersion(lib) < version) {
stop(sprintf('Package %s not available in version %s. Installed version: %s', lib, version,
packageVersion(lib)))
}
}
}
}
lib.auto('BiocInstaller',
install.fun=function(lib) {
source("http://bioconductor.org/biocLite.R")
biocLite(lib)
})
options(repos=biocinstallRepos())
lib.auto.bioc <- lib.auto
lib.auto.github <- function(lib, version=NULL, user, subdir=NULL, repo=lib)
lib.auto(lib, version=version,
install.fun=function(l, u, s, r) {
require(devtools)
install_github(r, u, subdir=s)
},
user, subdir, repo
)
如果需要,该lib.auto
功能从 CRAN 和 Bioconductor 安装。lib.auto.github
来自 GitHub的安装。
我正在考虑将此代码推送到一个包中。