我有一些包含由 approxfun() 定义的保存函数的 .Rdata 文件。
一些保存文件早于将 approxfun 从包“base”更改为“stats”,因此主体具有
PACKAGE = "base"
错误的包导致函数失败。我可以修复(myfun)并简单地将“base”替换为“stats”,但我想要一种更简洁的自动方式。
我可以用 gsub() 和 body() 以某种方式做到这一点吗?
我可以得到正文并用
as.character(body(myfun))
但我不知道如何将其转回“调用”并替换定义。
(我知道更好的解决方案是保存 approxfun 最初使用的数据并简单地重新创建函数,但我想知道是否有一种明智的方法来修改现有的。)
编辑:我在这里找到了
What ways are there to edit a function in R?
最佳答案
使用 substitute
功能。
例如:
myfun <- function(x,y) {
result <- list(x+y,x*y)
return(result)
}
使用
body
, 治疗 myfun
作为列表来选择您要在函数中更改的内容:> body(myfun)[[2]][[3]][[2]]
x + y
更改此设置时,必须使用
substitute
函数,所以你用 call
替换函数的一部分或 name
对象,视情况而定。用字符串替换不起作用,因为函数不是作为字符串存储或操作的。body(myfun)[[2]][[3]][[2]] <- substitute(2*x)
现在选定的函数部分已被替换:
> myfun
function (x, y)
{
result <- list(2 * x, x * y)
return(result)
}
关于r - 修改现有函数对象的正文,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/2971419/