# NOT RUN {
library(data.table)
inputDT <- as.data.table(data.frame(x = seq(1L, 20L, 2L), y = LETTERS[1:10]))
asFactorDT(inputDT, c('y'))
isIntegerDT(inputDT)
isIntegerDT(inputDT, c('x', 'y'))
isIntegerDT(inputDT, returnNames = TRUE)
isIntegerDT(inputDT, 'x')
# }
# NOT RUN {
isIntegerDT(inputDT, c('x', 'y1'))
# }
Run the code above in your browser using DataLab