unlist(lapply) --> vapply)