From cf7aca5da4b5da5f2fb998759911edcc14eb7ecf Mon Sep 17 00:00:00 2001
From: ShixiangWang <wangshx@shanghaitech.edu.cn>
Date: Mon, 29 Mar 2021 18:29:43 +0800
Subject: [PATCH] typo

---
 R/show_group_enrichment.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/show_group_enrichment.R b/R/show_group_enrichment.R
index ca33cf5d..c99000e7 100644
--- a/R/show_group_enrichment.R
+++ b/R/show_group_enrichment.R
@@ -128,7 +128,7 @@ plot_enrichment_simple <- function(data, x, y, fill_scale,
     }
     orders <- data2 %>%
       dplyr::group_split(.data$grp_var, .keep = FALSE) %>%
-      purrr:::map(get_cluster_order) %>%
+      purrr::map(get_cluster_order) %>%
       purrr::reduce(c) %>%
       unique()
     message("All subgroup orders: ", paste(orders, collapse = ", "))