R/plotDegUpset-methods.R

In steinbaugh/DESeqAnalysis: Acid Genomics DESeq2 Analysis Utilities

#' @name plotDegUpset
#' @inherit AcidGenerics::plotDegUpset
#' @note Updated 2022-05-18.
#'
#' @inheritParams degPerContrast
#' @inheritParams AcidRoxygen::params
#' @inheritParams params
#' @param ... Passthrough arguments to `AcidPlots::plotUpset()`.
#'
#' @examples
#' data(deseq)
#'
#' ## DESeqAnalysis ====
#' plotDegUpset(deseq)
NULL



## Updated 2022-05-18.
`plotDegUpset,DESeqAnalysis` <- # nolint
    function(object,
             i = NULL,
             direction = c("both", "up", "down"),
             ...) {
        direction <- match.arg(direction)
        degs <- degPerContrast(
            object = object,
            i = i,
            direction = direction,
            return = "list"
        )
        list <- do.call(what = c, args = degs)
        names(list) <- makeNames(names(list), unique = TRUE)
        if (!any(bapply(X = list, FUN = hasLength))) {
            alertWarning("No DEGs to plot. Skipping.")
            return(invisible(NULL))
        }
        plotUpset(object = list, ...)
    }



#' @rdname plotDegUpset
#' @export
setMethod(
    f = "plotDegUpset",
    signature = signature(object = "DESeqAnalysis"),
    definition = `plotDegUpset,DESeqAnalysis`
)