diff --git a/R/tbl-sql.r b/R/tbl-sql.r index eb6d262a54..463dc95065 100644 --- 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) }