R/intersectAll-methods.R

In acidgenomics/AcidBase: Acid Genomics Base Functions

#' @name intersectAll
#' @inherit AcidGenerics::intersectAll
#' @note Updated 2020-08-18.
#'
#' @inheritParams AcidRoxygen::params
#' @param ... Additional arguments.
#'
#' @examples
#' object <- list(
#'     a = c("a", "b", "c", "d", "e", "f"),
#'     b = c("b", "c", "d", "e", "f", "g"),
#'     c = c("c", "d", "e", "f", "g", "h")
#' )
#' intersectAll(object)
NULL



## Updated 2020-08-18.
`intersectAll,list` <- # nolint
    function(object) {
        Reduce(f = intersect, x = object)
    }



#' @rdname intersectAll
setMethod(
    f = "intersectAll",
    signature = signature(object = "list"),
    definition = `intersectAll,list`
)