comparison bmsb.R @ 15:86dd2729766d draft

Uploaded
author greg
date Tue, 16 Aug 2016 11:33:25 -0400
parents 5ba47f694b0a
children a286e1d48b45
comparison
equal deleted inserted replaced
14:5ba47f694b0a 15:86dd2729766d
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"), 6 make_option(c("-s", "--save_log"), action="store_true", default=FALSE, help="Save R logs"),
7 make_option(c("-m", "--output_r_log"), action="store", help="Output dataset for R logs"), 7 make_option(c("-m", "--output_r_log"), help="Output dataset for R logs"),
8 make_option(c("-o", "--output"), action="store", help="Output dataset") 8 make_option(c("-o", "--output"), help="Output dataset")
9 ) 9 )
10 10
11 parser <- OptionParser(usage="%prog [options] file", options_list) 11 parser <- OptionParser(usage="%prog [options] file", options_list)
12 args <- parse_args(parser, positional_arguments=TRUE) 12 args <- parse_args(parser, positional_arguments=TRUE)
13 opt <- args$options 13 opt <- args$options