data.table | .sd lapply несколько столбцов в `...` -Argument

Question

Как я могу использовать фиксированный определенный столбец в ... аргумент lapply(.SD, FUN, ...)

Пример

DT <- data.table(id_column = rnorm(10), 
       x1 = rnorm(10), x2 = rnorm(10), x3 = rnorm(10)) 
measure_col = paste0("x",1:3) 

DT[,lapply(.SD, cov, y=id_column), .SDcols = measure_col] 

Результаты в

Error in is.data.frame(y) : object 'id_column' not found 

Возможным обходным решением будет

DT[,lapply(.SD, cov, y = DT[,id_column]), .SDcols = measure_col] 
      x1   x2  x3 
1: 0.1703253 -0.2831533 0.3387133 

Есть ли лучший способ сделать это? Без привязки к у по y=DT[,id_column]

Answer 1

Проблема #495 решается теперь с this recent commit, теперь мы можем сделать это просто отлично:

require(data.table) # v1.9.7+ 
DT <- data.table(id_column = rnorm(10), x1 = rnorm(10), x2 = rnorm(10), x3 = rnorm(10)) 
measure_col = paste0("x",1:3)  
DT[,lapply(.SD, cov, y=id_column), .SDcols = measure_col] 
#    x1  x2   x3 
# 1: -0.03137294 0.1903654 -0.1493648