Mercurial > repos > mingchen0919 > rmarkdown_collection_builder

annotate collection_list_render.R @ 0:78018b735124 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
author mingchen0919
date Mon, 25 Sep 2017 14:28:52 -0400
parents
children 6be61cb4a1d5
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
1 ##======= Handle arguments from command line ========
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
2 # setup R error handline to go to stderr
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
3 options(show.error.messages=FALSE,
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
4 error=function(){
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
5 cat(geterrmessage(), file=stderr())
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
6 quit("no", 1, F)
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
7 })
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
8
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
9 # we need that to not crash galaxy with an UTF8 error on German LC settings.
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
10 loc = Sys.setlocale("LC_MESSAGES", "en_US.UTF-8")
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
11
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
12 # suppress warning
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
13 options(warn = -1)
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
14
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
15 options(stringsAsFactors=FALSE, useFancyQuotes=FALSE)
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
16 args = commandArgs(trailingOnly=TRUE)
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
17
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
18 suppressPackageStartupMessages({
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
19 library(getopt)
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
20 library(tools)
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
21 })
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
22
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
23 # column 1: the long flag name
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
24 # column 2: the short flag alias. A SINGLE character string
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
25 # column 3: argument mask
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
26 # 0: no argument
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
27 # 1: argument required
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
28 # 2: argument is optional
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
29 # column 4: date type to which the flag's argument shall be cast.
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
30 # possible values: logical, integer, double, complex, character.
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
31 ##------- 1. input data ---------------------
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
32 spec_list=list()
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
33 spec_list$FILE_LIST = c('file_list', 'l', '1', 'character')
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
34 spec_list$ECHO = c('echo', 'e', '1', 'character')
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
35 ##--------2. output report and outputs --------------
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
36 spec_list$LIST_COLLECTION = c('list_collection', 'o', '1', 'character')
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
37 spec_list$REPORT = c('report', 'r', '1', 'character')
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
38 spec_list$OUTPUT_DIR = c('list_collection_dir', 'd', '1', 'character')
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
39 ##--------3. Rmd templates in the tool directory ----------
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
40 spec_list$LIST_COLLECTION_RMD = c('list_collection_rmd', 't', '1', 'character')
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
41
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
42 spec = t(as.data.frame(spec_list))
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
43 opt = getopt(spec)
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
44 ##====== End of arguments handling ==========
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
45
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
46 #------ Load libraries ---------
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
47 library(rmarkdown)
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
48 library(htmltools)
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
49
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
50 #----- 1. create the report directory ------------------------
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
51 system(paste0('mkdir -p ', opt$list_collection_dir))
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
52
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
53 #----- 2. generate Rmd files with Rmd templates --------------
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
54 # a. templates without placeholder variables:
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
55 # copy templates from tool directory to the working directory.
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
56 # b. templates with placeholder variables:
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
57 # substitute variables with user input values and place them in the working directory.
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
58
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
59 #----- 01 list_collection.Rmd -----------------------
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
60 readLines(opt$list_collection_rmd) %>%
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
61 (function(x) {
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
62 gsub('ECHO', opt$echo, x)
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
63 }) %>%
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
64 (function(x) {
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
65 gsub('FILE_LIST', opt$file_list, x)
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
66 }) %>%
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
67 (function(x) {
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
68 gsub('OUTPUT_DIR', opt$list_collection_dir, x)
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
69 }) %>%
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
70 (function(x) {
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
71 fileConn = file('list_collection.Rmd')
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
72 writeLines(x, con=fileConn)
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
73 close(fileConn)
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
74 })
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
75
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
76 #------ 3. render all Rmd files --------
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
77 render('list_collection.Rmd', output_file = opt$list_collection_html)
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
78
78018b735124 planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit ec13349788ea42e106b5ba3fc1a5095ed755e644-dirty
mingchen0919
parents:
diff changeset
79 #-------4. manipulate outputs -----------------------------