Make print a well-behave pipe

krlmlr · Nov 20, 2014 · 62469f7 · 62469f7
1 parent 785c1ae
commit 62469f7
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/R/tbl-df.r b/R/tbl-df.r
@@ -101,6 +101,8 @@ print.tbl_df <- function(x, ..., n = NULL, width = NULL) {
   cat("Source: local data frame ", dim_desc(x), "\n", sep = "")
   cat("\n")
   trunc_mat(x, n = n, width = width)
+
+  invisible(x)
 }
 
 #' @export