prevent ComplexHeatmap legends

Yunuuuu · Jul 11, 2024 · 0b06ee2 · 0b06ee2
1 parent 3cd77dc
commit 0b06ee2
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 3 deletions.
diff --git a/R/ggheat.R b/R/ggheat.R
@@ -188,6 +188,9 @@ eheat_prepare.ggHeatmap <- function(object, ...) {
         p <- p + scales$column[[1L]] + scales$row[[1L]]
     }
 
+    # we always prevent the ComplexHeatmap Heatmap body legend.
+    object@heatmap_param$show_heatmap_legend <- FALSE
+
     # if user provided `ggfn` or rect_gp$type is not none,
     # we should do something with `ggfn`
     if (is.null(object@ggfn) && identical(rect_gp$type, "none")) {
@@ -247,7 +250,5 @@ eheat_prepare.ggHeatmap <- function(object, ...) {
     object@legends_panel <- get_guides(gt, margins = "i")
     object@legends_margin <- get_guides(gt)
 
-    # we always prevent the ComplexHeatmap Heatmap body legend.
-    object@heatmap_param$show_heatmap_legend <- FALSE
     object
 }