Find columns with all missing values

Question

I am writing a function, which needs a check on whether (and which!) column (variable) has all missing values (NA, ). The following is fr

Answer 1

To find the columns with all values missing

 allmisscols <- apply(dataset,2, function(x)all(is.na(x)));  
 colswithallmiss <-names(allmisscols[allmisscols>0]);    
 print("the columns with all values missing");    
 print(colswithallmiss);