R: pasando la expresión a una función interna

Question

Profundizando en los misterios de la evaluación R ... Esto está estrechamente relacionado con mi pregunta anterior (How to write an R function that evaluates an expression within a data-frame). Digamos que quiero escribir una función topfn que tome un marco de datos y una expresión que implique nombres de columna de ese marco de datos. Quiero pasar ambos argumentos a otra función fn que realmente evalúa la expresión dentro del "entorno" del marco de datos. Y quiero tanto fn y topfn para que funcione correctamente cuando se pasa una trama de datos y una expresión

Mi primer intento, como se sugiere en la respuesta a la pregunta anterior, es definir:

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

topfn y definir así:

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

Ahora bien, si tengo una trama de datos

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

la función interna fn funciona bien:

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

Pero el topfn no funciona:

> topfn(df,a) 
mf$ex 

Para solucionar este primera vez que se comprueba la clase de topfn(df,a),

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

Esto me da una idea para un hack feo para redefinir fn de la siguiente manera:

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

Y ahora ambas funciones de trabajo:

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

Como ya he dicho, esto se ve como un truco feo. ¿Hay una mejor manera (o más lenguaje estándar) para que funcionen? He consultado el documento de normas de evaluación no estándar estándar curiosamente nombrado de Lumley http://developer.r-project.org/nonstandard-eval.pdf, pero no fui particularmente esclarecido después de leerlo. También son útiles los indicadores del código fuente de funciones que puedo consultar para ver ejemplos.

Answer 1

Esto es más fácilmente evitados por las cuerdas que pasan en topfn en lugar de expresiones.

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") 

EDIT:

Usted puede dejar que las expresiones de paso de usuario en, pero el uso de cadenas por debajo de su conveniencia.

Cambio topfn a

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

otra edición:

Esto parece funcionar:

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

Puede usar tres puntos para juntar argumentos y pasarlos a otra función, ¿es eso lo que quiere decir?

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

a=data.frame(b=10) 

ftop(a,"b") 

f(a,"b")