add anatModel printer

Mouse-Imaging-Centre · Jan 3, 2017 · 2a6ba4a · 2a6ba4a
1 parent f0dac72
commit 2a6ba4a
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 0 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -17,6 +17,7 @@ S3method(plot,bic_obj)
 S3method(plot,obj_mesh)
 S3method(print,RMINC_MASKED_VALUE)
 S3method(print,anatMatrix)
+S3method(print,anatModel)
 S3method(print,mincLmer)
 S3method(print,mincLogLikRatio)
 S3method(print,mincMultiDim)

diff --git a/R/minc_anatomy.R b/R/minc_anatomy.R
@@ -367,6 +367,15 @@ print.anatMatrix <- function(x, n = min(6, nrow(x)), width = min(6, ncol(x)), ..
   invisible(x)
 }
 
+#' @export
+print.anatModel <- function(x, n = min(6, nrow(x)), width = min(6, ncol(x)), ...){
+  cat("anatModel, showing ", n, " of ", nrow(x), " rows, and ", width, " of ", ncol(x), "columns\nprint more by supplying n and width to the print function\n")
+  sub_x <- x[seq_len(n), seq_len(width)]
+
+  print(sub_x)
+  invisible(x)
+}
+
 #' Create Anatomy data.frame
 #' 
 #' Convert an anatomy frame to data.frame for use with tidy tools