如何通过长长的依赖链自动安装CRAN包所依赖的Bioconductor包？

Question

我有一个位于 CRAN 上的包

metagam

，它通过了 CRAN 的所有自动化测试。但是，该包通过依赖链

multtest

metagam

<-

metap

<-

mutoss

依赖于 Bioconductor 包 <-

multtest

。下面直观地展示了

metap

包的依赖关系。

# Code for creating dependency graph
library(miniCRAN)
plot(makeDepGraph("metap", suggests = FALSE))

这个问题的答案建议将

biocViews:

添加到

DEPENDENCIES

。因此，我的

DESCRIPTION

的相关部分如下所示：

biocViews: 
Imports: 
    dplyr,
    furrr,
    ggplot2,
    knitr,
    metafor,
    metap,
    purrr,
    rlang,
    stringr,
    tidyr
RoxygenNote: 7.1.0
Suggests: 
    future,
    mgcv,
    gamm4,
    gratia,
    roxygen2,
    rmarkdown,
    devtools,
    covr,
    viridis,
    testthat (>= 2.1.0)

但是，添加

biocViews

似乎仅适用于一阶依赖项。就我而言，

DESCRIPTION

中没有列出 Bioconductor 软件包，因此自动软件包安装失败。下面的示例显示了这一点。

# Remove packages 'metap', 'mutoss', and 'multtest' if they are installed
# If, any of these are installed, the dependency 'multtest' will not be attempted to be installed
pkgs <- installed.packages()[, "Package", drop = TRUE]
if("metap" %in% pkgs) remove.packages("metap")
#> Removing package from '/Library/Frameworks/R.framework/Versions/4.0/Resources/library'
#> (as 'lib' is unspecified)
if("mutoss" %in% pkgs) remove.packages("mutoss")
#> Removing package from '/Library/Frameworks/R.framework/Versions/4.0/Resources/library'
#> (as 'lib' is unspecified)
if("multtest" %in% pkgs) remove.packages("multtest")

# Install 'metagam', which trigges installation of the dependency 'metap'
# The dependencies are 'metagam' <- 'metap' <- 'mutoss' <- 'multtest'
install.packages("metagam")
#> Warning: dependency 'multtest' is not available
#> also installing the dependencies 'mutoss', 'metap'
#> 
#> The downloaded binary packages are in
#>  /var/folders/sz/q9lc1ggd66n5k5x_yp094hgh0000gn/T//Rtmphvg646/downloaded_packages

^{由 reprex 包于 2020-06-20 创建（v0.3.0）}

此外，这会导致包失败，因为对

multtest

的依赖是真实的：

# The code below is from the examples of the metagam::metagam() function
# The last line fails because the dependency 'multtest' is not available
library(metagam)
library(mgcv)
#> Loading required package: nlme
#> This is mgcv 1.8-31. For overview type 'help("mgcv-package")'.

## Create 5 datasets
set.seed(1234)
datasets <- lapply(1:5, function(x) gamSim(scale = 5, verbose = FALSE))

## Fit a GAM in each dataset, then use strip_rawdata() to remove
## individual participant data
models <- lapply(datasets, function(dat){
  ## This uses the gam() function from mgcv
  model <- gam(y ~ s(x0, bs = "cr") + s(x1, bs = "cr") + s(x2, bs = "cr"), data = dat)
  ## This uses strip_rawdata() from metagam
  strip_rawdata(model)
})

## Next, we meta-analyze the models.
## It is often most convenient to analyze a single term at a time. We focus on s(x1).
meta_analysis <- metagam(models, terms = "s(x1)", grid_size = 30)
#> Error in loadNamespace(j <- i[[1L]], c(lib.loc, .libPaths()), versionCheck = vI[[j]]): there is no package called 'multtest'

^{由 reprex 包于 2020-06-20 创建（v0.3.0）}

我知道我可以通过 GitHub 存储库 或通过启动消息通知用户，他们需要在尝试安装

metagam

之前运行以下几行，但这并不能提供最佳的用户体验。

if (!requireNamespace("BiocManager", quietly = TRUE))
    install.packages("BiocManager") 
BiocManager::install("multtest")

在我看来，解决方案是在导入中添加

multtest

。但是，这是否会发出有关未使用的导入的警告，因为

multtest

中没有函数直接被

metagam

使用，而是通过上面指定的依赖链使用。我无法在自己的系统上创建这样的警告，运行

R CMD check --as-cran

，所以也许 CRAN 对此没问题？或者，我可以使用

multtest

在某处添加一行代码，但这看起来很hacky。

总而言之，我的问题是我应该怎么做才能在安装

multtest

时自动安装

metagam

软件包。

Answer 1

因为 Bioconductor 每年发布两次，这与 CRAN 发布实践不同，所以“正确”的做法是使用 Bioconductor 工具来安装你的软件包，所以

BiocManager::install("metap")

。 metap 是一个 CRAN 包并不重要。 BiocManager 为用户的 R 版本安装正确版本的 Bioconductor 软件包。

如果这个解决方案不令人满意，那么下一个最好的正确做法是调整您的依赖关系，以避免对 Bioconductor 包的直接或间接依赖。

Answer 2

我尝试将 zzz.R 文件添加到存储库。

.onAttach <- function(libname, pkgname) {
  if (!requireNamespace("biomaRt", quietly = TRUE)) {
    if (!requireNamespace("BiocManager", quietly = TRUE)) {
      install.packages("BiocManager")
    }
    BiocManager::install("biomaRt", ask = FALSE)
    message("`biomaRt` was missing and has been installed.")
  }
}

这里以biomRt为例。但这是行不通的。我也试过

.onLoad

。