按名稱傳遞變量分配到右手邊：=在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