Skip to content

Commit

Permalink
Fix print error
Browse files Browse the repository at this point in the history
Resolves #76
  • Loading branch information
mikemc committed Apr 20, 2024
1 parent 540416c commit 29cafd7
Showing 2 changed files with 5 additions and 5 deletions.
2 changes: 1 addition & 1 deletion DESCRIPTION
Original file line number Diff line number Diff line change
@@ -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",
8 changes: 4 additions & 4 deletions R/printing.R
Original file line number Diff line number Diff line change
@@ -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 ]:"
)
}

0 comments on commit 29cafd7

Please sign in to comment.