|
6
|
1 zz = file("warnings_and_errors.txt")
|
|
|
2 sink(zz)
|
|
|
3 sink(zz, type = "message")
|
|
|
4
|
|
|
5 # bring user inputs and command line arguments to R
|
|
|
6 spec_matrix = as.matrix(
|
|
|
7 data.frame(stringsAsFactors=FALSE,
|
|
7
|
8 long_flags = c("X_e", "X_A", "X_B", "X_O", "X_r", "X_d", "X_s",
|
|
|
9 "X_t"),
|
|
6
|
10 short_flags = c("e", "A", "B", "O", "r", "d", "s", "t"),
|
|
7
|
11 argument_mask_flags = c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L),
|
|
|
12 data_type_flags = c("character", "character", "character", "character",
|
|
|
13 "character", "character", "character",
|
|
|
14 "character")
|
|
6
|
15 )
|
|
|
16 )
|
|
|
17 opt = getopt::getopt(spec_matrix)
|
|
|
18 opt
|
|
|
19
|
|
9
|
20 rmarkdown::render(input = opt$X_t, output_file = opt$X_O)
|
|
6
|
21
|
|
|
22 sink()
|
