Fix tail warnings. make all print and show methods silently return obj.

NAMESPACE

@@ -194,6 +194,7 @@ importFrom(stats,prop.test)
 importFrom(stats,quantile)
 importFrom(stats,relevel)
 importFrom(stats,setNames)
+importFrom(utils,compareVersion)
 importFrom(utils,head)
 importFrom(utils,head.matrix)
 importFrom(utils,tail)

R/00tabletrees.R

@@ -1553,6 +1553,7 @@ CellValue = function(val, format = NULL, colspan = 1L, label = NULL, indent_mod
 #' @export
 print.CellValue <- function(x, ...) {
     cat(paste("rcell:", format_rcell(x), "\n"))
+    invisible(x)
 }
 
 ## too slow
@@ -1602,6 +1603,7 @@ print.RowsVerticalSection <- function(x, ...) {
     stringsAsFactors = FALSE,
     row.names = NULL
   ), row.names = TRUE)
+  invisible(x)
 }
 
 

R/tt_pos_and_access.R

@@ -809,10 +809,15 @@ extract_colvals = function(tt, j) {
 
 }
 
+#' @importFrom utils compareVersion
+
 setGeneric("tail", tail)
 setMethod("tail", "VTableTree",
           function(x, n = 6L, ...) {
-    tail.matrix(x, n, addrownums = FALSE)
+    if(compareVersion("4.0.0", as.character(getRversion())) <= 0)
+        tail.matrix(x, n, keepnums = FALSE)
+    else
+        tail.matrix(x, n, addrownums = FALSE)
 })
 
 setGeneric("head", head)

R/tt_showmethods.R

@@ -207,13 +207,15 @@ setMethod("show", "PreDataColLayout",
           function(object) {
     cat("A Pre-data Column Layout Object\n\n")
     docat_predataxis(object)
+    invisible(object)
 })
 
 
 setMethod("show", "PreDataRowLayout",
           function(object) {
     cat("A Pre-data Row Layout Object\n\n")
     docat_predataxis(object)
+    invisible(object)
 })
 
 
@@ -225,6 +227,7 @@ setMethod("show", "PreDataTableLayouts",
     cat("\nRow-Split Structure:\n")
     docat_predataxis(object@row_layout)
     cat("\n")
+    invisible(object)
 })
 
 
@@ -238,6 +241,7 @@ setMethod("show", "TreePos",
 
     msg = paste(chars, collapse = " -> ")
     cat("An object of class ", class(object), "\n\n", msg)
+    invisible(object)
 })
 
 
@@ -253,7 +257,6 @@ setMethod("show", "InstantiatedColumnInfo",
                         collapse = ", ")),
         "",
         sep = "\n")
-
     invisible(object)
 })
 
@@ -267,7 +270,8 @@ setMethod("print", "VTableTree", function(x, ...) {
 
 #' @rdname int_methods
 setMethod("show", "VTableTree", function(object) {
-  cat(toString(object))
+    cat(toString(object))
+    invisible(object)
 })
 
 
@@ -278,4 +282,5 @@ setMethod("show", "TableRow", function(object) {
                 obj_label(object),
                 paste(as.vector(get_formatted_cells(object)),
                       collapse = "   ")))
+    invisible(object)
 })