update mpa tree script

waldronlab · Sep 6, 2023 · a6bfb25 · a6bfb25
1 parent f983a0b
commit a6bfb25
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/inst/scripts/mpa_tree_v31.R b/inst/scripts/mpa_tree_v31.R
@@ -108,8 +108,12 @@ names(tip_labels) <- new_mpa_data$old_tip_label
 new_mpa_tree <- keep.tip(phy = mpa_tree, tip = names(tip_labels))
 new_tip_labels <- unname(tip_labels[new_mpa_tree$tip.label])
 new_mpa_tree$tip.label <- new_tip_labels
-new_mpa_data <- new_mpa_data |>
-    arrange(match(tip_label, new_tip_labels))
+new_mpa_data <- new_mpa_data[match(new_mpa_tree$tip.label, new_mpa_data$tip_label),]
+
+# all(new_mpa_data$tip_label == new_mpa_tree$tip.label)
+
+
+
 
 # new_mpa_data2 <- new_mpa_data |>
 #     drop_na()