get dim_desc from trunc_mat

for tidyverse/tibble#19
krlmlr · Mar 18, 2016 · ae91470 · hadley · Mar 18, 2016 · krlmlr
1 parent 3a77c13
commit ae91470
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/R/tbl-sql.r b/R/tbl-sql.r
@@ -54,7 +54,10 @@ as.data.frame.tbl_sql <- function(x, row.names = NULL, optional = NULL,
 
 #' @export
 print.tbl_sql <- function(x, ..., n = NULL, width = NULL) {
-  cat("Source:   query ", dim_desc(x), "\n", sep = "")
+  cat("Source:   query ")
+  xm <- trunc_mat(x, n = n, width = width)
+  cat(dim_desc(xm), "\n", sep = "")
+
   cat("Database: ", src_desc(x$src), "\n", sep = "")
 
   grps <- op_grps(x$ops)
@@ -64,7 +67,7 @@ print.tbl_sql <- function(x, ..., n = NULL, width = NULL) {
 
   cat("\n")
 
-  print(trunc_mat(x, n = n, width = width))
+  print(xm)
   invisible(x)
 }