# HG changeset patch
# User greg
# Date 1471284735 14400
# Node ID fa71365e68b675fe9a35c10a91dae4455daf9503
# Parent  65fb665f37e3e14eb9b0d3f605722b9d34cb2147
Uploaded

diff -r 65fb665f37e3 -r fa71365e68b6 hello_world.R
--- a/hello_world.R	Mon Aug 15 13:56:03 2016 -0400
+++ b/hello_world.R	Mon Aug 15 14:12:15 2016 -0400
@@ -7,5 +7,8 @@
     make_option(c("-o", "--output"), action="store", help="Output dataset")
 )
 
-base::save("Hello world!", file=opt$output)
+fileConn<-file(opt$output)
+writeLines(c("Hello","World"), fileConn)
+close(fileConn)
 
+