tests/test-ColorMapping-class.R

In jokergoo/ComplexHeatmap: Make Complex Heatmaps

library(circlize)
library(ComplexHeatmap)
library(GetoptLong)

cm = ColorMapping(name = "test",
	colors = c("blue", "white", "red"),
	levels = c("a", "b", "c"))
color_mapping_legend(cm)

cm = ColorMapping(name = "test",
	col_fun = colorRamp2(c(0, 0.5, 1), c("blue", "white", "red")))
color_mapping_legend(cm)

cm = ColorMapping(name = "test",
	colors = c("blue", "white", "red"),
	levels = c(1, 2, 3))
color_mapping_legend(cm)

ha = SingleAnnotation(value = rep(NA, 10), name = "foo")
cm = ha@color_mapping
color_mapping_legend(cm)