Mercurial > repos > mingchen0919 > aurora_htseq
view htseq_count_render.R @ 9:578a96df8690 draft
planemo upload commit 1cb2dd80dcb431563edbe1e763b3dde3a1adb2ae-dirty
author | mingchen0919 |
---|---|
date | Wed, 25 Apr 2018 14:22:32 -0400 |
parents | 1696f5ee0fe7 |
children |
line wrap: on
line source
##============ Sink warnings and errors to a file ============== ## use the sink() function to wrap all code within it. ##============================================================== zz = file(paste0(Sys.getenv('REPORT_FILES_PATH'), '/.r_rendering.log.txt')) sink(zz) sink(zz, type = 'message') #-------------------preparation ----------------- options(stringsAsFactors = FALSE) # import libraries library(getopt) library(rmarkdown) library(htmltools) library(magrittr) library(knitr) # load helper functions source(paste0(Sys.getenv('TOOL_INSTALL_DIR'), '/helper.R')) # import getopt specification matrix from a csv file opt = getopt(getopt_specification_matrix('getopt_specification.csv', tool_dir=Sys.getenv('TOOL_INSTALL_DIR'))) # define a unix variable versions for all input values. this is useful when we # want to use input values by other programming language in r markdown do.call(Sys.setenv, opt[-1]) #------------------------------------------------ #-----------------render Rmd files -------------- # NOTICE: # we should copy all rmarkdown files from tool install directory to REPORT_FILES_PATH directory. # and render rmarkdown files in the REPORT_FILES_PATH directory. file.copy(from = paste0(Sys.getenv('TOOL_INSTALL_DIR'), '/vakata-jstree-3.3.5'), to = Sys.getenv('REPORT_FILES_PATH'), recursive = TRUE) system(command = 'cp -r ${TOOL_INSTALL_DIR}/*.Rmd ${REPORT_FILES_PATH}') # render Rmd files in order render(input = paste0(Sys.getenv('REPORT_FILES_PATH'), '/htseq_count.Rmd')) # add more lines below if there are more Rmd files to be rendered #------------------------------------------ #--------- expose outputs to galaxy history ---- system(command = 'sh ${TOOL_INSTALL_DIR}/expose-outputs.sh') #==============the end============== ##--------end of code rendering .Rmd templates---------------- sink() ##=========== End of sinking output=============================