| ... |
... |
@@ -116,7 +116,7 @@ setMethod(f = "draw_heatmap_body",
|
|
116 |
116 |
grid.rect(x[expand_index[[2]]], y[expand_index[[1]]], width = unit(1/nc, 'npc'), height = unit(1/nr, 'npc'), gp = do.call('gpar', c(list(fill = col_matrix), gp)))
|
|
117 |
117 |
}
|
|
118 |
118 |
if(is.function(layer_fun)) {
|
|
119 |
|
- if(length(as.list(formals(fun))) == 7) {
|
|
|
119 |
+ if(length(as.list(formals(layer_fun))) == 7) {
|
|
120 |
120 |
layer_fun(column_order[ expand_index[[2]] ], row_order[ expand_index[[1]] ],
|
|
121 |
121 |
x[expand_index[[2]]], y[expand_index[[1]]],
|
|
122 |
122 |
unit(rep(1/nc, nrow(expand_index)), "npc"), unit(rep(1/nr, nrow(expand_index)), "npc"),
|
| ... |
... |
@@ -197,7 +197,7 @@ setMethod(f = "draw_heatmap_body",
|
|
197 |
197 |
}
|
|
198 |
198 |
}
|
|
199 |
199 |
if(is.function(layer_fun)) {
|
|
200 |
|
- if(length(as.list(formals(fun))) == 7) {
|
|
|
200 |
+ if(length(as.list(formals(layer_fun))) == 7) {
|
|
201 |
201 |
layer_fun(column_order[ expand_index[[2]] ], row_order[ expand_index[[1]] ],
|
|
202 |
202 |
x[expand_index[[2]]], y[expand_index[[1]]],
|
|
203 |
203 |
unit(rep(1/nc, nrow(expand_index)), "npc"), unit(rep(1/nr, nrow(expand_index)), "npc"),
|
