Perché la valutazione lazy non funziona in questa funzione R?

Question

Eventuali duplicati:
How to write an R function that evaluates an expression within a data-frame

Voglio scrivere una funzione che ordina un data.frame - invece di usare l'ordine ingombrante(). Dato qualcosa come

> x=data.frame(a=c(5,6,7),b=c(3,5,1)) 
> x 
    a b 
1 5 3 
2 6 5 
3 7 1 

voglio dire qualcosa come:

sort.df(x,b) 

Quindi, ecco la mia funzione:

sort.df <- function(df, ...) { 
    with(df, df[order(...),]) 
} 

ero davvero orgoglioso di questo. Data la pigra valutazione di R, ho pensato che il parametro ... sarebbe stato valutato solo quando necessario - e a quel punto sarebbe stato in ambito, a causa di 'con'.

Se eseguo direttamente la riga 'with', funziona. Ma la funzione no.

> with(x,x[order(b),]) 
    a b 
3 7 1 
1 5 3 
2 6 5 
> sort.df(x,b) 
Error in order(...) : object 'b' not found 

Cosa c'è che non va e come risolverlo? Per esempio, vedo spesso questo tipo di "magia" in pacchetti come plyr. Qual è il trucco?

Answer 1

E 'perché quando si sta passando b si sta effettivamente non passaggio di un oggetto. Metti un browser all'interno della tua funzione e vedrai cosa intendo. L'ho rubato da qualche robot Internet da qualche parte:

x=data.frame(a=c(5,6,7),b=c(3,5,1)) 

sort.df <- function(df, ..., drop = TRUE){ 
    ord <- eval(substitute(order(...)), envir = df, enclos = parent.frame()) 
    return(df[ord, , drop = drop]) 
} 

sort.df(x, b) 

funzionerà.

così sarà, se siete alla ricerca di un bel modo per fare questo in senso applicata:

library(taRifx) 
sort(x, f=~b) 

Answer 2

Questo farà quello che vuoi:

sort.df <- function(df, ...) { 
    dots <- as.list(substitute(list(...)))[-1] 
    ord <- with(df, do.call(order, dots)) 
    df[ord,] 
} 

## Try it out 
x <- data.frame(a=1:10, b=rep(1:2, length=10), c=rep(1:3, length=10)) 
sort.df(x, b, c) 

E così sarà questo:

sort.df2 <- function(df, ...) { 
    cl <- substitute(list(...)) 
    cl[[1]] <- as.symbol("order") 
    df[eval(cl, envir=df),] 
} 
sort.df2(x, b, c)