From e53e3740f6d972bb8dd13de84bdf5176fab047d7 Mon Sep 17 00:00:00 2001 From: Louis Date: Fri, 23 Jan 2026 15:30:33 +0100 Subject: [PATCH] Fix a typo 'the_data' to 'phylo_data' --- utils.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/utils.R b/utils.R index 83e24ae..b56a69f 100644 --- a/utils.R +++ b/utils.R @@ -65,7 +65,7 @@ collapse_otu_at_taxo <- function(phylo_data, NArm = TRUE, renameOTUs = TRUE) { tax_ranks <- colnames(tax_table(phylo_data)) tax_df <- tax_table(phylo_data) otu_tables_by_rank <- lapply(tax_ranks, function(rank) { - ps_glom <- tax_glom(the_data, taxrank = rank, NArm = NArm) + ps_glom <- tax_glom(phylo_data, taxrank = rank, NArm = NArm) otu <- as.data.frame(otu_table(ps_glom)) # Ensure taxa are rows