R 函数“require”在“sapply”中无法按预期工作

Question

我想检查一堆软件包是否已正确安装（以使 dockerfile 崩溃而不是默默地继续）。

我在包名称列表上尝试了 sapply，这就是发生的情况。 请注意：

• “not_available”未安装:)
• “testthat”已安装。

# to show the invisible output:
> show <- function(x) {cat(x, '\n')}

> show(require('not_available'))
Loading required package: not_available
FALSE
Warning message:
In library(package, lib.loc = lib.loc, character.only = TRUE, logical.return = TRUE,  :
  there is no package called ‘not_available’

到目前为止一切顺利，完全符合预期。

> show(require('testthat'))
TRUE

完美...

> sapply(c('not_available', 'testthat'), require, warn.conflicts = FALSE, quietly = TRUE)
not_available      testthat 
        FALSE         FALSE 
Warning messages:
1: In if (!loaded) { :
  the condition has length > 1 and only the first element will be used
2: In if (!loaded) { :
  the condition has length > 1 and only the first element will be used

呜呜...

为什么它警告我们？为什么输出不正确？

> sapply(c('not_available', 'testthat'), function(x) {x})
  not_available        testthat 
"not_available"      "testthat" 

好吧，所以 sapply 并没有背叛我...

> sapply(c('not_available', 'testthat'), function(pkg) {require(pkg, warn.conflicts = FALSE, quietly = TRUE)})
not_available      testthat 
        FALSE         FALSE 

呃，现在警告消失了，但是答案...仍然错误...为什么？

有什么线索吗？预期的行为将是返回带有 [FALSE TRUE] 的值（与“not_available”和“testthat”相关）。

Answer 1

好吧，这是由于特殊的“库”和“要求”行为也可以使用未加引号的值。因此，以下内容将演示失败：

pkgs <- 'testthat'
require(pkgs)
Loading required package: pkgs
Warning message:
In library(package, lib.loc = lib.loc, character.only = TRUE, logical.return = TRUE,  :
  there is no package called ‘pkgs’

解决方案是提供“character.only”

sapply(c('not_available', 'testthat'), require, character.only = TRUE)
not_available      testthat 
        FALSE          TRUE

即可正常工作。