Add showAsCell() method for SummarizedExperiment objects

Author: hpages

DESCRIPTION

@@ -8,7 +8,7 @@ biocViews: Genetics, Infrastructure, Sequencing, Annotation, Coverage,
 	GenomeAnnotation
 URL: https://bioconductor.org/packages/SummarizedExperiment
 BugReports: https://github.com/Bioconductor/SummarizedExperiment/issues
-Version: 1.23.0
+Version: 1.23.1
 License: Artistic-2.0
 Encoding: UTF-8
 Author: Martin Morgan, Valerie Obenchain, Jim Hester, Hervé Pagès

NAMESPACE

@@ -49,6 +49,7 @@ exportMethods(
     updateObject,
 
     ## Generics defined in S4Vectors:
+    showAsCell,
     "metadata<-",
     parallel_slot_names, vertical_slot_names, horizontal_slot_names,
     mcols, "mcols<-",

R/SummarizedExperiment-class.R

@@ -689,6 +689,10 @@ setMethod("show", "SummarizedExperiment",
     coolcat("colData names(%d): %s\n", names(colData(object)))
 })
 
+setMethod("showAsCell", "SummarizedExperiment",
+    function(object) rep.int("####", NROW(object))
+)
+
 
 ### - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 ### Combine

man/SummarizedExperiment-class.Rd

@@ -62,6 +62,7 @@
 
 % Display
 \alias{show,SummarizedExperiment-method}
+\alias{showAsCell,SummarizedExperiment-method}
 
 % Combine
 \alias{rbind,SummarizedExperiment-method}