findInterval and return factor with label

instead of numeric vector like the base version

findInterval2(x, vec, factor = TRUE, ...)