comparison hello_world.R @ 4:f3737c086298 draft

Uploaded
author greg
date Mon, 15 Aug 2016 14:17:51 -0400
parents fa71365e68b6
children a11f7a342777
comparison
equal deleted inserted replaced
3:8d61cf6f8d6f 4:f3737c086298
5 5
6 option_list <- list( 6 option_list <- list(
7 make_option(c("-o", "--output"), action="store", help="Output dataset") 7 make_option(c("-o", "--output"), action="store", help="Output dataset")
8 ) 8 )
9 9
10 parser <- OptionParser(usage="%prog [options] file", options_list)
11 args <- parse+args(parser, positional_arguments=TRUE)
12 opt <- args$options
13
10 fileConn<-file(opt$output) 14 fileConn<-file(opt$output)
11 writeLines(c("Hello","World"), fileConn) 15 writeLines(c("Hello","World"), fileConn)
12 close(fileConn) 16 close(fileConn)
13 17
14 18