R - Detectando expresiones

Question

¿Qué tipo de objeto se pasa al myFunc como x? No parece ser una expresión, ni una función y str simplemente lo evalúa. Entiendo que puedo usar force() para evaluar. Me pregunto si hay alguna forma de reunir más información sobre x sin evaluarlo.

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

Answer 1

puede utilizar match.call para la extracción de los argumentos:

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) 

Probablemente lo que necesito decir que { es una función de R, por lo {...} no es más que call.

Actualizado: ¿por qué no es xfunction mientras { es function:

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

f({1}) 

Answer 2

creo class que hacer el truco ... Ver docs.

EDIT: De acuerdo con la docs,

para {, el resultado de la última expresión evaluada

Lo que significa que la clase es la clase resultante de la evaluación, por lo que no apareciendo como una "expresión". Se pasa después de la evaluación.

Answer 3

Dason acaba de publicar una respuesta similar a esto en Talkstats.com para determinar si un objeto es una trama de datos o una lista (click here for a link to that post). Yo sólo lo extendió a una expresión que creo que se adapte a sus necesidades.

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