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()