是否可以包装一个 R 函数来修改其功能？
这是一个玩具示例来解释我的意思。考虑这个函数sum2：
sum2 <- function (x) if (length(x) == 1) { cat(x); sum(x) } else sum(x)
它和sum 一样，只是稍作修改。假设我想重新定义 sum 本身 来做 sum2 在这里所做的事情。在不了解我要包装的函数的内部结构的情况下，如何以一般方式执行此操作？
我想这样做是为了临时“修复”一个包功能，而不必修改和重新安装包。如果输入满足某些条件，我想检查它的输入并返回一个特殊值。
（对于对 Mathematica 非常熟悉的人，我正在寻找类似于 Gayley-Villegas trick 的东西。）
【问题讨论】：
标签： r metaprogramming
这些方面的一些东西已经奏效了：
sum2 <- sum
sum <- function (x) if (length(x) == 1) { cat(x); sum2(x) } else sum2(x)
我没有意识到我可以将sum 的原始定义存储在sum2 中，这样我就可以从重新定义的sum 中调用它。
正如 Matthew 所指出的，当它被称为 base::sum 时，它不会覆盖 sum。
【讨论】：
sum 称为base::sum 并且不会看到您的定义。
你需要小心这个。所有包现在都有命名空间，并将调用同一命名空间中的其他函数。当您从主命令提示符调用函数时，您的方法可能会起作用。但是包中的函数会调用原来的函数，而不是你的修改。
查看assignInNamespace 和相关函数的帮助，了解在命名空间中进行更改的方法。 trace 函数是另一种就地修改函数的方法，在现有函数中添加一些额外的代码。
【讨论】：
trace 做同样的事情（这个玩具示例）吗？其实我想修改一个函数的返回值是一个输入值满足给定条件。
trace 与edit=TRUE 一起使用，那么您可以根据需要编辑函数的主体。在输入语句上放入if语句，然后修改输出。
library(somePackage) 然后运行一个脚本，该脚本会自动修复 somePackage 中的一个函数，但前提是我希望（即不永久修改包源）。
trace 和 at 参数在函数的给定位置插入表达式。请参阅?trace 中的详细信息。这会比使用assignInNamespace 更简单还是更复杂很难判断。