将许多值传递给eval函数

Question

我正在使用eval来简化我的R代码：

Income = quote(ifelse(Cash > 0, Cash, 0))

MonthlyIncome = data[, sum(eval(Income)), by = month(Date)]

现在我正在寻找使用eval函数将多个列传递给data.table的解决方案，但是类似于：

x  = quote(column1, column2)

当然是不允许的。对许多列使用评估的任何解决方法？