R/plotGenderMarkers-methods.R

In acidgenomics/minimalism: Acid Genomics Plot Functions and Themes

#' @name plotGenderMarkers
#' @inherit AcidGenerics::plotGenderMarkers
#' @note Currently only *Homo sapiens* and *Mus musculus* genomes are supported.
#' @note Updated 2022-03-07.
#'
#' @inheritParams plotCounts
#' @inheritParams AcidRoxygen::params
#' @param ... Passthrough to `plotCounts()`, with the `genes` argument
#' automatically defined.
#'
#' @examples
#' data(
#'     RangedSummarizedExperiment,
#'     SingleCellExperiment_splatter,
#'     package = "AcidTest"
#' )
#'
#' ## SummarizedExperiment ====
#' object <- RangedSummarizedExperiment
#' try({
#'     plotGenderMarkers(object)
#' })
#'
#' ## SingleCellExperiment ====
#' object <- SingleCellExperiment_splatter
#' try({
#'     plotGenderMarkers(object)
#' })
NULL



## Updated 2021-02-07.
`plotGenderMarkers,SE` <- # nolint
    function(object, style = "wide", ...) {
        ## Load the relevant internal gender markers data.
        organism <- organism(object)
        assert(isString(organism))
        organism <- camelCase(organism, strict = TRUE)
        markers <- readRDS(system.file(
            "extdata", "gender-markers.rds",
            package = .pkgName
        ))
        assert(
            is.list(markers),
            isSubset(organism, names(markers))
        )
        gr <- markers[[organism]]
        assert(
            is(gr, "GenomicRanges"),
            isSubset("geneId", names(mcols(gr)))
        )
        ## NOTE We're allowing mapping of genes without a perfect identifier
        ## version match here (e.g. "ENSG00000012817" to "ENSG00000012817.16").
        genes <- sort(decode(mcols(gr)[["geneId"]]))
        genes <- mapGenesToRownames(
            object = object,
            genes = genes,
            strict = FALSE
        )
        assert(
            isCharacter(genes),
            msg = "Failed to detect gender markers in object."
        )
        plotCounts(
            object = object,
            genes = genes,
            style = style,
            ...
        )
    }



## Updated 2020-02-19.
`plotGenderMarkers,SCE` <- # nolint
    function(object, ...) {
        plotGenderMarkers(
            object = aggregateCellsToSamples(object),
            ...
        )
    }



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

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