如何调试非导出函数？

Question

有一个definitive guide用于查看函数的源代码，但是如何调试一个不是从包导出的函数，而不手动遍历您找到的源代码呢？

library(plm)
> predict.plm
Error: object 'predict.plm' not found
> plm:::predict.plm
function (object, newdata = NULL, ...) 
{
    tt <- terms(object)
    if (is.null(newdata)) {
        result <- fitted(object, ...)
    }
    else {
        Terms <- delete.response(tt)
        m <- model.frame(Terms, newdata)
        X <- model.matrix(Terms, m)
        beta <- coef(object)
        result <- as.numeric(crossprod(beta, t(X)))
    }
    result
}
<environment: namespace:plm>
> debugonce("predict.plm")
Error in debugonce("predict.plm") : could not find function "predict.plm"
> debugonce("plm:::predict.plm")
Error in debugonce("plm:::predict.plm") : 
  could not find function "plm:::predict.plm"

Answer 1

这一点都不明显，但将参数作为符号而不是引用的字符串似乎很好，即

debugonce(plm:::predict.plm)

而不是

debugonce("plm:::predict.plm")

Answer 2

我使用过的一个技巧是首先为本地对象分配：

predict.plm <- plm:::predict.plm

之后你可以做fix()，debug()，.本地副本。

Answer 3

我做了这个技巧:假设您必须调试代码线

rmarkdown::render("myDocument.Rmd") 

然后，你可以在代码线下面加上y。

f <- function () {
  rmarkdown::render("myDocument.Rmd") 
}

下一首

debug(f)
f ()