Rename tree nodes only when update.tree = TRUE (#682)

microbiome · Jan 26, 2025 · f80ea32 · f80ea32
1 parent 075891b
commit f80ea32
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: mia
 Type: Package
-Version: 1.15.18
+Version: 1.15.19
 Authors@R:
     c(person(given = "Tuomas", family = "Borman", role = c("aut", "cre"),
              email = "tuomas.v.borman@utu.fi",

diff --git a/R/agglomerate.R b/R/agglomerate.R
@@ -246,7 +246,9 @@ setMethod(
         # Agglomerate data by using SCE method
         x <- callNextMethod(x, rank = rank, update.tree = update.tree, ...)
         # Rename tree to correspond the current rownames
-        x <- .rename_all_tree_nodes(x, by = 1L)
+        if( update.tree ){
+            x <- .rename_all_tree_nodes(x, by = 1L)
+        }
         return(x)
     }
 )