Tiny tweak to RowsVerticalSection print method.

insightsengineering · Dec 17, 2020 · 97ad55f · 97ad55f
1 parent cb16bee
commit 97ad55f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/00tabletrees.R b/R/00tabletrees.R
@@ -1594,7 +1594,7 @@ RowsVerticalSection = function(values,
 #' @method print RowsVerticalSection
 #' @export
 print.RowsVerticalSection <- function(x, ...) {
-  cat("in_rows object print method:\n----------------------------\n")
+  cat("RowsVerticalSection (in_rows) object print method:\n----------------------------\n")
   print(data.frame(
     row_name = attr(x, "row_names"),
     formatted_cell = vapply(x, format_rcell, character(1)),