Mercurial > repos > mingchen0919 > elastic_expose_data
view list_paired_render.R @ 5:4f9f1e76f7e6 draft
planemo upload commit 979e0f1c28c74ca7df02ef20c2208e9677bc820a-dirty
author | mingchen0919 |
---|---|
date | Mon, 02 Apr 2018 09:16:17 -0400 |
parents | 391394c022b8 |
children | 52ecc1cfd205 |
line wrap: on
line source
##============ Sink warnings and errors to a file ============== ## use the sink() function to wrap all code within it. ##============================================================== zz = file(Sys.getenv('TOOL_LOG')) sink(zz) sink(zz, type = 'message') #------------import libraries-------------------- options(stringsAsFactors = FALSE) library(rmarkdown) library(stringr) #------------------------------------------------ #------------------------------------------------ options_and_arguments = read.table(paste0(Sys.getenv('REPORT_FILES_PATH'), '/options_and_arguments.txt'), sep = '|', header = TRUE) #------------------------------------------------ # create three folders within working directory dir.create('list_paired') job_working_dir = getwd() list_paired_path = paste0(job_working_dir, '/list_paired/') #-----------------render Rmd-------------- # copy R markdown file to working directory and render it within the working directory. render(paste0(Sys.getenv('TOOL_INSTALL_DIR'), '/list_paired.Rmd'), output_file = paste0(Sys.getenv('REPORT_FILES_PATH'), '/report.html')) # for some unknow reason, directly using REPORT as the input value for output_file parameter # in the render function can cause empty report file when the tool runs in batch mode. # the solution is to render the rmarkdown to a explicitly specified file and then copy the # file to ${REPORT} system(command = 'cp ${REPORT_FILES_PATH}/report.html ${REPORT}') # system(command = 'sh ${REPORT_FILES_PATH}/script.sh') # rename files so that all files have the name pattern BASENAME_forward.EXT and BASENAME_reverse.EXT from_files = list.files('list_paired', full.names = TRUE) to_files = str_replace_all(from_files, c('_1', '_2'), c('_forward', '_reverse')) file.rename(from = from_files, to = to_files) #------------------------------------------ ##--------end of code rendering .Rmd templates---------------- sink() ##=========== End of sinking output=============================