## ----echo = FALSE-------------------------------------------------------------
library(knitr)
knitr::opts_chunk$set(
    error = FALSE,
    tidy  = FALSE,
    message = FALSE,
    warning = FALSE,
    fig.align = "center"
)
suppressPackageStartupMessages(library(InteractiveComplexHeatmap))

## ----eval = FALSE-------------------------------------------------------------
#  library(ComplexHeatmap)
#  m = matrix(rnorm(100), 10)
#  ht = Heatmap(m, name = "foo")
#  ht = draw(ht)
#  decorate_heatmap_body("foo", {
#      grid.text("some text", gp = gpar(fontsize = 30))
#  })

## ----eval = FALSE-------------------------------------------------------------
#  library(InteractiveComplexHeatmap)
#  post_fun = function(ht_list) {
#      decorate_heatmap_body("foo", {
#          grid.text("some text", gp = gpar(fontsize = 30))
#      })
#  }
#  ht = draw(ht, post_fun = post_fun)
#  htShiny(ht)

## ----eval = FALSE-------------------------------------------------------------
#  post_fun = function(ht_list) {
#      decorate_heatmap_body("foo", {
#          row_dend(ht_list)
#          row_order(ht_list)
#          ...
#      })
#  }