Version of vetr that modifies functions

[brodieG]

This can also save us one of the match calls since we can do that on.load instead of at runtime:

f_vetr <- with_vetr(a=integer(1L), b=logical(1L) && !anyNA(.), function(a, b) ...)