r - data.table 不再通过引用更新

Question

这是一个函数

f <- function(orderData){
        colNames <- paste0("lim_",sort(unique(orderData[,XLM])))
        orderData[, (colNames):={lim_=factor(XLM);lapply(data.table(model.matrix(~ lim_:w_qalim + 0)), cumsum)}]
}

和一些示例数据

dt = data.table(XLM=sample(1L:300L,5e4,T), w_qalim=sample(1L:5L,5e4,T))
dt1 = data.table(XLM=sample(1L:300L,1e2,T), w_qalim=sample(1L:5L,1e2,T))

执行 f(dt) 不会通过引用在我的盒子上更新 dt 但 f(dt1) 会。是否预期/与 datatable.alloccol

有关

Answer 1

两种情况下数据表的长度都是2，truelength都是100:

> length(dt); truelength(dt)
[1] 2
[1] 100
> length(dt1); truelength(dt1)
[1] 2
[1] 100

但是，在 dt 的情况下 colNames 是 300，所以 2+300 超过了真实长度但是在 dt1 的情况下colNames 是 81 所以 2+81 不是。

您可以预先分配一个更大的真实长度，例如

alloc.col(dt, 1000)

或者你可以设置默认值，让所有的数据表都有一个更大的默认值:

options(datatable.alloccol = 1000)

参见?alloc.col,