Fix bug in as.h2o. h2o.exec call (for turning cols into enums) was so…

…mehow overwriting h2odataset object in outer scope.

replaced h2o.exec call with simple as.factor.

R/h2o-package/R/Classes.R

@@ -649,7 +649,7 @@ as.h2o <- function(client, object, key = "", header, sep = "") {
     toFactor <- names(which(unlist(lapply(object, is.factor))))
     write.csv(object, file=tmpf, quote = TRUE, row.names = FALSE)
     h2f <- h2o.uploadFile(client, tmpf, key=key, header=header, sep=sep)
-    invisible(lapply(toFactor, function(a) { h2o.exec(h2f[,a] <- factor(h2f[,a])) }))
+    invisible(lapply(toFactor, function(a) { h2f[,a] <- as.factor(h2f[,a]) }))
     unlink(tmpf)
     return(h2f)
   }