Mercurial > repos > greg > ideas

comparison create_heatmaps.R @ 145:08e77c105188 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author greg
date Thu, 04 Jan 2018 14:45:28 -0500
parents 269e7e466b00
children 04db93e8566b
comparison
equal deleted inserted replaced
144:8cd08d0aeb69 145:08e77c105188
1 #!/usr/bin/env Rscript 1 #!/usr/bin/env Rscript
2 2
3 suppressPackageStartupMessages(library("optparse")) 3 suppressPackageStartupMessages(library("optparse"))
4 4
5 option_list <- list( 5 option_list <- list(
6 make_option(c("--input_dir"), action="store", dest="input_dir", help="IDEAS para files directory"), 6 make_option(c("--input_dir"), action="store", dest="input_dir", help="IDEAS para files directory"),
7 make_option(c("--output_dir"), action="store", dest="output_dir", help="PDF output directory"), 7 make_option(c("--output_dir"), action="store", dest="output_dir", help="PDF output directory"),
8 make_option(c("--script_dir"), action="store", dest="script_dir", help="R script source directory") 8 make_option(c("--script_dir"), action="store", dest="script_dir", help="R script source directory")
9 ) 9 )
10 10
11 parser <- OptionParser(usage="%prog [options] file", option_list=option_list); 11 parser <- OptionParser(usage="%prog [options] file", option_list=option_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;