Browse code

fixed test

Guangchuang Yu authored on 28/01/2019 09:29:39
Showing 2 changed files

... ...
@@ -27,8 +27,8 @@ Imports:
27 27
     rlang,
28 28
     rvcheck (>= 0.1.0),
29 29
     tidyr,
30
-    tidytree (>= 0.1.9),
31
-    treeio (>= 1.3.14),
30
+    tidytree (>= 0.2.3),
31
+    treeio (>= 1.7.3),
32 32
     utils
33 33
 Suggests:
34 34
     emojifont,
... ...
@@ -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
 })