|
0
|
1 ##============ Sink warnings and errors to a file ==============
|
|
|
2 ## use the sink() function to wrap all code within it.
|
|
|
3 ##==============================================================
|
|
5
|
4 zz = file(paste0(Sys.getenv('REPORT_FILES_PATH'), '/.r_rendering.log.txt'))
|
|
0
|
5 sink(zz)
|
|
|
6 sink(zz, type = 'message')
|
|
|
7
|
|
5
|
8 #-------------------preparation -----------------
|
|
0
|
9 options(stringsAsFactors = FALSE)
|
|
5
|
10 # import libraries
|
|
0
|
11 library(getopt)
|
|
|
12 library(rmarkdown)
|
|
2
|
13 library(htmltools)
|
|
6
|
14 library(kableExtra)
|
|
|
15 library(magrittr)
|
|
5
|
16 # load helper functions
|
|
|
17 source(paste0(Sys.getenv('TOOL_INSTALL_DIR'), '/helper.R'))
|
|
|
18 # import getopt specification matrix from a csv file
|
|
|
19 opt = getopt(getopt_specification_matrix('getopt_specification.csv',
|
|
|
20 tool_dir=Sys.getenv('TOOL_INSTALL_DIR')))
|
|
|
21 # define a unix variable versions for all input values. this is useful when we
|
|
|
22 # want to use input values by other programming language in r markdown
|
|
|
23 do.call(Sys.setenv, opt[-1])
|
|
0
|
24 #------------------------------------------------
|
|
|
25
|
|
|
26
|
|
5
|
27 #-----------------render Rmd files --------------
|
|
|
28 # NOTICE:
|
|
|
29 # we should copy all rmarkdown files from tool install directory to REPORT_FILES_PATH directory.
|
|
|
30 # and render rmarkdown files in the REPORT_FILES_PATH directory.
|
|
|
31 file.copy(from = paste0(Sys.getenv('TOOL_INSTALL_DIR'), '/vakata-jstree-3.3.5'),
|
|
|
32 to = Sys.getenv('REPORT_FILES_PATH'), recursive = TRUE)
|
|
|
33 system(command = 'cp -r ${TOOL_INSTALL_DIR}/*.Rmd ${REPORT_FILES_PATH}')
|
|
|
34 # render Rmd files in order
|
|
|
35 render(input = paste0(Sys.getenv('REPORT_FILES_PATH'), '/htseq_count.Rmd'))
|
|
|
36 # add more lines below if there are more Rmd files to be rendered
|
|
|
37
|
|
|
38 #------------------------------------------
|
|
0
|
39
|
|
|
40
|
|
5
|
41 #---------------- copy the output html to REPORT ----
|
|
|
42 system(command = 'cp ${REPORT_FILES_PATH}/htseq_count.html ${REPORT}')
|
|
|
43 # add more lines below if there are more output html files
|
|
0
|
44
|
|
|
45 #==============the end==============
|
|
|
46
|
|
|
47
|
|
|
48 ##--------end of code rendering .Rmd templates----------------
|
|
|
49 sink()
|
|
|
50 ##=========== End of sinking output============================= |
