R/dplyr-arrange.R

In hurlab/RichR: Function Enrichment analysis and Network construction

##' @importFrom dplyr arrange
##' @importFrom magrittr %<>%
##' @method arrange richResult
##' @export
arrange.richResult<- function(.data, ...) {
    dots <- quos(...)
    .data@result%<>%arrange(!!!dots,)
    return(.data)
}

##' @method arrange GSEAResult
##' @export
arrange.GSEAResult <- arrange.richResult
##' @importFrom dplyr arrange
##' @importFrom magrittr %<>%
##' @method arrange Annot
##' @export
arrange.Annot<- function(.data, ...) {
  dots <- quos(...)
  .data@annot%<>%arrange(!!!dots,)
  return(.data)
}