Mercurial > repos > greg > bmsb
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 |