आर: एक आंतरिक फ़ंक्शन

Question

पर अभिव्यक्ति उत्तीर्ण करना आर मूल्यांकन के रहस्यों में आगे बढ़ रहा है ... यह मेरे पिछले प्रश्न (How to write an R function that evaluates an expression within a data-frame) से निकटता से संबंधित है। मान लीजिए कि मैं एक फ़ंक्शन topfn लिखना चाहता हूं जो डेटा-फ्रेम और उस डेटा-फ्रेम के कॉलम-नामों वाली अभिव्यक्ति लेता है। मैं इन दोनों तर्कों को किसी अन्य फ़ंक्शन fn पर पास करना चाहता हूं जो वास्तव में डेटा-फ्रेम के "पर्यावरण" के भीतर अभिव्यक्ति का मूल्यांकन करता है। और मैं के रूप में ऊपर सवाल का जवाब में सुझाव दोनों fn और topfn सही ढंग से काम करने के लिए जब एक डेटा फ्रेम और एक अभिव्यक्ति

मेरा पहला प्रयास पारित कर दिया, चाहते हैं, परिभाषित करने के लिए है:

fn <- function(dfr, expr) { 
    mf <- match.call() 
    eval(mf$expr, envir = dfr) 
} 

और topfn इस तरह परिभाषित करते हैं:

topfn <- function(df, ex) { 
    mf <- match.call() 
    fn(df, mf$ex) 
} 

अब

अगर मैं एक डेटा फ्रेम

है 210

df <- data.frame(a = 1:5, b = 1:5) 

भीतरी समारोह fn ठीक काम करता है:

> fn(df,a) 
[1] 1 2 3 4 5 

लेकिन topfn काम नहीं करता:

> topfn(df,a) 
mf$ex 

इसे ठीक करने के मैं पहली बार topfn(df,a) के वर्ग की जाँच करें,

> class(topfn(df,a)) 
[1] "call" 

यह मुझेको फिर से परिभाषित करने के लिए एक बदसूरत हैक के लिए एक विचार देता हैइस प्रकार है:

fn <- function(dfr, expr) { 
    mf <- match.call() 
    res <- eval(mf$expr, envir = dfr) 
    if(class(res) == 'call') 
    eval(expr, envir = dfr) else 
    res 
} 

और अब दोनों फ़ंक्शन कार्य:

> fn(df,a) 
[1] 1 2 3 4 5 
> topfn(df,a) 
[1] 1 2 3 4 5 

जैसा कि मैंने कहा, यह एक बदसूरत हैक तरह दिखता है। क्या यह काम करने के लिए एक बेहतर तरीका (या अधिक मानक मुहावरे) है? मैंने लुमली के उत्सुकता से नामित मानक गैर-मानक मूल्यांकन नियम दस्तावेज़ http://developer.r-project.org/nonstandard-eval.pdf से परामर्श लिया है लेकिन इसे पढ़ने के बाद विशेष रूप से प्रबुद्ध नहीं किया गया था। उदाहरण के लिए देखे जा सकने वाले कार्यों के स्रोत-कोड के लिए कोई भी संकेतक भी उपयोगी होगा।

Answer 1

यह सबसे आसानी से भाव के बजाय topfn में गुजर तार से बचा जाता है।

topfn <- function(df, ex_txt) 
{ 
    fn(df, ex_txt) 
} 

fn <- function(dfr, expr_txt) 
{   
    eval(parse(text = expr_txt), dfr) 
} 

df <- data.frame(a = 1:5, b = 1:5) 
fn(df, "a")        
fn(df, "2 * a + b") 
topfn(df, "a")    
topfn(df, "2 * a + b") 

संपादित करें:

आप में उपयोगकर्ता पास भाव दे सकता है, लेकिन आपकी सुविधा के लिए नीचे तार का उपयोग करें।

बदलें topfn को

topfn <- function(df, ex) 
{ 
    ex_txt <- deparse(substitute(ex)) 
    fn(df, ex_txt) 
} 
topfn(df, a)    
topfn(df, 2 * a + b) 

किसी अन्य संपादन का: https:

topfn <- function(df, ex) 
{ 
    eval(substitute(fn(df, ex))) 
} 

fn <- function(dfr, expr) 
{   
    eval(substitute(expr), dfr) 
} 
fn(df, a)        
fn(df, 2 * a + b) 
topfn(df, a)    
topfn(df, 2 * a + b) 

Answer 2

आप तर्क इकट्ठा करने और उन्हें किसी अन्य समारोह में पास करने के लिए तीन बिंदुओं का उपयोग कर सकते हैं, क्या आपका मतलब है?

ftop=function(...) f(...) 
f=function(a,b) a[b] 

a=data.frame(b=10) 

ftop(a,"b") 

f(a,"b")