R/show-methods.R

In acidgenomics/Cellosaurus: Cellosaurus

#' Show an object
#' @name show
#' @inherit methods::show params return title
#' @keywords internal
#' @note Updated 2023-08-23.
#'
#' @examples
#' data(cello)
#'
#' ## Cellosaurus ====
#' object <- cello
#' show(object)
NULL



## Updated 2023-08-23.
`show,Cellosaurus` <- # nolint
    function(object) {
        showHeader(object)
        showSlotInfo(list(
            "cells" = rownames(object),
            "date" = metadata(object)[["date"]],
            "release" = majorVersion(metadata(object)[["dataVersion"]])
        ))
    }



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