Delete rows in data.table which only contains NA value

Question

i have a question relating to deleting rows in data.table How can i delete rows in data.table which only contain NA values? There are some solutions here but it only works when it contains only numeric value. But my data also contains characteristic value so i can not use something like sumRows. Thanks for your help

Answer 1

We can use Reduce with is.na

dt[dt[,!Reduce(`&`, lapply(.SD, is.na))]]

data

dt <- data.table(col1 = c(1, NA, 2, NA, 3), col2 = c(2, NA, 3, 4, 5))

Answer 2

dt[apply(dt,1,function(r){!all(is.na(r))}),]