# HG changeset patch
# User guerler
# Date 1401992621 14400
# Node ID 680cf68098d529daa018e70263003b222c352198
# Parent  15a18f472cd99f4367a536c95cd29506fb72cded
Uploaded

diff -r 15a18f472cd9 -r 680cf68098d5 heatmap.r
--- a/heatmap.r	Thu Jun 05 13:38:55 2014 -0400
+++ b/heatmap.r	Thu Jun 05 14:23:41 2014 -0400
@@ -11,7 +11,8 @@
 # access a label column
 get_label <- function(table, column_key) {
     column <- as.numeric(column_key)
-    return (c(table[column]))
+    column_data <- as.character(table[column][[1]])
+    return (c(column_data))
 }
 
 # inflate three columns into matrix