R/print.R

In gson: Base Class and Methods for 'gson' Format

##' show method for `GSON` instance
##'
##' @name show
##' @docType methods
##' @rdname show-methods
##' 
##' @title show method
##' @param object A `GSON` object
##' @return message
##' @importFrom methods show
##' @exportMethod show
##' @usage show(object)
##' @author Guangchuang Yu \url{https://yulab-smu.top}
setMethod("show", signature(object="GSON"),
          function (object){
            print.GSON(object)
          }
)


##' @method print GSON
##' @export
print.GSON <- function(x, ...) {
  ngs <- length(unique(x@gsid2gene$gsid))
  ng <- length(unique(x@gsid2gene$gene))
  cat(
    ">> Gene Set: ", x@gsname, "\n", 
    ">> ",ng, " genes annotated by ", ngs, " gene sets.\n",
    ">> Species: ", x@species, "\n", 
    ">> Version: ", x@version, "\n",
    sep ="")
}


##' @method print GSONList
##' @export
print.GSONList <- function(x, ...) {
  cat(
    ">> a list of", length(x), "GSON objects.\n"
  )
}