@@ -24,6 +24,7 @@ exportClasses(SingleAnnotation)

 export(SingleAnnotation)

 exportClasses(AdditiveUnit)

 export(AdditiveUnit)

+export(max_text_height)

 exportMethods(annotation_legend_size)

 export(AdditiveUnit)

 exportMethods(draw_heatmap_list)

@@ -34,11 +35,12 @@ exportMethods(draw_heatmap_legend)

 exportMethods(add_heatmap)

 export(anno_barplot)

 export(row_anno_boxplot)

+export(max_text_width)

 export(decorate_row_title)

 exportMethods(make_layout)

 export(anno_histogram)

-exportMethods(draw_dimnames)

 export(plotDataFrame)

+exportMethods(draw_dimnames)

 exportClasses(ColorMapping)

 export(ColorMapping)

 exportClasses(HeatmapAnnotation)

@@ -6,6 +6,8 @@ CHANGES in VERSION 1.3.0

 * add `row_anno_*` and `column_anno_*` functions

 * `anno_barplot` add `baseline` option to define the baseline of bars

 * change default colors for matrix

+* allow heatmap with zero-row

+* heatmap components can all have absolute units

 =========================================

@@ -286,18 +286,31 @@ Heatmap = function(matrix, col, name, na_col = "grey", rect_gp = gpar(col = NA),

     if(ncol(matrix) == 0) {

         .Object@heatmap_param$show_heatmap_legend = FALSE

-        .Object@heatmap_param$width = unit(0, "null")

+        .Object@heatmap_param$width = unit(0, "mm")

     }

-    if(ncol(matrix) <= 1) {

+    if(ncol(matrix) == 0 || nrow(matrix) == 0) {

+        if(!inherits(cluster_columns, c("dendrogram", "hclust"))) {

+            cluster_columns = FALSE

+            show_column_hclust = FALSE

+        }

         if(!inherits(cluster_rows, c("dendrogram", "hclust"))) {

             cluster_rows = FALSE

             show_row_hclust = FALSE

         }

+        km = 1

+    }

+    if(ncol(matrix) == 1) {

         if(!inherits(cluster_columns, c("dendrogram", "hclust"))) {

             cluster_columns = FALSE

             show_column_hclust = FALSE

         }

+    }

+    if(nrow(matrix) == 1) {

+        if(!inherits(cluster_rows, c("dendrogram", "hclust"))) {

+            cluster_rows = FALSE

+            show_row_hclust = FALSE

+        }

         km = 1

     }

     if(is.character(matrix)) {

@@ -351,7 +364,7 @@ Heatmap = function(matrix, col, name, na_col = "grey", rect_gp = gpar(col = NA),

     }

     # color for main matrix

-    if(ncol(matrix) > 0) {

+    if(ncol(matrix) > 0 && nrow(matrix) > 0) {

         if(missing(col)) {

             col = default_col(matrix, main_matrix = TRUE)

         }

@@ -432,12 +445,12 @@ Heatmap = function(matrix, col, name, na_col = "grey", rect_gp = gpar(col = NA),

     } else {

         .Object@row_hclust_param$cluster = cluster_rows

         if(!cluster_rows) {

-            row_hclust_width = unit(0, "null")

+            row_hclust_width = unit(0, "mm")

             show_row_hclust = FALSE

         }

     }

     if(!show_row_hclust) {

-        row_hclust_width = unit(0, "null")

+        row_hclust_width = unit(0, "mm")

     }

     .Object@row_hclust_list = list()

     .Object@row_hclust_param$distance = clustering_distance_rows

@@ -466,12 +479,12 @@ Heatmap = function(matrix, col, name, na_col = "grey", rect_gp = gpar(col = NA),

     } else {

         .Object@column_hclust_param$cluster = cluster_columns

         if(!cluster_columns) {

-            column_hclust_height = unit(0, "null")

+            column_hclust_height = unit(0, "mm")

             show_column_hclust = FALSE

         }

     }

     if(!show_column_hclust) {

-        column_hclust_height = unit(0, "null")

+        column_hclust_height = unit(0, "mm")

     }

     .Object@column_hclust = NULL

     .Object@column_hclust_param$distance = clustering_distance_columns

@@ -492,7 +505,7 @@ Heatmap = function(matrix, col, name, na_col = "grey", rect_gp = gpar(col = NA),

     .Object@top_annotation = top_annotation # a `HeatmapAnnotation` object

     if(is.null(top_annotation)) {

-        .Object@top_annotation_param$height = unit(0, "null")    

+        .Object@top_annotation_param$height = unit(0, "mm")    

     } else {

         .Object@top_annotation_param$height = top_annotation_height + unit(1, "mm")  # append the gap

     }

@@ -506,7 +519,7 @@ Heatmap = function(matrix, col, name, na_col = "grey", rect_gp = gpar(col = NA),

     .Object@bottom_annotation = bottom_annotation # a `HeatmapAnnotation` object

     if(is.null(bottom_annotation)) {

-        .Object@bottom_annotation_param$height = unit(0, "null")

+        .Object@bottom_annotation_param$height = unit(0, "mm")

     } else {

         .Object@bottom_annotation_param$height = bottom_annotation_height + unit(1, "mm")  # append the gap

     }

@@ -519,21 +532,21 @@ Heatmap = function(matrix, col, name, na_col = "grey", rect_gp = gpar(col = NA),

     }

     .Object@layout = list(

-        layout_column_title_top_height = unit(0, "null"),

-        layout_column_hclust_top_height = unit(0, "null"),

-        layout_column_anno_top_height = unit(0, "null"),

-        layout_column_names_top_height = unit(0, "null"),

-        layout_column_title_bottom_height = unit(0, "null"),

-        layout_column_hclust_bottom_height = unit(0, "null"),

-        layout_column_anno_bottom_height = unit(0, "null"),

-        layout_column_names_bottom_height = unit(0, "null"),

-

-        layout_row_title_left_width = unit(0, "null"),

-        layout_row_hclust_left_width = unit(0, "null"),

-        layout_row_names_left_width = unit(0, "null"),

-        layout_row_hclust_right_width = unit(0, "null"),

-        layout_row_names_right_width = unit(0, "null"),

-        layout_row_title_right_width = unit(0, "null"),

+        layout_column_title_top_height = unit(0, "mm"),

+        layout_column_hclust_top_height = unit(0, "mm"),

+        layout_column_anno_top_height = unit(0, "mm"),

+        layout_column_names_top_height = unit(0, "mm"),

+        layout_column_title_bottom_height = unit(0, "mm"),

+        layout_column_hclust_bottom_height = unit(0, "mm"),

+        layout_column_anno_bottom_height = unit(0, "mm"),

+        layout_column_names_bottom_height = unit(0, "mm"),

+

+        layout_row_title_left_width = unit(0, "mm"),

+        layout_row_hclust_left_width = unit(0, "mm"),

+        layout_row_names_left_width = unit(0, "mm"),

+        layout_row_hclust_right_width = unit(0, "mm"),

+        layout_row_names_right_width = unit(0, "mm"),

+        layout_row_title_right_width = unit(0, "mm"),

         layout_heatmap_width = width, # for the layout of heatmap list

@@ -882,23 +895,25 @@ setMethod(f = "make_layout",

     gap = object@matrix_param$gap

     n_slice = length(object@row_order_list)

     snr = sapply(object@row_order_list, length)

-    slice_height = (unit(1, "npc") - gap*(n_slice-1))*(snr/sum(snr))

-    for(i in seq_len(n_slice)) {

-        if(i == 1) {

-            slice_y = unit(1, "npc")

-        } else {

-            slice_y = unit.c(slice_y, unit(1, "npc") - sum(slice_height[seq_len(i-1)]) - gap*(i-1))

-        }

-    }

-

-    ###########################################

-    ## heatmap body

-    object@layout$layout_index = rbind(c(5, 4))

-    object@layout$graphic_fun_list = list(function(object) {

+    if(sum(snr)) {

+        slice_height = (unit(1, "npc") - gap*(n_slice-1))*(snr/sum(snr))

         for(i in seq_len(n_slice)) {

-            draw_heatmap_body(object, k = i, y = slice_y[i], height = slice_height[i], just = c("center", "top"))

+            if(i == 1) {

+                slice_y = unit(1, "npc")

+            } else {

+                slice_y = unit.c(slice_y, unit(1, "npc") - sum(slice_height[seq_len(i-1)]) - gap*(i-1))

+            }

         }

-    })

+

+        ###########################################

+        ## heatmap body

+        object@layout$layout_index = rbind(c(5, 4))

+        object@layout$graphic_fun_list = list(function(object) {

+            for(i in seq_len(n_slice)) {

+                draw_heatmap_body(object, k = i, y = slice_y[i], height = slice_height[i], just = c("center", "top"))

+            }

+        })

+    }

     title_padding = unit(2.5, "mm")

     ############################################

@@ -933,16 +948,16 @@ setMethod(f = "make_layout",

     if(length(row_title) > 0) {

         if(row_title_side == "left") {

             if(object@row_title_rot %in% c(0, 180)) {

-                object@layout$layout_row_title_left_width = max(grobWidth(textGrob(row_title, gp = row_title_gp))) + title_padding*2

+                object@layout$layout_row_title_left_width = max_text_width(row_title, gp = row_title_gp) + title_padding*2

             } else {

-                object@layout$layout_row_title_left_width = max(grobHeight(textGrob(row_title, gp = row_title_gp))) + title_padding*2

+                object@layout$layout_row_title_left_width = max_text_height(row_title, gp = row_title_gp) + title_padding*2

             }

             object@layout$layout_index = rbind(object@layout$layout_index, c(5, 1))

         } else {

             if(object@row_title_rot %in% c(0, 180)) {

-                object@layout$layout_row_title_right_width = max(grobWidth(textGrob(row_title, gp = row_title_gp))) + title_padding*2

+                object@layout$layout_row_title_right_width = max_text_width(row_title, gp = row_title_gp) + title_padding*2

             } else {

-                object@layout$layout_row_title_right_width = max(grobHeight(textGrob(row_title, gp = row_title_gp))) + title_padding*2

+                object@layout$layout_row_title_right_width = max_text_height(row_title, gp = row_title_gp) + title_padding*2

             }

             object@layout$layout_index = rbind(object@layout$layout_index, c(5, 7))

         }

@@ -1249,7 +1264,7 @@ setMethod(f = "draw_hclust",

     if(side == "left") {

         grid.dendrogram(dend, name = paste(object@name, "hclust_row", k, sep = "_"), max_height = max_height, facing = "right", order = "reverse", x = hclust_padding, width = unit(1, "npc") - hclust_padding*2, just = "left")

     } else if(side == "right") {

-        grid.dendrogram(dend, name = paste(object@name, "hclust_row", k, sep = "_"), max_height = max_height, facing = "left", order = "reverse", x = unit(0, "null"), width = unit(1, "npc") - hclust_padding*2, just = "left")

+        grid.dendrogram(dend, name = paste(object@name, "hclust_row", k, sep = "_"), max_height = max_height, facing = "left", order = "reverse", x = unit(0, "mm"), width = unit(1, "npc") - hclust_padding*2, just = "left")

     } else if(side == "top") {

         grid.dendrogram(dend, name = paste(object@name, "hclust_column", sep = "_"), max_height = max_height, facing = "bottom", y = hclust_padding, height = unit(1, "npc") - hclust_padding*2, just = "bottom")

     } else if(side == "bottom") {

@@ -1448,7 +1463,7 @@ setMethod(f = "draw_annotation",

     if(which == "top") {

         draw(annotation, index = object@column_order, y = padding, height = unit(1, "npc") - padding, just = "bottom")

     } else {

-        draw(annotation, index = object@column_order, y = unit(0, "null"), height = unit(1, "npc") - padding, just = "bottom")

+        draw(annotation, index = object@column_order, y = unit(0, "mm"), height = unit(1, "npc") - padding, just = "bottom")

     }

 })

@@ -1482,9 +1497,13 @@ setMethod(f = "component_width",

             object@layout$layout_row_names_left_width

         } else if(k == 4) {

             if(ncol(object@matrix) == 0) {

-                unit(0, "null")

+                unit(0, "mm")

             } else {

-                unit(1, "null")

+                if(!is.unit(object@heatmap_param$width)) {

+                    unit(1, "null")

+                } else {

+                    object@heatmap_param$width - sum(component_width(object, c(1:3, 5:7)))

+                }

             }

         } else if(k == 5) {

             object@layout$layout_row_names_right_width

@@ -27,9 +27,9 @@ HeatmapAnnotation = setClass("HeatmapAnnotation",

 	),

 	prototype = list(

 		anno_list = list(),

-		size = unit(0, "null"),

+		size = unit(0, "mm"),

 		which = "row",

-		gap = unit(0, "null")

+		gap = unit(0, "mm")

 	),

     contains = "AdditiveUnit"

 )

@@ -164,12 +164,12 @@ HeatmapAnnotation = function(df, name, col, annotation_legend_param = list(),

 	n_anno = length(anno_list)

-	if(is.null(gap)) gap = unit(0, "null")

+	if(is.null(gap)) gap = unit(0, "mm")

     if(length(gap) == 1) {

     	.Object@gap = rep(gap, n_anno)

     } else if(length(gap) == n_anno - 1) {

-    	.Object@gap = unit.c(gap, unit(0, "null"))

+    	.Object@gap = unit.c(gap, unit(0, "mm"))

     } else if(length(gap) < n_anno - 1) {

     	stop("Length of `gap` is wrong.")

     } else {

@@ -66,19 +66,19 @@ HeatmapList = setClass("HeatmapList",

     ),

     prototype = list(

         layout = list(

-            layout_annotation_legend_left_width = unit(0, "null"),

-            layout_heatmap_legend_left_width = unit(0, "null"),

-            layout_row_title_left_width = unit(0, "null"),

-            layout_row_title_right_width = unit(0, "null"),

-            layout_heatmap_legend_right_width = unit(0, "null"),

-            layout_annotation_legend_right_width = unit(0, "null"),

-

-            layout_annotation_legend_top_height = unit(0, "null"),

-            layout_heatmap_legend_top_height = unit(0, "null"),

-            layout_column_title_top_height = unit(0, "null"),

-            layout_column_title_bottom_height = unit(0, "null"),

-            layout_heatmap_legend_bottom_height = unit(0, "null"),

-            layout_annotation_legend_bottom_height = unit(0, "null"),

+            layout_annotation_legend_left_width = unit(0, "mm"),

+            layout_heatmap_legend_left_width = unit(0, "mm"),

+            layout_row_title_left_width = unit(0, "mm"),

+            layout_row_title_right_width = unit(0, "mm"),

+            layout_heatmap_legend_right_width = unit(0, "mm"),

+            layout_annotation_legend_right_width = unit(0, "mm"),

+

+            layout_annotation_legend_top_height = unit(0, "mm"),

+            layout_heatmap_legend_top_height = unit(0, "mm"),

+            layout_column_title_top_height = unit(0, "mm"),

+            layout_column_title_bottom_height = unit(0, "mm"),

+            layout_heatmap_legend_bottom_height = unit(0, "mm"),

+            layout_annotation_legend_bottom_height = unit(0, "mm"),

             layout_index = matrix(nrow = 0, ncol = 2),

             graphic_fun_list = list()

@@ -237,7 +237,7 @@ setMethod(f = "make_layout",

         }

     } else {

         if(!is.unit(gap)) {

-            gap = unit(rep(0, n), "null")    

+            gap = unit(rep(0, n), "mm")    

         }

     }

     object@ht_list_param$gap = gap

@@ -246,11 +246,11 @@ setMethod(f = "make_layout",

         # if the zero-column matrix is the first one

         if(inherits(object@ht_list[[i]], "Heatmap")) {

             if(i == 1 && ncol(object@ht_list[[1]]@matrix) == 0) {

-                gap[1] = unit(0, "null")

+                gap[1] = unit(0, "mm")

             } else if(i == n && ncol(object@ht_list[[n]]@matrix) == 0) {

-                gap[n - 1] = unit(0, "null")

+                gap[n - 1] = unit(0, "mm")

             } else if(ncol(object@ht_list[[i]]@matrix) == 0) {

-                gap[i] = unit(0, "null")

+                gap[i] = unit(0, "mm")

             }

         }

     }

@@ -268,7 +268,7 @@ setMethod(f = "make_layout",

         # add a heatmap with zero column so that we can put titles and hclust on the most left

         if(inherits(object@ht_list[[1]], "HeatmapAnnotation")) {

             object = Heatmap(matrix(nrow = nr, ncol = 0)) + object

-            gap = unit.c(unit(0, "null"), gap)

+            gap = unit.c(unit(0, "mm"), gap)

             i_main = i_main + 1

         }

@@ -278,9 +278,14 @@ setMethod(f = "make_layout",

         # if the last one is a HeatmapAnnotation object

         if(inherits(object@ht_list[[ length(object@ht_list) ]], "HeatmapAnnotation")) {

             object = object + Heatmap(matrix(nrow = nr, ncol = 0))

-            gap = unit.c(gap, unit(0, "null"))

+            gap = unit.c(gap, unit(0, "mm"))

         }

     }

+    if(n == 1) {

+        gap = unit(0, "mm")

+    } else if(length(gap) == n) {

+        gap = gap[seq_len(n-1)]

+    }

     object@ht_list_param$gap = gap

     n = length(object@ht_list)

@@ -425,10 +430,14 @@ setMethod(f = "make_layout",

                 ColorMappingList = c(ColorMappingList, ht@matrix_color_mapping)

             }

         }

+        if(inherits(ht, "HeatmapAnnotation")) {

+            ColorMappingList = c(ColorMappingList, get_color_mapping_list(ht))

+        }

     }

     if(length(ColorMappingList) == 0 && length(heatmap_legend_list) == 0) {

         show_heatmap_legend = FALSE

     }

+

     object@heatmap_legend_param$show = show_heatmap_legend

     heatmap_legend_side = match.arg(heatmap_legend_side)[1]

     object@heatmap_legend_param$side = heatmap_legend_side   

@@ -562,10 +571,14 @@ setMethod(f = "draw",

     definition = function(object, padding = unit(c(2, 2, 2, 2), "mm"), ..., 

         newpage= TRUE) {

-    if(! any(sapply(object@ht_list, inherits, "Heatmap"))) {

+    l = sapply(object@ht_list, inherits, "Heatmap")

+    if(! any(l)) {

         stop("There should be at least one Heatmap in the heatmap list. You can add a matrix with zero column to the list.")

     }

-    

+    if(nrow(object@ht_list[[ which(l)[1] ]]@matrix) == 0 && length(l) > 1) {

+        stop("Since you have a zeor-row matrix, only one heatmap (no row annotation) is allowed.")

+    }

+

     if(newpage) {

         grid.newpage()

     }

@@ -639,7 +652,18 @@ setMethod(f = "component_width",

         } else if(k == 3) {

             object@layout$layout_row_title_left_width

         } else if(k == 4) {

-            unit(1, "null")

+            size = sum(do.call("unit.c", lapply(object@ht_list, function(ht) {

+                    if(inherits(ht, "Heatmap")) {

+                        sum(component_width(ht, 1:7))

+                    } else if(inherits(ht, "HeatmapAnnotation")) {

+                        ht@size

+                    }

+                })))

+            if(is_abs_unit(size)) { # summation of all heatmap/rowannotation are fixed unit

+                size + sum(object@ht_list_param$gap)

+            } else {

+                unit(1, "null") 

+            }

         } else if(k == 5) {

             object@layout$layout_row_title_right_width

         } else if(k == 6) {

@@ -671,6 +695,9 @@ setMethod(f = "component_height",

     signature = "HeatmapList",

     definition = function(object, k = 1:7) {

+    ht_index = which(sapply(object@ht_list, inherits, "Heatmap"))

+    n = length(object@ht_list)

+

     .single_unit = function(k) {

         if(k == 1) {

             object@layout$layout_annotation_legend_top_height

@@ -679,7 +706,11 @@ setMethod(f = "component_height",

         } else if(k == 3) {

             object@layout$layout_column_title_top_height

         } else if(k == 4) {

-            unit(1, "null")

+            if(nrow(object@ht_list[[ht_index[1]]]@matrix) == 0) {

+                unit(0, "mm")

+            } else {

+                unit(1, "null")

+            }

         } else if(k == 5) {

             object@layout$layout_column_title_bottom_height

         } else if(k == 6) {

@@ -736,7 +767,7 @@ setMethod(f = "draw_heatmap_list",

             if(length(i_row_anno_fix_width)) {

                 row_anno_fix_width = sum(do.call("unit.c", lapply(object@ht_list[i_row_anno_fix_width], function(x) x@size)))

             } else {

-                row_anno_fix_width = unit(0, "null")

+                row_anno_fix_width = unit(0, "mm")

             }

             object@ht_list[[i_row_anno_nofix_width]]@size = unit(1, "npc") - ht@heatmap_param$width - sum(component_width(ht, k = c(1:3, 5:7))) - 

                 row_anno_fix_width - sum(gap) + gap[length(gap)]

@@ -772,7 +803,7 @@ setMethod(f = "draw_heatmap_list",

         if(inherits(ht, "Heatmap")) {

             component_width(ht, c(1:3, 5:7))

         } else {

-            unit(rep(0, 6), "null")  # to be consistent with heatmap non-body columns

+            unit(rep(0, 6), "mm")  # to be consistent with heatmap non-body columns

         }

     }))

@@ -791,11 +822,11 @@ setMethod(f = "draw_heatmap_list",

             if(is.unit(ht@heatmap_param$width)) {

                 return(ht@heatmap_param$width)

             } else {

-                return(unit(0, "null"))

+                return(unit(0, "mm"))

             }

         } else if(inherits(ht, "HeatmapAnnotation")) {

             if(is.null(ht@size)) {

-                return(unit(0, "null"))

+                return(unit(0, "mm"))

             } else {

                 return(ht@size)

             }

@@ -804,9 +835,9 @@ setMethod(f = "draw_heatmap_list",

     heatmap_fixed_width = do.call("unit.c", heatmap_fixed_width)

     # width for body for each heatmap

     if(sum(heatmap_ncol) == 0) {

-        heatmap_nofixed_width = unit(rep(0, n), "null")

+        heatmap_nofixed_width = unit(rep(0, n), "mm")

     } else {

-        heatmap_nofixed_width = (unit(1, "npc") - sum(width_without_heatmap_body) - sum(heatmap_fixed_width) - sum(gap) + gap[length(gap)]) * (1/sum(heatmap_ncol)) * heatmap_ncol

+        heatmap_nofixed_width = (unit(1, "npc") - sum(width_without_heatmap_body) - sum(heatmap_fixed_width) - sum(gap)) * (1/sum(heatmap_ncol)) * heatmap_ncol

     }

     # width of heatmap including body, and other components

@@ -1150,7 +1181,7 @@ draw_legend = function(ColorMappingList, ColorMappingParamList, side = c("right"

         height = sum(cm_height) + gap*(n + length(legend_list) -1)

         if(plot) {

-            cm_height = unit.c(unit(0, "null"), cm_height)

+            cm_height = unit.c(unit(0, "mm"), cm_height)

         	for(i in seq_len(n)) {

                 cm = ColorMappingList[[i]]

@@ -1185,7 +1216,7 @@ draw_legend = function(ColorMappingList, ColorMappingParamList, side = c("right"

         height = max(cm_height)

         if(plot) {

-            cm_width = unit.c(unit(0, "null"), cm_width)

+            cm_width = unit.c(unit(0, "mm"), cm_width)

             for(i in seq_len(n)) {

                 cm = ColorMappingList[[i]]

                 cm_param = ColorMappingParamList[[i]]

@@ -490,3 +490,29 @@ rep.list = function(x, n) {

     return(lt)

 }

+

+list_component = function() {

+    vp_name = grid.ls(viewports = TRUE, grobs = FALSE, print = FALSE)$name

+}

+

+# == title

+# Maximum width of text

+#

+# == param

+# -text a vector of text

+# -... pass to `grid::textGrob`

+#

+max_text_width = function(text, ...) {

+    max(do.call("unit.c", lapply(text, function(x) grobWidth(textGrob(x, ...)))))

+}

+

+# == title

+# Maximum height of text

+#

+# == param

+# -text a vector of text

+# -... pass to `grid::textGrob`

+#

+max_text_height = function(text, ...) {

+    max(do.call("unit.c", lapply(text, function(x) grobHeight(textGrob(x, ...)))))

+}

new file mode 100644

@@ -0,0 +1,17 @@

+\name{max_text_height}

+\alias{max_text_height}

+\title{

+Maximum height of text

+}

+\description{

+Maximum height of text

+}

+\usage{

+max_text_height(text, ...)

+}

+\arguments{

+

+  \item{text}{a vector of text}

+  \item{...}{pass to \code{\link[grid]{textGrob}}}

+

+}

new file mode 100644

@@ -0,0 +1,17 @@

+\name{max_text_width}

+\alias{max_text_width}

+\title{

+Maximum width of text

+}

+\description{

+Maximum width of text

+}

+\usage{

+max_text_width(text, ...)

+}

+\arguments{

+

+  \item{text}{a vector of text}

+  \item{...}{pass to \code{\link[grid]{textGrob}}}

+

+}

@@ -381,6 +381,21 @@ ha = rowAnnotation(points = row_anno, width = unit(1, "cm"))

 ht1 + ha

 ```

+### Heatmap with zero row

+

+If you only want to visualize meta data of your matrix, you can set the matrix with zero row.

+In this case, only one heatmap is allowed.

+

+```{r zero_row_heatmap, fig.height = 2}

+ha = HeatmapAnnotation(df = data.frame(value = runif(10), type = rep(letters[1:2], 5)),

+    barplot = anno_barplot(runif(10)),

+    points = anno_points(runif(10)),

+    height = unit(3, "cm"))

+zero_row_mat = matrix(nrow = 0, ncol = 10)

+colnames(zero_row_mat) = letters[1:10]

+Heatmap(zero_row_mat, top_annotation = ha, column_title = "only annotations")

+```

+

 ### Heatmap with zero column

 If no heatmap is needed to draw and users only want to arrange a list of row annotations, an empty

@@ -391,7 +406,7 @@ split row annotaitons:

 ha_boxplot = rowAnnotation(boxplot = row_anno_boxplot(mat), width = unit(3, "cm"))

 ha = rowAnnotation(df = df, col = list(type = c("a" = "red", "b" = "blue")), width = unit(2, "cm"))

 text = paste0("row", seq_len(nrow(mat)))

-ha_text = rowAnnotation(text = row_anno_text(text), width = max(grobWidth(textGrob(text))))

+ha_text = rowAnnotation(text = row_anno_text(text), width = max_text_width(text))

 nr = nrow(mat)

 Heatmap(matrix(nrow = nr, ncol = 0), split = sample(c("A", "B"), nr, replace = TRUE)) + 

     ha_boxplot + ha + ha_text