R/utils.R

Defines functions fast_intersect

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 April 4, 2025, 5:08 a.m.