empty_vector_if_na function

Return an empty numeric if all elements are NA.