|
...
|
...
|
@@ -97,12 +97,13 @@ setMethod(f = "make_layout",
|
|
97
|
97
|
title_padding[1] = title_padding[1] + unit(5.5, "points") +
|
|
98
|
98
|
convertHeight(grobDescent(textGrob(label = "jA", gp = column_title_gp)), "inches")
|
|
99
|
99
|
}
|
|
|
100
|
+
|
|
100
|
101
|
if(length(column_title) > 0) {
|
|
101
|
102
|
if(column_title_side == "top") {
|
|
102
|
|
- object@layout$layout_size$column_title_top_height = grobHeight(textGrob(column_title, gp = column_title_gp, rot = column_title_rot)) + sum(title_padding)
|
|
|
103
|
+ object@layout$layout_size$column_title_top_height = max_text_height(column_title, gp = column_title_gp, rot = column_title_rot) + sum(title_padding)
|
|
103
|
104
|
object@layout$layout_index = rbind(object@layout$layout_index, column_title_top = heatmap_layout_index("column_title_top"))
|
|
104
|
105
|
} else {
|
|
105
|
|
- object@layout$layout_size$column_title_bottom_height = grobHeight(textGrob(column_title, gp = column_title_gp, rot = column_title_rot)) + sum(title_padding)
|
|
|
106
|
+ object@layout$layout_size$column_title_bottom_height = max_text_height(column_title, gp = column_title_gp, rot = column_title_rot) + sum(title_padding)
|
|
106
|
107
|
object@layout$layout_index = rbind(object@layout$layout_index, column_title_bottom = heatmap_layout_index("column_title_bottom"))
|
|
107
|
108
|
}
|
|
108
|
109
|
object@layout$graphic_fun_list = c(object@layout$graphic_fun_list, function(object) {
|
