glimpse now (invisibly) returns x, so glimpse can be used within a ch…

…ain of dplyr verbs.

R/glimpse.R

@@ -13,6 +13,8 @@
 #' @param x An object to glimpse at.
 #' @param width Width of output: defaults to the width of the console.
 #' @param ... Other arguments passed onto individual methods.
+#' @return x original x is (invisibly) returned, allowing \code{glimpse} to be
+#' used within a data pipe line.
 #' @export
 #' @examples
 #' glimpse(mtcars)
@@ -49,6 +51,7 @@ glimpse.tbl <- function(x, width = getOption("width"), ...) {
   truncated <- str_trunc(formatted, data_width)
 
   cat(paste0(var_names, truncated, collapse = "\n"), "\n", sep = "")
+  invisible(x)
 }
 
 #' @export
@@ -57,6 +60,7 @@ glimpse.data.frame <- glimpse.tbl
 #' @export
 glimpse.default <- function(x, width = getOption("width"), max.level = 3, ...) {
   str(x, width = width, max.level = max.level, ...)
+  invisible(x)
 }
 
 str_trunc <- function(x, max_width) {