Browse code

change variable names

Zuguang Gu authored on 23/11/2018 17:59:37
Showing1 changed files

... ...
@@ -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"),