假设我有
library(functional)
f = function(x, p) { x^p }
f2 = Curry(f, p=2)
有没有办法找出仅给定f2时p设置了什么？
看看这是否有用。本质上，p参数是在Curry（）-eded函数主体的环境中进行的：
> body(f2)
do.call(FUN, c(.orig, list(...)))
> body(f2)[[1]]
do.call
> body(f2)[[3]]
c(.orig, list(...))
> body(f2)[[3]][[2]]
.orig
> eval(body(f2)[[3]][[2]])
Error in eval(expr, envir, enclos) : object '.orig' not found
> eval(body(f2)[[3]][[2]], environment(f2) )
$p
[1] 2
正如BrodieG所评论的那样，这些可以用于对该问题进行编程攻击：
> environment(f2)$.orig
$p
[1] 2
> environment(f2)$.orig$p
[1] 2
看看为什么我没有发现最初的比较：
> ls( envir=environment(f2) )
[1] "FUN"
> ls( envir=environment(f2) ,all.names=TRUE)
[1] "..." ".orig" "FUN"
ls除非all.names参数设置为，否则该功能仅显示其初始字符不是“点”的项目TRUE。
所以这也很有意义：
> environment(f2) $FUN
function(x, p) { x^p }
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句