Mercurial > repos > mingchen0919 > one_command_liners
view tool_template_render.R @ 10:49cabfe55b61 draft
update 2
author | mingchen0919 |
---|---|
date | Fri, 23 Feb 2018 15:58:55 -0500 |
parents | a9f93a4742b1 |
children | 670e1591cc65 |
line wrap: on
line source
zz = file("warnings_and_errors.txt") 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"), 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") ) ) opt = getopt::getopt(spec_matrix) opt rmarkdown::render(input = opt$X_t, output_file = opt$X_O) sink()