无法在 data.table [,:=] 函数中使用 eval(parse(...))

Question

我不确定我是否在这里犯了错误（使用eval(parse(...)) 的危险），但在这里我尝试在更新data.table 列时使用eval(parse(...))，这会产生错误。下面是我的代码。

require(data.table)
# Loading required package: data.table
# data.table 1.9.2  For help type: help("data.table")
DT<-data.table(x=seq(1,10,1),
               y=seq(2,20,2))
DT[,y:=y*eval(parse(text="1*2"))] #Doesn't work
# Error in y * expression(1 * 2) : non-numeric argument to binary operator
variable <- eval(parse(text="1*2"))
DT[,y:=y*variable] #Works
DT
#     x  y
# 1:  1  4
# 2:  2  8
# 3:  3 12
# 4:  4 16
# 5:  5 20
# 6:  6 24
# 7:  7 28
# 8:  8 32
# 9:  9 36
#10: 10 40

Answer 1

这种行为，bug #5423，现在在 data.table v1.9.3 的当前开发版本的提交 #1234 中得到修复。来自NEWS：

o DT[,y := y * eval(parse(text="1*2"))] 导致错误，除非 eval() 用括号括起来。即DT[,y := y * (eval(parse(text="1*2")))]。现在已修复，关闭 #5423。感谢 Wet Feet 的报告和 Simon O'Hanlon 发现问题here on SO。

---

无论您为什么要这样做以及相对优点与否，这都是关于优先顺序的。您需要将整个 eval(parse(text="1*2")) 包裹在一组括号中，以确保在您尝试将其乘以 y...

之前对其进行评估

DT[,y:=y*(eval(parse(text="1*2")))] 
#     x  y
# 1:  1  4
# 2:  2  8
# 3:  3 12
# 4:  4 16
# 5:  5 20
# 6:  6 24
# 7:  7 28
# 8:  8 32
# 9:  9 36
#10: 10 40

不带括号的data.table::":=" 试图将y 与expression 对象相乘，这将导致语法错误。