Merge pull request #468 from dokato/printneuronlistz

[add] print method for neuronlistz

NAMESPACE

@@ -133,6 +133,7 @@ S3method(potential_synapses,neuronlist)
 S3method(print,dotprops)
 S3method(print,neuron)
 S3method(print,neuronlist)
+S3method(print,neuronlistz)
 S3method(prune,default)
 S3method(prune,dotprops)
 S3method(prune,neuron)

R/summary.R

@@ -139,3 +139,22 @@ print.neuronlist <- function(x, ...) {
       format(object.size(x), units='auto', standard="SI"), 
       "]", "\n", sep="")
 }
+
+#' @export
+print.neuronlistz <- function(x, ...) {
+  firstclass <- function(x) class(x)[[1]]
+
+  cat("'",firstclass(x),"'", " containing ", length(x),
+      " neurons ",
+      ifelse(length(x)==1, "object", "objects"), " ", sep=""
+  )
+  nc=ncol(as.data.frame(x))
+  cat("and 'data.frame' with ",nc,' vars [',
+      format(object.size(x), units='auto', standard="SI")
+      , ' in RAM].\n', sep="")
+  f_path=attr(x, "db")
+  f_size=format(structure(file.info(f_path)$size, class='object_size'),
+                units='auto',standard="SI")
+  cat("Loaded on demand from '", normalizePath(f_path), "' [",
+      f_size, " on disk].\n", sep="")
+}

tests/testthat/test-neuronlistz.R

@@ -8,6 +8,8 @@ test_that("neuronlistz works", {
   expect_true(is.neuronlist(nz <- neuronlistz(tf)))
   expect_equal(nz[1:5], Cell07PNs[1:5])
 
+  expect_output(print(nz), 'Loaded on demand.*on disk')
+
   tf2=tempfile(fileext = '.zip')
   on.exit(unlink(tf2), add = T)
   skip_if_not_installed('qs')