Comportamento sconcertante di 'sostituto` in R

Question

Ragazzi, questo mi fa impazzire.

Questo funziona come previsto:

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

[[2]] 
[1] 33 

Ora, provate questo:

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

cosa sta succedendo qui? How on earth eval mette le mani sulla forma originale dell'espressione?

Answer 1

Causa quando si stampa fun in realtà è la sorgente di stampa della funzione (vedere attributes(fun)) che non è modificata da substitute.

Si noti che quando si definisce a o nel risultato della funzione dell'area di lavoro globale sono uguali.

È possibile visualizzare il codice effettivo della funzione tramite body(fun).

o confrontare:

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