未使用的参数

Question

我想了解.SDcols 和.SD 的工作原理。我得到了以下函数，可以直接在数据表中应用，但不能通过lapply。我想知道是否有与.SD 等效的方法，它允许将多个参数传递给函数体。下面的代码总是给出“未使用的参数...”

DT <- data.table(a=1:10,b=2:11,c=3:12,ID=c(rep("A",5),rep("B",5)))
doSomething <- function(a,b,c){
tmp <- a/b
tmp2 <- sqrt(tmp)^2000000
tmp3 <- tmp2 + tmp
return(rep(tmp3,length(a)))
}
DT[,doSomething(a,b,c)] # works
DT[,lapply(.SD,doSomething,a,b,c),.SDcol=c("a","b","c")]
DT[,lapply(.SD,doSomething,a=a,b=b,c=c),.SDcol=c("a","b","c")]

Answer 1

如果我们需要使用.SD

out2 <- DT[, do.call(doSomething, .SD), .SDcols = a:c]

也可以写成

DT[, doSomething(.SD[[1]], .SD[[2]], .SD[[3]]), .SDcols = a:c]

-检查

out1 <- DT[,doSomething(a,b,c)] 
identical(out1, out2)
#[1] TRUE

---