@@ -94,8 +94,34 @@ setAs("SummarizedExperiment", "poplin", function(from) {

 ##' @importFrom S4Vectors coolcat

 .poplin_show <- function(object) {

-  callNextMethod()

+  ## callNextMethod()

+  cat("class:", class(object), "\n")

+  cat("dim:", dim(object), "\n")

+  ## metadata()

+  expt <- names(metadata(object))

+  if (is.null(expt))

+    expt <- character(length(metadata(object)))

+  coolcat("metadata(%d): %s\n", expt)

+  ## rownames()

+  rownames <- rownames(object)

+  if (!is.null(rownames)) coolcat("rownames(%d): %s\n", rownames)

+  else cat("rownames: NULL\n")

+  ## rowData`()

+  coolcat("rowData names(%d): %s\n", names(rowData(object, use.names=FALSE)))

+  ## colnames()

+  colnames <- colnames(object)

+  if (!is.null(colnames)) coolcat("colnames(%d): %s\n", colnames)

+  else cat("colnames: NULL\n")

+  ## colData()

+  coolcat("colData names(%d): %s\n", names(colData(object)))

+  ## assays() -> alias: poplin_raw()

+  nms <- assayNames(object)

+  if (is.null(nms))

+    nms <- character(length(assays(object, withDimnames=FALSE)))

+  coolcat("poplinRawData(%d): %s\n", nms)

+  ## poplin_data()

   coolcat("poplinData names(%d): %s\n", poplin_data_names(object))

+  ## poplin_reduced()

   coolcat("poplinReducedData names(%d): %s\n", poplin_reduced_names(object))

 }