R - Rilevamento di espressioni

Question

Quale tipo di oggetto viene passato a myFunc come x? Non sembra essere un'espressione, né una funzione e lo basta solo valutarlo. Capisco che posso usare force() per valutare. Mi chiedo se c'è un modo per raccogliere più informazioni su x senza valutarlo.

myFunc = function(x) 
{ 
    is.expression(x)  
    is.function(x) 
    str(x) 
} 
myFunc({ x = 5; print(x + 1) }) 

Answer 1

È possibile utilizzare match.call per estrarre gli argomenti:

myFunc <- function(x) { 
    x <- match.call()$x 
    print(class(x)) 
    print(typeof(x)) 
    print(mode(x)) 
    print(storage.mode(x)) 
    print(is.expression(x)) 
    print(is.call(x)) 
    if (is.call(x)) print(x[[1]]) 
} 
myFunc({x = 5; print("a")}) 
myFunc(expression(x)) 
x <- factor(1) 
myFunc(x) 
myFunc(1) 

Probabilmente ho bisogno di dire che { è una funzione di R, quindi {...} non è altro che call.

Aggiornato: il motivo per cui non è xfunction mentre { è function:

f <- function(x) { 
    x <- match.call()$x 
    print(eval(x[[1]])) 
    print(is.function(eval(x[[1]]))) 
} 

f({1}) 

Answer 2

Penso class farebbe il trucco ... Vedere docs.

EDIT: Secondo il docs,

per {, il risultato dell'ultima espressione valutata

Il che significa che la classe è la classe risultante dalla valutazione, che è il motivo per cui non è mostrando come "espressione". Viene passato dopo la valutazione.

Answer 3

Dason appena pubblicato una risposta simile a questo su Talkstats.com per determinare se un oggetto è un frame di dati o un elenco (click here for a link to that post). Ho appena esteso ad un'espressione che credo si adatta alle vostre esigenze.

j.list <- function(list, by = NULL){ 
    print("list") 
    print(list) 
} 

j.data.frame <- function(df, ..., by = NULL){ 
    print("data frame") 
    print(df) 
} 


j.expression <- function(expression, by = NULL){ 
    print("expression") 
    print(expression) 
} 

j <- function(x, ...){ 
    UseMethod("j") 
} 

j(list(test = "this is a list")) 
j(data.frame(test = 1:10)) 
j(expression(1+ 0:9))