R/TargetExperimentList-show.R

In gamerino/TarSeqQC: TARgeted SEQuencing Experiment Quality Control

#'@include TargetExperimentList-setters.R
#'@exportMethod show
#'@docType methods
#'@name show
#'@rdname TargetExperiment-show
#'@aliases show,TargetExperimentList-method
#'@note see full example in \code{\link{TargetExperimentList-class}}
#'@examples
#'## Loading the TargetExperimentList object
#'data(TEList, package="TarSeqQC")
#'show(TEList)
setMethod(f="show", signature=signature(object="TargetExperimentList"),
definition=function(object){
    cat("TargetExperimentList \n")
    cat(paste(getFeature(object), "panels: \n", sep=" "))
    if(length(getPanels(object)) > 0 ){
        cat("\t");show(getPanels(object)[1:min(3, length(getPanels(object)))]);
        cat("\n") 
    }else{
        getPanels(object)
    }
    cat("selected attribute: \n")
    cat("\t", getAttribute(object),"\n") 
})