Use some vctrs principle in `modify()` and friends

[hadley]

Or maybe this can be map_vec()?

modify.vector <- function(.x, .f, ...) {
  map_vec(.x, .f, ..., .ptype = .x)
}