|
6
|
1 zz = file("warnings_and_errors.txt")
|
|
|
2 sink(zz)
|
|
|
3 sink(zz, type = "message")
|
|
|
4
|
|
11
|
5
|
|
6
|
6 # bring user inputs and command line arguments to R
|
|
|
7 spec_matrix = as.matrix(
|
|
|
8 data.frame(stringsAsFactors=FALSE,
|
|
7
|
9 long_flags = c("X_e", "X_A", "X_B", "X_O", "X_r", "X_d", "X_s",
|
|
|
10 "X_t"),
|
|
6
|
11 short_flags = c("e", "A", "B", "O", "r", "d", "s", "t"),
|
|
7
|
12 argument_mask_flags = c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L),
|
|
|
13 data_type_flags = c("character", "character", "character", "character",
|
|
|
14 "character", "character", "character",
|
|
|
15 "character")
|
|
6
|
16 )
|
|
|
17 )
|
|
|
18 opt = getopt::getopt(spec_matrix)
|
|
|
19 opt
|
|
|
20
|
|
11
|
21 # build command: awk '{print $1,$2}' > output.txt and run
|
|
|
22 X_A = paste0(paste0('$', trimws(strsplit(opt$X_A, ',')[[1]])), collapse = ',')
|
|
|
23 extract_field_command = paste0("awk '{print ", X_A, " }' ", opt$X_B, " > ", opt$X_O)
|
|
|
24 system(command = extract_field_command)
|
|
|
25
|
|
12
|
26 rmarkdown::render(input = opt$X_t, output_file = opt$X_r)
|
|
6
|
27 sink()
|
