Modify glimpse() methods

Modify `glimpse()` methods for sample data and taxonomy tables to

- silently return the original object,
- first print the oneline summary from `oneline()` before running
  `tibble::glimpse()`, to make the phyloseq object type apparent in the
  output.

Fixes #77.

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: speedyseq
 Title: Faster implementations of phyloseq functions
-Version: 0.5.3.9020
+Version: 0.5.3.9021
 Authors@R: 
     person(given = "Michael",
            family = "McLaren",

R/printing.R

@@ -287,17 +287,21 @@ setMethod("oneline", "XStringSet", oneline.XStringSet)
 #' @importFrom tibble glimpse
 #' @export
 glimpse.sample_data <- function(x, width = NULL, ...) {
+  cat(oneline(x), fill = TRUE)
   x %>% 
     as("data.frame") %>% 
     tibble::glimpse(width = width, ...)
+  invisible(x)
 }
 
 #' @importFrom tibble glimpse
 #' @export
 glimpse.taxonomyTable <- function(x, width = NULL, ...) {
+  cat(oneline(x), fill = TRUE)
   x %>% 
     as.data.frame %>% 
     tibble::glimpse(width = width, ...)
+  invisible(x)
 }