Oszołamiające zachowanie `namiastki` w R

Question

Faceci, to doprowadza mnie do szału.

To działa zgodnie z oczekiwaniami:

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

[[2]] 
[1] 33 

Teraz spróbuj tego:

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

Co tu się dzieje? Jak na Ziemi eval dostaje ręce na oryginalną formę wyrażenia?

Answer 1

Powoduje, że podczas drukowania fun jest to właściwie drukowane źródło funkcji (patrz attributes(fun)), które nie jest modyfikowane przez substitute.

Należy zauważyć, że po zdefiniowaniu a lub b w globalnym obszarze roboczym wynik funkcji jest taki sam.

Aktualny kod funkcji można zobaczyć pod numerem body(fun).

Albo porównać:

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