我目前在理解 eval 函数的行为时遇到了一些问题 - 特别是在未向其提供参数/使用默认参数 parent.fame() 时的 enclos/第三个参数。
name <- function(x){
print(substitute(x))
t <- substitute(x)
eval(t, list(a=7), parent.frame())
}
z <-5
name(a+z)
# returns 12, makes sense because this amounts to
# eval(a+z, list(a=7), glovalenv())
# however the return here makes no sense to me
name2 <- function(x){
print(substitute(x))
t <- substitute(x)
eval(t, list(a=7)) # third/enclosure argument is left missing
}
z <-5
name2(a+z)
# Also returns 12
我无法理解为什么第二次调用返回 12。根据我对 R 的理解,第二次调用应该会导致错误,因为
1)eval的默认第三个参数enclos=parent.frame(),没有指定。
2) 因此,parent.frame() 在 eval 的本地环境中求值。Hadley 在When/how/where is parent.frame in a default argumentinterpreted 中证实了这一点?
3) 因此,最后一个表达式应该解析为 eval(a+z, list(a=7), execution environment of name)
4) 这应该返回一个错误,因为 z 没有在 name 的执行环境中定义,也没有在 list(a=7) 中定义。
有人可以解释一下这个逻辑有什么问题吗?