|
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
|
|
|
20 # build command: awk '{print $1,$2}' > output.txt and run
|
|
|
21 X_A = paste0(paste0('$', trimws(strsplit(opt$X_A, ',')[[1]])), collapse = ',')
|
|
|
22 extract_field_command = paste0("awk '{print ", X_A, " }' ", opt$X_B, " > ", opt$X_O)
|
|
|
23 system(command = extract_field_command)
|
|
|
24
|
|
|
25 sink()
|
