fix progress bar if not all 105 subtrees are evaluated.

KlausVigo · Oct 18, 2024 · c516cc2 · c516cc2
1 parent 733184c
commit c516cc2
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/R/bab.R b/R/bab.R
@@ -306,7 +306,10 @@ bab <- function(data, tree = NULL, trace = 1, ...) {
                              .Names = c("edge", "Nnode"), class = "phylo",
                              order = "postorder")
   }
-  if(trace > 0  && nTips > 6) close(pb)
+  if(trace > 0  && nTips > 6) {
+    setTxtProgressBar(pb, 105)
+    close(pb)
+  }
   attr(result, "TipLabel") <- tree$tip.label
   class(result) <- "multiPhylo"
   if(add_taxa) result <- addTaxa(result, attr(data, "duplicated"))