comparison tool_template_render.R @ 9:a9f93a4742b1 draft

update

8:ac0c560845dc

  )
)
opt = getopt::getopt(spec_matrix)
opt

# build command: awk '{print $1,$2}' > output.txt and run
X_A = paste0(paste0('$', trimws(strsplit(opt$X_A, ',')[[1]])), collapse = ',')
extract_field_command = paste0("awk '{print ", X_A, " }' ", opt$X_B, " > ", opt$X_O)
system(command = extract_field_command)

sink()

9:a9f93a4742b1

  )
)
opt = getopt::getopt(spec_matrix)
opt

rmarkdown::render(input = opt$X_t, output_file = opt$X_O)

sink()