Mercurial > repos > greg > bmsb
annotate bmsb.R @ 18:c6668285a216 draft
Uploaded
| author | greg |
|---|---|
| date | Tue, 16 Aug 2016 11:38:43 -0400 |
| parents | a286e1d48b45 |
| children | d965e188feab |
| rev | line source |
|---|---|
| 0 | 1 #!/usr/bin/env Rscript |
| 2 | |
| 13 | 3 options_list <- list( |
| 18 | 4 make_option(c("-o", "--output"), action="store", help="Output dataset") |
| 0 | 5 ) |
| 6 | |
| 13 | 7 parser <- OptionParser(usage="%prog [options] file", options_list) |
| 8 args <- parse_args(parser, positional_arguments=TRUE) | |
| 9 opt <- args$options | |
| 10 | |
| 11 | |
| 18 | 12 fileConn<-file(opt$output) |
| 13 writeLines(c("Hello World!"), fileConn) | |
| 14 close(fileConn) |