Mercurial > repos > mingchen0919 > one_command_liners

comparison tool_template_render.R @ 7:26a239300989 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
initial tool
author mingchen0919
date Fri, 23 Feb 2018 11:23:30 -0500
parents 8c3b0ffa0d14
children ac0c560845dc
comparison
equal deleted inserted replaced
6:8c3b0ffa0d14 7:26a239300989
1 zz = file("warnings_and_errors.txt") 1 zz = file("warnings_and_errors.txt")
2 sink(zz) 2 sink(zz)
3 sink(zz, type = "message") 3 sink(zz, type = "message")
4 4
5
5 # bring user inputs and command line arguments to R 6 # bring user inputs and command line arguments to R
6 spec_matrix = as.matrix( 7 spec_matrix = as.matrix(
7 data.frame(stringsAsFactors=FALSE, 8 data.frame(stringsAsFactors=FALSE,
8 long_flags = c("X_e", "X_A", "X_B", "X_O", "X_r", "X_d", "X_s", 9 long_flags = c("X_e", "X_A", "X_B", "X_O", "X_r", "X_d", "X_s",
9 "X_t"), 10 "X_t"),
10 short_flags = c("e", "A", "B", "O", "r", "d", "s", "t"), 11 short_flags = c("e", "A", "B", "O", "r", "d", "s", "t"),
11 argument_mask_flags = c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), 12 argument_mask_flags = c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L),
12 data_type_flags = c("character", "character", "character", "character", 13 data_type_flags = c("character", "character", "character", "character",
13 "character", "character", "character", 14 "character", "character", "character",
14 "character") 15 "character")
15 ) 16 )
16 ) 17 )
17 opt = getopt::getopt(spec_matrix) 18 opt = getopt::getopt(spec_matrix)
18 opt 19 opt
19 20