删除数据表中仅包含NA的列

Question

我有一个data.table，其中一些列只包含NA。我想删除这些列。

我尝试this，但似乎不适用于data.table类。

编辑：

library('data.table')
dat = data.table(a = rep(NA, 10), b = 1:10)
dat
     a  b
 1: NA  1
 2: NA  2
 3: NA  3
 4: NA  4
 5: NA  5
 6: NA  6
 7: NA  7
 8: NA  8
 9: NA  9
10: NA 10
dat[, ( colSums(is.na(dat)) != nrow(dat) ) := NULL]

  

[.data.table中的错误（dat ,, :=（（colSums（is.na（dat））！= nrow（dat））,:         LHS：=不是列名（＆＃39;字符＆＃39;）或位置（＆＃39;整数＆＃39;或＆＃39;数字＆＃39;）