# HG changeset patch
# User guerler
# Date 1401989857 14400
# Node ID e10dbc437d8f3eb6f2f1815f44a17982e8f28aa2
# Parent  bfd966f30073fe8dfa672b1682d543fe21f02ed7
Uploaded

diff -r bfd966f30073 -r e10dbc437d8f boxplot.r
--- a/boxplot.r	Thu Jun 05 13:37:22 2014 -0400
+++ b/boxplot.r	Thu Jun 05 13:37:37 2014 -0400
@@ -7,8 +7,8 @@
     for (key in names(columns)) {
         # load column data
         column <- as.numeric(columns[key])
-        column_data <- sapply( table[column], as.numeric )
-
+        column_data <- suppressWarnings(as.numeric(as.character(table[column][[1]])))
+    
         # create hist data
         data <- boxplot(column_data, plot=FALSE)