silence many to many relationship warnings from dplyr

rnabioco · Jan 25, 2024 · 4034d7d · 4034d7d
1 parent cc57a0a
commit 4034d7d
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/R/plot.R b/R/plot.R
@@ -310,7 +310,8 @@ plot_cor <- function(cor_mat,
     if (cor_df[[cluster_col]][1] %in% metadata[[cluster_col]]) {
         plt_data <- dplyr::left_join(cor_df_long,
             metadata,
-            by = cluster_col
+            by = cluster_col,
+            relationship = "many-to-many"
         )
     } else {
         plt_data <- dplyr::left_join(cor_df_long,

diff --git a/R/utils.R b/R/utils.R
@@ -598,7 +598,8 @@ cor_to_call_topn <- function(cor_mat,
                 dplyr::select(df_temp_full, -c(
                     !!dplyr::sym("type"), !!dplyr::sym("r")
                 )),
-                by = stats::setNames(collapse_to_cluster, "type2")
+                by = stats::setNames(collapse_to_cluster, "type2"),
+                relationship = "many-to-many"
             )
         df_temp_full <-
             dplyr::mutate(df_temp_full2, type = tidyr::replace_na(