quote strings when writing to disk

h2oai · Jun 19, 2015 · 889a657 · 889a657
1 parent b2edebe
commit 889a657
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 6 deletions.
diff --git a/h2o-core/src/main/java/water/fvec/Frame.java b/h2o-core/src/main/java/water/fvec/Frame.java
@@ -1236,7 +1236,7 @@ private class CSVStream extends InputStream {
             if( vs[i].isEnum() ) sb.append('"').append(vs[i].factor(vs[i].at8(_row))).append('"');
             else if( vs[i].isUUID() ) sb.append(PrettyPrint.UUID(vs[i].at16l(_row), vs[i].at16h(_row)));
             else if( vs[i].isInt() ) sb.append(vs[i].at8(_row));
-            else if (vs[i].isString()) sb.append(vs[i].atStr(new ValueString(), _row));
+            else if (vs[i].isString()) sb.append('"').append(vs[i].atStr(new ValueString(), _row)).append('"');
             else {
               double d = vs[i].at(_row);
               // R 3.1 unfortunately changed the behavior of read.csv().

diff --git a/h2o-r/H2O_Load.R b/h2o-r/H2O_Load.R
@@ -1,9 +1,9 @@
 # Change this global variable to match your own system's path
-ANQIS.ROOT.PATH <- "/Users/anqi_fu/Documents/workspace/"
-ANQIS.WIN.PATH <- "C:/Users/Anqi/Documents/Work/"
-SPENCERS.ROOT.PATH <- "/Users/spencer/0xdata/"
-ROOT.PATH <- ANQIS.ROOT.PATH
-DEV.PATH  <- "h2o-3/h2o-r/h2o-package/R/"
+ANQIS.ROOT.PATH <- "/Users/anqi_fu/Documents/workspace/h2o-3"
+ANQIS.WIN.PATH <- "C:/Users/Anqi/Documents/Work/h2o-3"
+SPENCERS.ROOT.PATH <- "/Users/spencer/0xdata/h2o-dev"
+ROOT.PATH <- SPENCERS.ROOT.PATH
+DEV.PATH  <- "/h2o-r/h2o-package/R/"
 FULL.PATH <- paste(ROOT.PATH, DEV.PATH, sep="")
 
 src <-