adopt the new dplyr version

morinlab · Apr 14, 2023 · c0933c7 · c0933c7
1 parent bf88510
commit c0933c7
Showing 1 changed file with 9 additions and 6 deletions.
diff --git a/src/03_develop_ensembl_model.R b/src/03_develop_ensembl_model.R
@@ -1,3 +1,4 @@
+library(GAMBLR)
 library(caret)
 library(glmnet)
 library(tidyverse)
@@ -360,10 +361,11 @@ d_ezb <- my_nj$tip.label %>%
   )
 
 tree_ezb <- left_join(
-        my_nj,
+        as.tibble(my_nj),
         d_ezb,
         by = c("label" = "Tumor_Sample_Barcode")
-    )
+    ) %>%
+    treeio::as.treedata()
 
 phylo_plot_ezb <- ggtree::ggtree(
         tree_ezb,
@@ -421,10 +423,11 @@ d_st2 <- my_nj$tip.label %>%
     )
 
 tree_st2 <- left_join(
-    my_nj,
-    d_st2,
-    by = c("label" = "Tumor_Sample_Barcode")
-)
+        as.tibble(my_nj),
+        d_st2,
+        by = c("label" = "Tumor_Sample_Barcode")
+    )%>%
+        treeio::as.treedata()
 
 phylo_plot_st2 <- ggtree::ggtree(
         tree_st2,