Merge pull request #33 from gmteunisse/fix/sample-names-X

Fixed behaviour for sample names containing X
gmteunisse · May 29, 2024 · 9564d35 · 9564d35
2 parents 7b422c5 + d86d21f
commit 9564d35
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/R/top_taxa.R b/R/top_taxa.R
@@ -133,8 +133,7 @@ top_taxa <- function(ps_obj, tax_level = NULL, n_taxa = 1, grouping = NULL,
 
   # Convert to long
   ps_long <- otu_table(ps_tmp) %>%
-    data.frame(taxid = row.names(.)) %>%
-    rename_with(function(x){gsub("X", "", x)}) %>%
+    data.frame(taxid = row.names(.), check.names = F) %>%
     pivot_longer(!taxid, names_to = "sample_id", values_to = "abundance") %>%
     left_join(sample_data(ps_tmp) %>%
                 data.frame(sample_id = row.names(.)),