पास वर्ण तर्क और मूल्यांकन

Question

मेरे पास एक लॉजिकल ऑपरेटर और एक संख्यात्मक मान है जो मैं एक समारोह में एक कथन के लिए एक तत्व के रूप में पास करना चाहता हूं (मैं सैकड़ों आर उपयोगकर्ताओं को चिल्ला रहा हूं; मैं ऐसा कभी नहीं करता लेकिन मुझे लगता है कि एक ऐसी स्थिति है यह ठीक है)।

as.numeric(rowSums(DF[, 1:6]) > 2) 

मैं जानता हूँ कि यह संभावना है eval और parse है, लेकिन उन्हें इस्तेमाल कभी नहीं तो वास्तव में समझ में नहीं आता कि कैसे उन्हें यहाँ का उपयोग करें:

DF <- mtcars 
overlap = "> 2" 
as.numeric(rowSums(DF[, 1:6]) overlap) 

मैं कैसे की तरह तीसरी लाइन का काम कर सकते हैं।

Answer 1

कुछ की तरह

Olap <- unlist(strsplit(overlap, " ")) 
Thresh <- as.numeric(Olap[2]) 
Comp <- match.fun(Olap[1]) 
Comp(rowSums(DF[,1:6]), Thresh) 

एक वैकल्पिक eval है और पार्स के रूप में आप का सुझाव दिया

What <- rowSums(DF[,1:6]) 

textcall <- sprintf(" What %s", overlap) 

exprcall <- parse(text = textcall) 

eval(exprcall) 

Answer 2

आप एक स्ट्रिंग के लिए पूरे अभिव्यक्ति कन्वर्ट करने के लिए है, तो एक अभिव्यक्ति पर पार्स पाठ परिवर्तित। अंत में, अभिव्यक्ति पर eval() को कॉल करें।

जैसे:

overlap <- "> 2" 

# Convert to string 
exprAsString <- paste0("as.numeric(rowSums(DF[, 1:6]) ", overlap, ")") 

# Convert to expression, using parse 
expr <- as.expression(parse(text=exprAsString)) 

# Then call eval() 
eval(expr) 

अनुरुप यह काम करता है:

identical(eval(expr), as.numeric(rowSums(DF[, 1:6]) > 2)) 
# [1] TRUE 

Answer 3

यह मेरे हमलों है कि, जबकि @mnel के समाधान अच्छा है, यह एक ऐसी स्थिति है कि बनाने के द्वारा हल किया जा सकता है body(dummy_function) को संशोधित करने के लिए एक तर्क के रूप में आपके मुख्य फ़ंक्शन के अंदर एक डमी फ़ंक्शन और अपनी इनपुट स्ट्रिंग (overlap) का उपयोग करके। यह बहुत साफ हो सकता है।