diff --git a/R/ggheat.R b/R/ggheat.R
index 8bb924d..77952f5 100644
--- 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
}
diff --git a/README.html b/README.html
index 0275055..d1182c3 100644
--- a/README.html
+++ b/README.html
@@ -786,7 +786,7 @@ ggheat
rect_gp = gpar(type = "none"). The clustering is still
applied but nothing in drawn on the heatmap body.
draw(ggheat(small_mat, rect_gp = gpar(type = "none")))
+
Note that the background is different between ggplot2 and
ComplexHeatmap. However, the theme system in ggplot2 makes it easy to
diff --git a/man/figures/README-blank_rect-1.png b/man/figures/README-blank_rect-1.png
index 2545fbe..fb15dcb 100644
Binary files a/man/figures/README-blank_rect-1.png and b/man/figures/README-blank_rect-1.png differ