From 29cafd7118ed24cd9a0741afb30d5159aa792b3b Mon Sep 17 00:00:00 2001 From: Michael McLaren Date: Sat, 20 Apr 2024 16:23:01 -0400 Subject: [PATCH] Fix print error Resolves #76 --- DESCRIPTION | 2 +- R/printing.R | 8 ++++---- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index d22c391..da1fd10 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,6 +1,6 @@ Package: speedyseq Title: Faster implementations of phyloseq functions -Version: 0.5.3.9019 +Version: 0.5.3.9020 Authors@R: person(given = "Michael", family = "McLaren", diff --git a/R/printing.R b/R/printing.R index f8c871c..51ddb06 100644 --- a/R/printing.R +++ b/R/printing.R @@ -244,25 +244,25 @@ oneline <- function(x) { oneline.otu_table <- function(x) { stringr::str_glue( - "OTU Table: [ {ntaxa(x)} taxa and {nsamples(x)} samples ]:", + "OTU Table: [ {ntaxa(x)} taxa and {nsamples(x)} samples ]:" ) } oneline.sample_data <- function(x) { stringr::str_glue( - "Sample Data: [ {dim(x)[1]} samples by {dim(x)[2]} sample variables ]:", + "Sample Data: [ {dim(x)[1]} samples by {dim(x)[2]} sample variables ]:" ) } oneline.taxonomyTable <- function(x) { stringr::str_glue( - "Taxonomy Table: [ {dim(x)[1]} taxa by {dim(x)[2]} taxonomic ranks ]:", + "Taxonomy Table: [ {dim(x)[1]} taxa by {dim(x)[2]} taxonomic ranks ]:" ) } oneline.phylo <- function(x) { stringr::str_glue( - "Phylogenetic Tree: [ {ntaxa(x)} tips and {phy_tree(x)$Nnode} internal nodes ]:", + "Phylogenetic Tree: [ {ntaxa(x)} tips and {phy_tree(x)$Nnode} internal nodes ]:" ) }