# NOT RUN {
# load packages
library(data.table)
# generate data
dt <- data.table(sapply(setNames(letters, letters), function(x) {assign(x, rnorm(100))}))
dt2 <- copy(dt)
# drop variables by name
names(dt)
drop_columns(dt, letters[2:25])
names(dt)
# drop variables by column position
names(dt2)
drop_columns(dt2, seq(2, 25))
names(dt2)
# work with non-data.table objects
iris_df <- data.table(iris)
drop_columns(iris_df, "Species")
class(iris_df) <- "data.frame"
# }
Run the code above in your browser using DataLab