diff --git a/DESCRIPTION b/DESCRIPTION index da1fd10..27b5cea 100644 --- a/DESCRIPTION +++ b/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", diff --git a/R/printing.R b/R/printing.R index 51ddb06..5c2115a 100644 --- a/R/printing.R +++ b/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) }