R中"替代"的令人困惑的行为

Question

伙计们,这让我发疯了.

这按预期工作:

eobj <- substitute(obj <- list(a, b), list(a = 32, b = 33))
eval(eobj)
obj
[[1]]
[1] 32

[[2]]
[1] 33

现在,试试这个:

efun <- substitute(fun <- function() a+ b, list(a = 32, b = 33))
str(efun)
# language fun <- function() 32 + 33  
eval(efun)
fun
# function() a+ b

这里发生了什么？究竟是怎么eval把它放在表达的原始形式上？

Answer 1

打印fun时的原因实际上是打印的功能源(请参阅参考资料attributes(fun)),该功能未被修改substitute.

请注意,在定义a或b在全局工作空间中,函数结果是相同的.

你可以看到实际的功能代码body(fun).

或比较:

print.function(fun, useSource=FALSE)
# function () 
# 32 + 33
print.function(fun, useSource=TRUE) # Which is default
# function() a+ b