R/intersect_all.R

In KSheu/ksheu.lib: KSheu Library1

Defines functions intersect_all

Documented in intersect_all

#' Intersects all lists
#' 
#' @param a,b... all lists to intersect
#' 
#' @return Returns a vector containing common items
#' 
#' @export

intersect_all <- function(a,b,...){
  Reduce(intersect, list(a,b,...))
}