R/plotGenderMarkers-methods.R

In hbc/bcbioRnaseq: Bcbio RNA-Seq

#' @name plotGenderMarkers
#' @author Michael Steinbaugh
#' @inherit AcidPlots::plotGenderMarkers
#' @note Updated 2022-03-07.
#'
#' @inheritParams plotCounts
#' @inheritParams AcidRoxygen::params
#' @param ... Passthrough to `SummarizedExperiment` method defined in AcidPlots.
#' See `AcidPlots::plotGenderMarkers()` for details.
#'
#' @examples
#' data(bcb)
#'
#' ## bcbioRNASeq ====
#' ## Simulate expression of sexually dimorphic gender marker genes.
#' rownames(bcb)[seq_len(2L)] <- c("ENSMUSG00000086503", "ENSMUSG00000069045")
#' plotGenderMarkers(bcb)
NULL



## Updated 2019-09-16.
`plotGenderMarkers,bcbioRNASeq` <- # nolint
    function(object, normalized, ...) {
        do.call(
            what = plotGenderMarkers,
            args = .normalizedPlotArgs(
                object = object,
                normalized = match.arg(normalized),
                ...
            )
        )
    }

formals(`plotGenderMarkers,bcbioRNASeq`)[["normalized"]] <- # nolint
    .normalized



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