R/summarise.R

In YuLab-SMU/clusterProfiler.dplyr: 'dplyr' Verbs for 'clusterProfiler' Results

##' @method summarise enrichResult
##' @export
summarise.enrichResult <- function(.data, ...) {
    dots <- quos(...)
    .data@result %>% summarise(!!!dots)
}


##' @method summarise gseaResult
##' @export
summarise.gseaResult <- summarise.enrichResult

##' @method summarise compareClusterResult
##' @export
summarise.compareClusterResult <- function(.data, ...) {
    dots <- quos(...)
    .data@compareClusterResult %>% summarise(!!!dots)
}