if (FALSE) {
library(h2o)
h2o.init()
iris_hf <- as.h2o(iris)
file_path <- paste(getwd(), "my_iris_file.csv", sep = .Platform$file.sep)
h2o.downloadCSV(iris_hf, file_path)
file.info(file_path)
file.remove(file_path)
}
Run the code above in your browser using DataLab