# HG changeset patch
# User guerler
# Date 1401989880 14400
# Node ID 5a478e17175232f4337bfbc95ada7a29d5381f3e
# Parent  e10dbc437d8f3eb6f2f1815f44a17982e8f28aa2
Uploaded

diff -r e10dbc437d8f -r 5a478e171752 heatmap.r
--- a/heatmap.r	Thu Jun 05 13:37:37 2014 -0400
+++ b/heatmap.r	Thu Jun 05 13:38:00 2014 -0400
@@ -1,13 +1,10 @@
-# limits
-min_limit = 20
-
 # load sparse matrix package
 suppressPackageStartupMessages(library('Matrix'))
 
 # access a numeric column
 get_numeric <- function(table, column_key) {
     column <- as.numeric(column_key)
-    column_data <- sapply( table[column], as.numeric )
+    column_data <- suppressWarnings(as.numeric(as.character(table[column][[1]])))
     return (c(column_data))
 }
 
@@ -85,15 +82,8 @@
         # reorder matrix
         my_matrix <- my_matrix[row_order, col_order]
         
-        # get min size
-        min_limit = max(as.integer(options$limit), min_limit)
-        
-        # get max size
-        max_row = min(length(row_order), min_limit)
-        max_col = min(length(col_order), min_limit)
-        
         # transform back to three columns
-        my_flatmatrix = flatten(my_matrix[1:max_row, 1:max_col])
+        my_flatmatrix = flatten(my_matrix)
         
         # append to result list
         l <- append(l, list(my_flatmatrix$i))