# Setting a new default theme
old <- options(ggalign.default_theme = function() theme_bw())
# Creating a heatmap with the new theme
ggheatmap(matrix(rnorm(81), nrow = 9)) +
anno_top() +
align_dendro(k = 3L)
# Restoring the old default theme
options(old)
Run the code above in your browser using DataLab