Can you please use `vapply()` rather than `sapply()`?