Untuk memadamkan barisan di data.table menggunakan reference seperti penggunaan .SD
masih belum dilaksanakan. Cara ini diambil dari perbincangan di GitHub data.table. Fungsi delete
dibuat seperti begini:
delete <- function(DT, del.idxs) { # pls note 'del.idxs' vs. 'keep.idxs'
keep.idxs <- setdiff(DT[, .I], del.idxs); # select row indexes to keep
cols = names(DT);
DT.subset <- data.table(DT[[1]][keep.idxs]); # this is the subsetted table
setnames(DT.subset, cols[1]);
for (col in cols[2:length(cols)]) {
DT.subset[, (col) := DT[[col]][keep.idxs]];
DT[, (col) := NULL]; # delete
}
return(DT.subset);
}
Cara pemakaiannya ialah seperti dibawah. Barisan yang dibuang di DT
memerlukan indeks barisan. Untuk dapatkan indeks untuk barisan yang ingin dipadakan boleh dibaca di baway tajuk duplikasi.
DT <- delete(DT, del.idxs)