.onLoad 和交互式 - 意外行为？

Question

我有一个包，旨在供通过 Rscript 运行的非交互式脚本使用。但我也希望能够在交互式会话中加载它，主要用于调试目的。在 Rscript 或其他非交互式会话中使用时，我想使用 .onLoad 进行一些初始化，所以我有以下内容：

.onLoad <- function(libname, pkgname) {
    if ( !interactive() ) { 
        # Do some stuff 
    } else {
    # Do something slightly different
}

问题在于，即使在交互式会话中，interactive() 也会在 .onLoad 中返回 FALSE。我通过以下方式进行测试：

.onLoad <- function(libname, pkgname) {
    print( paste( "interactive() = ", interactive(), collapse="" ) )
}

然后，当我 build() 和 install()（使用 devtools）时，安装会附加带有消息 "interactive() = FALSE" 的库。

有什么想法吗？ .onLoad() 和 interactive() 的文档都没有说明任何相关内容。

菲尔

Answer 1

在您运行build() 和install() 之后，您是否尝试过取消附加和 卸载包，然后重新加载它？

这是我这样做时得到的结果，包括你的 .onLoad 函数在一个名为“dummy”的包中：

 library(devtools)
 document('dummy')
 build('dummy')
 install('dummy')
 # ...
 # [1] "interactive() =  FALSE"

 detach("package:dummy", unload=T)
 library(dummy)
 # [1] "interactive() =  TRUE"