आर

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