... | ... |
@@ -405,13 +405,16 @@ anno_oncoprint_barplot = function(type = all_type, which = c("column", "row"), |
405 | 405 |
|
406 | 406 |
if(which == "column") { |
407 | 407 |
count = apply(arr, c(2, 3), sum) |
408 |
- anno_barplot(count, gp = gpar(fill = col, col = NA), which = "column", |
|
408 |
+ fun = anno_barplot(count, gp = gpar(fill = col, col = NA), which = "column", |
|
409 | 409 |
baseline = 0, height = anno_size$height, border = border, ...) |
410 | 410 |
} else { |
411 | 411 |
count = apply(arr, c(1, 3), sum) |
412 |
- anno_barplot(count, gp = gpar(fill = col, col = NA), which = "row", |
|
412 |
+ fun = anno_barplot(count, gp = gpar(fill = col, col = NA), which = "row", |
|
413 | 413 |
baseline = 0, width = anno_size$width, border = border, ...) |
414 | 414 |
} |
415 |
+ |
|
416 |
+ fun@show_name = FALSE |
|
417 |
+ return(fun) |
|
415 | 418 |
} |
416 | 419 |
|
417 | 420 |
guess_alter_fun_is_vectorized = function(alter_fun) { |
... | ... |
@@ -289,7 +289,7 @@ rep.list = function(x, n) { |
289 | 289 |
# == value |
290 | 290 |
# A vector of viewport names. |
291 | 291 |
# |
292 |
-list_component = function() { |
|
292 |
+list_components = function() { |
|
293 | 293 |
vp = grid.ls(viewports = TRUE, grobs = FALSE, flatten = FALSE, print = FALSE) |
294 | 294 |
vp = unlist(vp) |
295 | 295 |
attributes(vp) = NULL |
... | ... |
@@ -1,6 +1,5 @@ |
1 | 1 |
\name{adjust_heatmap_list-HeatmapList-method} |
2 | 2 |
\alias{adjust_heatmap_list,HeatmapList-method} |
3 |
-\alias{adjust_heatmap_list} |
|
4 | 3 |
\title{ |
5 | 4 |
Adjust heatmap list |
6 | 5 |
} |
... | ... |
@@ -23,8 +22,8 @@ This function is only for internal use. |
23 | 22 |
\author{ |
24 | 23 |
Zuguang Gu <z.gu@dkfz.de> |
25 | 24 |
} |
25 |
+\alias{adjust_heatmap_list} |
|
26 | 26 |
\examples{ |
27 | 27 |
# There is no example |
28 | 28 |
NULL |
29 |
- |
|
30 | 29 |
} |
... | ... |
@@ -1,6 +1,5 @@ |
1 | 1 |
\name{annotation_legend_size-HeatmapList-method} |
2 | 2 |
\alias{annotation_legend_size,HeatmapList-method} |
3 |
-\alias{annotation_legend_size} |
|
4 | 3 |
\title{ |
5 | 4 |
Size of the annotation legend viewport |
6 | 5 |
} |
... | ... |
@@ -29,8 +28,8 @@ A \code{\link[grid]{unit}} object. |
29 | 28 |
\author{ |
30 | 29 |
Zuguang Gu <z.gu@dkfz.de> |
31 | 30 |
} |
31 |
+\alias{annotation_legend_size} |
|
32 | 32 |
\examples{ |
33 | 33 |
# There is no example |
34 | 34 |
NULL |
35 |
- |
|
36 | 35 |
} |
... | ... |
@@ -1,6 +1,5 @@ |
1 | 1 |
\name{color_mapping_legend-ColorMapping-method} |
2 | 2 |
\alias{color_mapping_legend,ColorMapping-method} |
3 |
-\alias{color_mapping_legend} |
|
4 | 3 |
\title{ |
5 | 4 |
Draw Legend Based on Color Mapping |
6 | 5 |
} |
... | ... |
@@ -66,8 +65,8 @@ A \code{\link{Legends-class}} object. |
66 | 65 |
\author{ |
67 | 66 |
Zuguang Gu <z.gu@dkfz.de> |
68 | 67 |
} |
68 |
+\alias{color_mapping_legend} |
|
69 | 69 |
\examples{ |
70 | 70 |
# There is no example |
71 | 71 |
NULL |
72 |
- |
|
73 | 72 |
} |
... | ... |
@@ -1,6 +1,5 @@ |
1 | 1 |
\name{draw_annotation-Heatmap-method} |
2 | 2 |
\alias{draw_annotation,Heatmap-method} |
3 |
-\alias{draw_annotation} |
|
4 | 3 |
\title{ |
5 | 4 |
Draw Heatmap Annotations on the Heatmap |
6 | 5 |
} |
... | ... |
@@ -31,8 +30,8 @@ This function returns no value. |
31 | 30 |
\author{ |
32 | 31 |
Zuguang Gu <z.gu@dkfz.de> |
33 | 32 |
} |
33 |
+\alias{draw_annotation} |
|
34 | 34 |
\examples{ |
35 | 35 |
# There is no example |
36 | 36 |
NULL |
37 |
- |
|
38 | 37 |
} |
... | ... |
@@ -1,6 +1,5 @@ |
1 | 1 |
\name{draw_annotation_legend-HeatmapList-method} |
2 | 2 |
\alias{draw_annotation_legend,HeatmapList-method} |
3 |
-\alias{draw_annotation_legend} |
|
4 | 3 |
\title{ |
5 | 4 |
Draw legends for all column annotations |
6 | 5 |
} |
... | ... |
@@ -28,8 +27,8 @@ This function returns no value. |
28 | 27 |
\author{ |
29 | 28 |
Zuguang Gu <z.gu@dkfz.de> |
30 | 29 |
} |
30 |
+\alias{draw_annotation_legend} |
|
31 | 31 |
\examples{ |
32 | 32 |
# There is no example |
33 | 33 |
NULL |
34 |
- |
|
35 | 34 |
} |
... | ... |
@@ -1,6 +1,5 @@ |
1 | 1 |
\name{draw_dend-Heatmap-method} |
2 | 2 |
\alias{draw_dend,Heatmap-method} |
3 |
-\alias{draw_dend} |
|
4 | 3 |
\title{ |
5 | 4 |
Draw Heatmap Dendrograms |
6 | 5 |
} |
... | ... |
@@ -34,8 +33,8 @@ This function returns no value. |
34 | 33 |
\author{ |
35 | 34 |
Zuguang Gu <z.gu@dkfz.de> |
36 | 35 |
} |
36 |
+\alias{draw_dend} |
|
37 | 37 |
\examples{ |
38 | 38 |
# There is no example |
39 | 39 |
NULL |
40 |
- |
|
41 | 40 |
} |
... | ... |
@@ -1,6 +1,5 @@ |
1 | 1 |
\name{draw_dimnames-Heatmap-method} |
2 | 2 |
\alias{draw_dimnames,Heatmap-method} |
3 |
-\alias{draw_dimnames} |
|
4 | 3 |
\title{ |
5 | 4 |
Draw row names or column names |
6 | 5 |
} |
... | ... |
@@ -30,8 +29,8 @@ This function returns no value. |
30 | 29 |
\author{ |
31 | 30 |
Zuguang Gu <z.gu@dkfz.de> |
32 | 31 |
} |
32 |
+\alias{draw_dimnames} |
|
33 | 33 |
\examples{ |
34 | 34 |
# There is no example |
35 | 35 |
NULL |
36 |
- |
|
37 | 36 |
} |
... | ... |
@@ -1,6 +1,5 @@ |
1 | 1 |
\name{draw_heatmap_body-Heatmap-method} |
2 | 2 |
\alias{draw_heatmap_body,Heatmap-method} |
3 |
-\alias{draw_heatmap_body} |
|
4 | 3 |
\title{ |
5 | 4 |
Draw the Heatmap Body |
6 | 5 |
} |
... | ... |
@@ -29,8 +28,8 @@ This function returns no value. |
29 | 28 |
\author{ |
30 | 29 |
Zuguang Gu <z.gu@dkfz.de> |
31 | 30 |
} |
31 |
+\alias{draw_heatmap_body} |
|
32 | 32 |
\examples{ |
33 | 33 |
# There is no example |
34 | 34 |
NULL |
35 |
- |
|
36 | 35 |
} |
... | ... |
@@ -1,6 +1,5 @@ |
1 | 1 |
\name{draw_heatmap_legend-HeatmapList-method} |
2 | 2 |
\alias{draw_heatmap_legend,HeatmapList-method} |
3 |
-\alias{draw_heatmap_legend} |
|
4 | 3 |
\title{ |
5 | 4 |
Draw legends for all heatmaps |
6 | 5 |
} |
... | ... |
@@ -28,8 +27,8 @@ This function returns no value. |
28 | 27 |
\author{ |
29 | 28 |
Zuguang Gu <z.gu@dkfz.de> |
30 | 29 |
} |
30 |
+\alias{draw_heatmap_legend} |
|
31 | 31 |
\examples{ |
32 | 32 |
# There is no example |
33 | 33 |
NULL |
34 |
- |
|
35 | 34 |
} |
... | ... |
@@ -1,6 +1,5 @@ |
1 | 1 |
\name{draw_heatmap_list-HeatmapList-method} |
2 | 2 |
\alias{draw_heatmap_list,HeatmapList-method} |
3 |
-\alias{draw_heatmap_list} |
|
4 | 3 |
\title{ |
5 | 4 |
Draw the list of heatmaps |
6 | 5 |
} |
... | ... |
@@ -26,8 +25,8 @@ This function returns no value. |
26 | 25 |
\author{ |
27 | 26 |
Zuguang Gu <z.gu@dkfz.de> |
28 | 27 |
} |
28 |
+\alias{draw_heatmap_list} |
|
29 | 29 |
\examples{ |
30 | 30 |
# There is no example |
31 | 31 |
NULL |
32 |
- |
|
33 | 32 |
} |
... | ... |
@@ -1,6 +1,5 @@ |
1 | 1 |
\name{get_color_mapping_list-HeatmapAnnotation-method} |
2 | 2 |
\alias{get_color_mapping_list,HeatmapAnnotation-method} |
3 |
-\alias{get_color_mapping_list} |
|
4 | 3 |
\title{ |
5 | 4 |
Get a List of ColorMapping objects |
6 | 5 |
} |
... | ... |
@@ -26,8 +25,8 @@ A list of \code{\link{ColorMapping-class}} objects or an empty list. |
26 | 25 |
\author{ |
27 | 26 |
Zuguang Gu <z.gu@dkfz.de> |
28 | 27 |
} |
28 |
+\alias{get_color_mapping_list} |
|
29 | 29 |
\examples{ |
30 | 30 |
# There is no example |
31 | 31 |
NULL |
32 |
- |
|
33 | 32 |
} |
... | ... |
@@ -1,6 +1,5 @@ |
1 | 1 |
\name{get_legend_param_list-HeatmapAnnotation-method} |
2 | 2 |
\alias{get_legend_param_list,HeatmapAnnotation-method} |
3 |
-\alias{get_legend_param_list} |
|
4 | 3 |
\title{ |
5 | 4 |
Get a List of Annotation Legend Parameters |
6 | 5 |
} |
... | ... |
@@ -26,8 +25,8 @@ A list. |
26 | 25 |
\author{ |
27 | 26 |
Zuguang Gu <z.gu@dkfz.de> |
28 | 27 |
} |
28 |
+\alias{get_legend_param_list} |
|
29 | 29 |
\examples{ |
30 | 30 |
# There is no example |
31 | 31 |
NULL |
32 |
- |
|
33 | 32 |
} |
... | ... |
@@ -1,6 +1,5 @@ |
1 | 1 |
\name{heatmap_legend_size-HeatmapList-method} |
2 | 2 |
\alias{heatmap_legend_size,HeatmapList-method} |
3 |
-\alias{heatmap_legend_size} |
|
4 | 3 |
\title{ |
5 | 4 |
Size of the heatmap legend viewport |
6 | 5 |
} |
... | ... |
@@ -26,8 +25,8 @@ A \code{\link[grid]{unit}} object. |
26 | 25 |
\author{ |
27 | 26 |
Zuguang Gu <z.gu@dkfz.de> |
28 | 27 |
} |
28 |
+\alias{heatmap_legend_size} |
|
29 | 29 |
\examples{ |
30 | 30 |
# There is no example |
31 | 31 |
NULL |
32 |
- |
|
33 | 32 |
} |
22 | 21 |
similarity index 72% |
23 | 22 |
rename from man/list_component.rd |
24 | 23 |
rename to man/list_components.rd |
... | ... |
@@ -1,5 +1,5 @@ |
1 |
-\name{list_component} |
|
2 |
-\alias{list_component} |
|
1 |
+\name{list_components} |
|
2 |
+\alias{list_components} |
|
3 | 3 |
\title{ |
4 | 4 |
List All Heatmap Components |
5 | 5 |
} |
... | ... |
@@ -7,7 +7,7 @@ List All Heatmap Components |
7 | 7 |
List All Heatmap Components |
8 | 8 |
} |
9 | 9 |
\usage{ |
10 |
-list_component() |
|
10 |
+list_components() |
|
11 | 11 |
} |
12 | 12 |
\value{ |
13 | 13 |
A vector of viewport names. |
... | ... |
@@ -15,5 +15,4 @@ A vector of viewport names. |
15 | 15 |
\examples{ |
16 | 16 |
# There is no example |
17 | 17 |
NULL |
18 |
- |
|
19 | 18 |
} |
... | ... |
@@ -1,6 +1,5 @@ |
1 | 1 |
\name{make_column_cluster-Heatmap-method} |
2 | 2 |
\alias{make_column_cluster,Heatmap-method} |
3 |
-\alias{make_column_cluster} |
|
4 | 3 |
\title{ |
5 | 4 |
Make Cluster on Columns |
6 | 5 |
} |
... | ... |
@@ -29,8 +28,8 @@ A \code{\link{Heatmap-class}} object. |
29 | 28 |
\author{ |
30 | 29 |
Zuguang Gu <z.gu@dkfz.de> |
31 | 30 |
} |
31 |
+\alias{make_column_cluster} |
|
32 | 32 |
\examples{ |
33 | 33 |
# There is no example |
34 | 34 |
NULL |
35 |
- |
|
36 | 35 |
} |
... | ... |
@@ -1,6 +1,5 @@ |
1 | 1 |
\name{make_row_cluster-Heatmap-method} |
2 | 2 |
\alias{make_row_cluster,Heatmap-method} |
3 |
-\alias{make_row_cluster} |
|
4 | 3 |
\title{ |
5 | 4 |
Make Cluster on Rows |
6 | 5 |
} |
... | ... |
@@ -28,8 +27,8 @@ A \code{\link{Heatmap-class}} object. |
28 | 27 |
\author{ |
29 | 28 |
Zuguang Gu <z.gu@dkfz.de> |
30 | 29 |
} |
30 |
+\alias{make_row_cluster} |
|
31 | 31 |
\examples{ |
32 | 32 |
# There is no example |
33 | 33 |
NULL |
34 |
- |
|
35 | 34 |
} |
... | ... |
@@ -1,6 +1,5 @@ |
1 | 1 |
\name{map_to_colors-ColorMapping-method} |
2 | 2 |
\alias{map_to_colors,ColorMapping-method} |
3 |
-\alias{map_to_colors} |
|
4 | 3 |
\title{ |
5 | 4 |
Map Values to Colors |
6 | 5 |
} |
... | ... |
@@ -35,3 +34,4 @@ col_fun = colorRamp2(c(0, 1), c("white", "red")) |
35 | 34 |
cm = ColorMapping(col_fun = col_fun) |
36 | 35 |
map_to_colors(cm, runif(10)) |
37 | 36 |
} |
37 |
+\alias{map_to_colors} |
... | ... |
@@ -1,6 +1,5 @@ |
1 | 1 |
\name{prepare-Heatmap-method} |
2 | 2 |
\alias{prepare,Heatmap-method} |
3 |
-\alias{prepare} |
|
4 | 3 |
\title{ |
5 | 4 |
Prepare the Heatmap |
6 | 5 |
} |
... | ... |
@@ -34,8 +33,8 @@ The \code{\link{Heatmap-class}} object. |
34 | 33 |
\author{ |
35 | 34 |
Zuguang Gu <z.gu@dkfz.de> |
36 | 35 |
} |
36 |
+\alias{prepare} |
|
37 | 37 |
\examples{ |
38 | 38 |
# There is no example |
39 | 39 |
NULL |
40 |
- |
|
41 | 40 |
} |
... | ... |
@@ -1,6 +1,5 @@ |
1 | 1 |
\name{resize-HeatmapAnnotation-method} |
2 | 2 |
\alias{resize,HeatmapAnnotation-method} |
3 |
-\alias{resize} |
|
4 | 3 |
\title{ |
5 | 4 |
Resize the Width or Height of Heatmap Annotations |
6 | 5 |
} |
... | ... |
@@ -41,8 +40,8 @@ the basic rule is: |
41 | 40 |
and \code{anno_simple_size} is disabled. |
42 | 41 |
6. If \code{simple_anno_size_adjust} is \code{FALSE}, the size of the simple annotations will not change. |
43 | 42 |
} |
43 |
+\alias{resize} |
|
44 | 44 |
\examples{ |
45 | 45 |
# There is no example |
46 | 46 |
NULL |
47 |
- |
|
48 | 47 |
} |
... | ... |
@@ -1,6 +1,5 @@ |
1 | 1 |
\name{set_component_height-Heatmap-method} |
2 | 2 |
\alias{set_component_height,Heatmap-method} |
3 |
-\alias{set_component_height} |
|
4 | 3 |
\title{ |
5 | 4 |
Set Height of Heatmap Component |
6 | 5 |
} |
... | ... |
@@ -30,8 +29,8 @@ The \code{\link{Heatmap-class}} object. |
30 | 29 |
\author{ |
31 | 30 |
Zuguang Gu <z.gu@dkfz.de> |
32 | 31 |
} |
32 |
+\alias{set_component_height} |
|
33 | 33 |
\examples{ |
34 | 34 |
# There is no example |
35 | 35 |
NULL |
36 |
- |
|
37 | 36 |
} |
... | ... |
@@ -1,6 +1,5 @@ |
1 | 1 |
\name{set_component_width-Heatmap-method} |
2 | 2 |
\alias{set_component_width,Heatmap-method} |
3 |
-\alias{set_component_width} |
|
4 | 3 |
\title{ |
5 | 4 |
Set Width of Heatmap Component |
6 | 5 |
} |
... | ... |
@@ -29,8 +28,8 @@ The \code{\link{Heatmap-class}} object. |
29 | 28 |
\author{ |
30 | 29 |
Zuguang Gu <z.gu@dkfz.de> |
31 | 30 |
} |
31 |
+\alias{set_component_width} |
|
32 | 32 |
\examples{ |
33 | 33 |
# There is no example |
34 | 34 |
NULL |
35 |
- |
|
36 | 35 |
} |