## ----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)
#         ...
#     })
# }