use lengths()

ms609 · Feb 23, 2024 · 91e3cb7 · 91e3cb7
1 parent dcfe3f8
commit 91e3cb7
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/tree_distance_utilities.R b/R/tree_distance_utilities.R
@@ -287,7 +287,7 @@ CalculateTreeDistance <- function(Func, tree1, tree2 = NULL,
 }
 
 .CheckLabelsSame <- function(labelList) {
-  nTip <- unique(vapply(labelList, length, 0L))
+  nTip <- unique(lengths(labelList))
   if (length(nTip) != 1) {
     stop("All trees must contain the same number of leaves.")
   }