如何在函数内部使用data.table？

Question

例如,作为一个最小的工作示例,我希望能够动态地将表达式传递给data.table对象以创建新列或修改现有列:

dt <- data.table(x = 1, y = 2)
dynamicDT <- function(...) {
    dt[, list(...)]
}
dynamicDT(z = x + y)

我在期待:

   z
1: 3

但相反,我得到错误:

Error in eval(expr, envir, enclos) : object 'x' not found 

那么我该如何解决这个问题呢？

尝试:

我看过这篇文章,建议使用quote或substitute,但是

> dynamicDT(z = quote(x + y))
Error in `rownames<-`(`*tmp*`, value = paste(format(rn, right = TRUE),  : 
  length of 'dimnames' [1] not equal to array extent

要么

> dynamicDT <- function(...) {
+     dt[, list(substitute(...))]
+ }
> dynamicDT(z = x + y)
Error in prettyNum(.Internal(format(x, trim, digits, nsmall, width, 3L,  : 
  first argument must be atomic

没有为我工作.

Answer 1

这应该是David回答的更好的替代方案:

dynamicDT <- function(...) {
 dt[, eval(substitute(...))]
}

dynamicDT(z := x + y)
#   x y z
#1: 1 2 3