Find Columns Which Have A Missing Value

sapply(oa, function(x) sum(is.na(x))

apply(is.na(oa),2,sum)


sapply(oa,function(x) all(is.na(x)))

colnames(oa)[colSums(is.na(oa))>0]