Mercurial > repos > mingchen0919 > rmarkdown_collection_builder
diff collection_list_render.R @ 2:56b68a320c0e draft
planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit 80b6b0f11380afd437d61ad308fdd3985d2ca60b-dirty
| author | mingchen0919 |
|---|---|
| date | Mon, 25 Sep 2017 16:25:35 -0400 |
| parents | 6be61cb4a1d5 |
| children | cb6efa0f0cb6 |
line wrap: on
line diff
--- a/collection_list_render.R Mon Sep 25 16:19:52 2017 -0400 +++ b/collection_list_render.R Mon Sep 25 16:25:35 2017 -0400 @@ -32,7 +32,7 @@ spec_list=list() spec_list$FILE_LIST = c('file_list', 'l', '1', 'character') spec_list$ECHO = c('echo', 'e', '1', 'character') -spec_list$FORMAT = c('echo', 'f', '1', 'character') +spec_list$FORMAT = c('format', 'f', '1', 'character') ##--------2. output report and outputs -------------- spec_list$REPORT = c('report', 'r', '1', 'character') spec_list$OUTPUT_DIR = c('list_collection_dir', 'd', '1', 'character') @@ -63,7 +63,7 @@ gsub('ECHO', opt$echo, x) }) %>% (function(x) { - gsub('FORMAT', opt$echo, x) + gsub('FORMAT', opt$format, x) }) %>% (function(x) { gsub('FILE_LIST', opt$file_list, x)