fix inside guides

R/prepare.R

@@ -161,7 +161,7 @@ prepare_ggheat <- function(object) {
     # Now: we'll fill the ggplot2 object into heatmap body --------
     gt <- ggplot2::ggplotGrob(p)
     layer_fun <- object@matrix_param$layer_fun # user provided `layer_fun`
-    total <- sum(lengths(order_list)) # total number of heatmap body slices
+    total <- length(order_list[[1L]]) * length(order_list[[2L]])
     n <- 0L
     heatmap_body_vp_name <- sprintf("%s_heatmap_body_wrap", object@name)
     inside_guides <- get_guides(gt, margins = "i")

README.md

@@ -344,6 +344,28 @@ draw(
 
 <img src="man/figures/README-ggheat_legend_name2-1.png" width="100%" />
 
+Inside guides will be kept in the panel.
+
+``` r
+draw(
+  ggheat(small_mat, function(p) {
+    p +
+      geom_tile(
+        aes(fill = values),
+        width = 1L, height = 1L,
+        data = ~ dplyr::filter(p$data, .row <= .column)
+      ) +
+      theme_bw() +
+      theme(
+        legend.position = "inside",
+        legend.position.inside = c(0.2, 0.3)
+      )
+  }, rect_gp = gpar(type = "none"), column_km = 2L, row_km = 3)
+)
+```
+
+<img src="man/figures/README-inside_legend-1.png" width="100%" />
+
 ## `gganno`
 
 The same with `ggheat`, the essential parameter of `gganno` is also the

vignettes/eheat.Rmd

@@ -261,6 +261,25 @@ draw(
 )
 ```
 
+Inside guides will be kept in the panel.
+```{r inside_legend}
+draw(
+  ggheat(small_mat, function(p) {
+    p +
+      geom_tile(
+        aes(fill = values),
+        width = 1L, height = 1L,
+        data = ~ dplyr::filter(p$data, .row <= .column)
+      ) +
+      theme_bw() +
+      theme(
+        legend.position = "inside",
+        legend.position.inside = c(0.2, 0.3)
+      )
+  }, rect_gp = gpar(type = "none"), column_km = 2L, row_km = 3)
+)
+```
+
 ## `gganno`
 The same with `ggheat`, the essential parameter of `gganno` is also the `ggfn`,
 which accepts a ggplot2 object equipped with a default data and mappings