evaluar y cotizar en data.table

Question

¿Que me estoy perdiendo aqui?

d = data.table(a = 1:5)

d[, a]                   # 1 2 3 4 5
d[, sum(a)]              # 15

d[, eval(quote(a))]      # 1 2 3 4 5
d[, sum(eval(quote(a)))] # 15

quoted_a = quote(a)
d[, eval(quoted_a)]      # 1 2 3 4 5
d[, sum(eval(quoted_a))] # Error in eval(expr, envir, enclos) : object ''a'' not found

Que esta pasando? Estoy ejecutando R 2.15.0 y data.table 1.8.9 .

Answer 1

ACTUALIZACIÓN (eddi): A partir de la versión 1.8.11, esto se ha corregido y no se necesita .SD en los casos en que la expresión se puede evaluar en su lugar, como en OP. Dado que la presencia actual de .SD activa la construcción de .SD completo, esto resultará en velocidades mucho más rápidas en algunos casos.

Lo que sucede es que las llamadas a eval() se tratan de forma diferente de lo que probablemente imaginas en el código que implementa [.data.table() . Específicamente, [.data.table() contiene ramas de evaluación especiales para las expresiones i y j que comienzan con el símbolo eval . Cuando ajusta la llamada a eval dentro de una llamada a sum() , eval ya no es el primer elemento de la expresión analizada / sustituida, y la rama de evaluación especial se omite.

Aquí está el bit de código en la función de monstruo que se muestra al escribir getAnywhere("[.data.table") que hace una asignación especial para las llamadas a eval() pasan a través del [.data.table() j [.data.table() ''

jsub = substitute(j)
    ...
    # Skipping some lines
    ...
jsubl = as.list.default(jsub)
if (identical(jsubl[[1L]], quote(eval))) {  # The test for eval ''on the outside'' 
    jsub = eval(jsubl[[2L]], parent.frame(), parent.frame())
    if (is.expression(jsub)) 
        jsub = jsub[[1L]]
}

Como solución alternativa, siga el ejemplo en data.table FAQ 1.6 ( pdf aquí ), o apunte explícitamente eval() hacia .SD , la variable local que contiene columnas de cualquier dato.tabla en la que esté operando (aquí d ). (Para obtener una explicación más detallada del .SD de .SD , consulte los primeros párrafos de esta respuesta ).

d[, sum(eval(quoted_a, envir=.SD))]