library(data.table)
DT <- data.frame(matrix(nrow = 50, ncol = 10))
DT <- setDT(DT)
colnames(DT) <- paste(colnames(DT), "xx", sep = "")
DT <- DTcolsample(DT, kept = 1:8, remove = FALSE, low_mem = TRUE)
DT <- DTcolsample(DT, kept = 1:6, remove = TRUE, low_mem = TRUE)
Run the code above in your browser using DataLab