r - 按名称将变量传递到赋值的右侧：= data.table

Question

我想按名称将变量传递给 data.table X，如下所示：

myfunc <- function(varname){
  X[, newVar:= varname]
}
myfunc("oldVar")

我应该怎么做？我试过quote()了eval()，但没有用。

Answer 1

将列查找为向量，并将其用于分配：

myfunc <- function(varname){
  X[, newVar := X[[varname]]]
}

X <- data.table(oldVar=1:4, b=5:8)

> myfunc("oldVar")
   oldVar b newVar
1:      1 5      1
2:      2 6      2
3:      3 7      3
4:      4 8      4