Mercurial > repos > mingchen0919 > one_command_liners
diff tool_template_render.R @ 7:26a239300989 draft
initial tool
| author | mingchen0919 |
|---|---|
| date | Fri, 23 Feb 2018 11:23:30 -0500 |
| parents | 8c3b0ffa0d14 |
| children | ac0c560845dc |
line wrap: on
line diff
--- a/tool_template_render.R Fri Feb 23 10:46:48 2018 -0500 +++ b/tool_template_render.R Fri Feb 23 11:23:30 2018 -0500 @@ -2,16 +2,17 @@ sink(zz) sink(zz, type = "message") + # bring user inputs and command line arguments to R spec_matrix = as.matrix( data.frame(stringsAsFactors=FALSE, - long_flags = c("X_e", "X_A", "X_B", "X_O", "X_r", "X_d", "X_s", - "X_t"), + long_flags = c("X_e", "X_A", "X_B", "X_O", "X_r", "X_d", "X_s", + "X_t"), short_flags = c("e", "A", "B", "O", "r", "d", "s", "t"), - argument_mask_flags = c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), - data_type_flags = c("character", "character", "character", "character", - "character", "character", "character", - "character") + argument_mask_flags = c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), + data_type_flags = c("character", "character", "character", "character", + "character", "character", "character", + "character") ) ) opt = getopt::getopt(spec_matrix)