r - 如何调试非导出功能？

有一个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"

最佳答案

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

debugonce(plm:::predict.plm)

而不是

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