R/intersect_all.R

In JasonDude16/FileCheckR: What the Package Does (One Line, Title Case)

#' Intersect all vectors
#'
#' @param ... atomic numeric vectors
#'
#' @return atomic vector of intersection of vectors
#' @export
#'
#' @examples
#' intersect_all(1:5, 3:6, 2:8)
intersect_all <- function(...) {
  purrr::reduce(list(...), dplyr::intersect)
}