taxonTree: fix issue when sole terminal node is lowest level (no chil…

…dren) #43
ncss-tech · Mar 23, 2023 · aed9abf · aed9abf
1 parent 46d688d
commit aed9abf
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/R/taxonTree.R b/R/taxonTree.R
@@ -39,8 +39,9 @@ taxonTree <- function(taxon,
   # get child taxa at most detailed `level`
   lh <- level_hierarchy(family = FALSE)
   lowest_level <- max(match(level, lh))
-  x <- unique(do.call('c', getChildTaxa(taxon,
-                                        level = as.character(lh[lowest_level]))))
+  x <- unique(c(taxon, do.call('c', 
+                  getChildTaxa(taxon,  level = as.character(lh[lowest_level]))
+                )))
   y <- getTaxonAtLevel(x, level = level)
 
   # we build the tree from the terminal/leaf node information