comparison bmsb.R @ 16:a286e1d48b45 draft

Uploaded
author greg
date Tue, 16 Aug 2016 11:36:16 -0400
parents 86dd2729766d
children c6668285a216
comparison
equal deleted inserted replaced
15:86dd2729766d 16:a286e1d48b45
1 #!/usr/bin/env Rscript 1 #!/usr/bin/env Rscript
2 2
3 #suppressPackageStartupMessages(library("optparse")) 3 #suppressPackageStartupMessages(library("optparse"))
4 4
5 options_list <- list( 5 options_list <- list(
6 make_option(c("-s", "--save_log"), action="store_true", default=FALSE, help="Save R logs"),
7 make_option(c("-m", "--output_r_log"), help="Output dataset for R logs"),
8 make_option(c("-o", "--output"), help="Output dataset") 6 make_option(c("-o", "--output"), help="Output dataset")
9 ) 7 )
10 8
11 parser <- OptionParser(usage="%prog [options] file", options_list) 9 parser <- OptionParser(usage="%prog [options] file", options_list)
12 args <- parse_args(parser, positional_arguments=TRUE) 10 args <- parse_args(parser, positional_arguments=TRUE)