character(1) in vapply