[Solved] What is the substitute idiom for sapply in data.table? [duplicate]

Warning, a very large table will be created!

dt <- as.data.table(matrix(runif(1000*1000000),ncol=1000))
dt[,lapply(.SD,max)]