use vctrs

Yunuuuu · Dec 16, 2024 · ba575d5 · ba575d5
1 parent feb6483
commit ba575d5
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/dendrogram.R b/R/dendrogram.R
@@ -310,7 +310,7 @@ dendrogram_data <- function(tree,
             # all x coordinate for children nodes --------------------
             # used if center is `TRUE`, we'll calculate the center position
             # among all children nodes
-            leaves <- node[.subset2(node, "leaf"), ] # all leaves
+            leaves <- vec_slice(node, .subset2(node, "leaf")) # all leaves
 
             # x coordinate for current branch: the midpoint
             if (center) {