Найти столбцы со всеми пропущенными значениями

Я пишу функцию, которая нуждается в проверке на то, (и какие! )столбец (переменная )имеет все пропущенные значения(NA,<NA>). Ниже приведен фрагмент функции:

test1 <- data.frame (matrix(c(1,2,3,NA,2,3,NA,NA,2), 3,3))
test2 <- data.frame (matrix(c(1,2,3,NA,NA,NA,NA,NA,2), 3,3))

na.test <-  function (data) {
  if (colSums(!is.na(data) == 0)){
      stop ("The some variable in the dataset has all missing value,
     remove the column to proceed")
      }
      }
na.test (test1)

Warning message:
In if (colSums(!is.na(data) == 0)) { :
  the condition has length > 1 and only the first element will be used

Q1:Почему указанная выше ошибка и какие-либо исправления?

Q2:Есть ли способ узнать, в каком из столбцов есть все NA, например, вывести список (имя переменной или номер столбца )?