Подскажите, пожалуйста, что здесь не так? Я пытаюсь извлечь все столбцы, где все элементы одинаковы, но это не работает

Question

мой набор данных называется "поезд". Я пытаюсь извлечь столбцы, где каждый элемент одинаков. Но R выдает ошибку.

silly_var<-list()
for (i in 1:ncol(train)) {
  for (j in 1:nrow(train)){
    if (train[1,i]!="NA"){
      if (train[j,i]=="NA") break 
      if (train[j,i]==train[1,i]) {
        if (j == nrow(train)) list.append(silly_var,colnames(train)[i])
      }else break
    }else
    {
       if (train[j,i]=="NA") {
         if (j==nrow(train)) list.append(silly_var,colnames(train)[i])
       }else break   
        }
  }
}

Это сообщение об ошибке, которое я получаю.

Error in if (train[j, i] == "NA") break : 
  missing value where TRUE/FALSE needed