... | ... |
@@ -28,7 +28,7 @@ test_that('groupClade', { |
28 | 28 |
df <- fortify(groupClade(tree, nodes)) |
29 | 29 |
|
30 | 30 |
for (i in seq_along(nodes)) { |
31 |
- expect_true(all(df$group[df$node %in% ggtree:::get.offspring.df(df, nodes[i])] == i)) |
|
31 |
+ expect_true(all(df$group[df$node %in% tidytree::offspring(df, nodes[i])$node] == i)) |
|
32 | 32 |
} |
33 | 33 |
|
34 | 34 |
}) |