如何从所需的包中调试未导出的函数？

Question

我正在使用的包中的一个函数给了我信息量不大的错误。我不知道发生了什么事。这个函数是由我调用的函数在内部调用的。像这样的：

myres <- the.func(x)

the.func <-function(x){
    unexported.func(x)
}

如何调试 unexported.func ？ 使用debug 不起作用：

>debug(unexported.func)
Error in debug(undexported.func) : object 'unexported.func' not found

更新： 目前我做嵌套调试如下。但我觉得不方便：

>debug(the.func) # Initiate debugging for the outer function, so I get unexported.func loaded.
>myres <- the.func(x)
Browse[2]>debug(unexported.func) # Now I can call debug with this. 

Answer 1

您可以通过:::（三重冒号）运算符访问未导出的函数，并在其前面加上包命名空间名称（即包名称）。

假设 pkgA 包含未导出的函数 unexported.func()，我们将在 unexported.func() 上设置调试标志：

debug(pkgA:::unexported.func)

如果您不知道将哪个包（因此命名空间）用于给定的未导出函数，您始终可以使用getAnywhere() 确定这一点。