This function tests for completely NA columns
all_na(x)
x
any column in a dataframe
Returns boolean TRUE if column is all NA, FALSE if not
test <- all_na(c(NA, "a", NA))