Что мне здесь не хватает?
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
Что происходит? Я запускаю R 2.15.0 и data.table 1.8.9.
UPDATE (eddi): По сравнению с версия 1.8.11 это исправлено, а .SD - не требуется в случаях, когда выражение может быть оценено на месте, как в OP. Поскольку в настоящее время наличие .SD вызывает конструкцию полного .SD, это приведет к значительно более быстрым скоростям в некоторых случаях.
Что происходит, так это то, что вызовы eval() обрабатываются иначе, чем вы, вероятно, себе представляете в коде, который реализует [.data.table(). В частности, [.data.table() содержит специальные ветки оценки для выражений i и j, которые начинаются с символа eval. Когда вы завершаете вызов eval внутри вызова sum(), eval больше не является первым элементом анализируемого/замещенного выражения, а специальная ветвь оценки пропускается.
Вот бит кода в функции монстра, отображаемый при вводе getAnywhere("[.data.table"), который делает специальную учетную запись для вызовов eval(), переданных через [.data.table() j -argument:
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]]
}
Как обходной путь, либо следуйте примеру в data.table FAQ 1.6 (pdf здесь), или явно укажите eval() в сторону .SD, локальная переменная, которая содержит столбцы любой таблицы данных, на которой вы работаете (здесь d). (Для более подробного объяснения роли .SD см. Первые несколько абзацев этого ответа).
d[, sum(eval(quoted_a, envir=.SD))]