R/utils.R

fast_intersect <- function(x, y) {
  if (length(x) > length(y)) {
    intersect(y, x)
  } else {
    intersect(x, y)
  }
}

Try the bindr package in your browser

Any scripts or data that you put into this service are public.

bindr documentation built on May 2, 2019, 4:22 a.m.