6

假设我替换了一个包的功能，例如knitr:::sub_ext. （注意：我对它是一个内部函数特别感兴趣，即只能通过:::而不是 访问::，但相同的答案可能对两者都有效）。

library(knitr)
my.sub_ext <- function (x, ext) {
    return("I'm in your package stealing your functions D:")
}
# replace knitr:::sub_ext with my.sub_ext
knitr <- asNamespace('knitr')
unlockBinding('sub_ext', knitr)
assign('sub_ext', my.sub_ext, knitr)
lockBinding('sub_ext', knitr)

问题：完成此操作后有什么方法可以检索原件？ knitr:::sub_ext最好不重新加载包？

（我知道有些人想知道我为什么要这样做，所以就在这里。这个问题不需要阅读）。我一直在修补软件包中的一些功能（实际上不是sub_ext功能......）：

original.sub_ext <- knitr:::sub_ext
new.sub_ext <- function (x, ext) {
    # some extra code that does something first, e.g.
    x <- do.something.with(x)
    # now call the original knitr:::sub_ext
    original.sub_ext(x, ext)
}
# now set knitr:::sub_ext to new.sub_ext like before.

我同意这通常不是一个好主意（在大多数情况下，这些都是快速修复，直到更改进入 CRAN，或者它们是永远不会被批准的“功能请求”，因为它们在某种程度上是特定于案例的）。

上面的问题是，如果我不小心执行了两次（例如，它在我运行两次的脚本的顶部，中间没有重新启动 R），第二次original.sub_ext实际上是前一次new.sub_ext而不是真正的 knitr:::sub_ext，所以我得到无限递归。

由于sub_ext是一个内部函数（我不会直接调用它，但是来自 knitr 的函数knit都像内部调用它一样），我不能希望修改所有sub_ext调用new.sub_ext手动调用的函数，因此替换定义中的方法包命名空间。

4

1 回答 1

4

当您这样做时assign('sub_ext', my.sub_ext, knitr)，您将不可撤销地覆盖以前与的值关联sub_ext的值my.sub_ext。但是，如果您首先存储原始值，则完成后重置它并不难：

library(knitr)
knitr <- asNamespace("knitr")

## Store the original value of sub_ext
.sub_ext <- get("sub_ext", envir = knitr)

## Overwrite it with your own function
my.sub_ext <- function (x, ext) "I'm in your package stealing your functions D:"
assignInNamespace('sub_ext', my.sub_ext, knitr)
knitr:::sub_ext("eg.csv", "pdf")
# [1] "I'm in your package stealing your functions D:"

## Reset when you're done
assignInNamespace('sub_ext', .sub_ext, knitr)
knitr:::sub_ext("eg.csv", "pdf")
# [1] "eg.pdf"

或者，只要您只是将代码行添加到已经存在的内容中，您就可以使用trace(). 好的trace()是，完成后，您可以使用untrace()将函数的主体恢复为其原始形式：

trace(what = "mean.default", 
      tracer = quote({
          a <- 1
          b <- 2
          x <- x*(a+b)
      }), 
      at = 1)
mean(1:2)
# Tracing mean.default(1:2) step 1 
# [1] 4.5
untrace("mean.default")
# Untracing function "mean.default" in package "base"
mean(1:2)
# [1] 1.5

请注意，如果您要跟踪的函数位于命名空间中，您将需要使用trace()'where参数，将共享要跟踪函数的命名空间的其他（导出）函数的名称传递给它。因此，要在knitr的命名空间中跟踪未导出的函数，您可以设置where=knit

于 2013-05-10T03:08:20.790 回答