Mercurial > repos > mingchen0919 > rmarkdown_fastq_dump
comparison fastq_dump_pe_render.R @ 21:3c859d094074 draft default tip
planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/aurora-tools/rmarkdown_fastq_dump commit ffa886b188215708786e3c49877fc08fea60659e
author | mingchen0919 |
---|---|
date | Wed, 04 Apr 2018 10:10:26 -0400 |
parents | 42e154ba2d35 |
children |
comparison
equal
deleted
inserted
replaced
20:2167f32cf379 | 21:3c859d094074 |
---|---|
35 # possible values: logical, integer, double, complex, character. | 35 # possible values: logical, integer, double, complex, character. |
36 ##------- 1. input data --------------------- | 36 ##------- 1. input data --------------------- |
37 spec_list=list() | 37 spec_list=list() |
38 spec_list$SRA_ACCESSION = c('sra_accession', 'i', '1', 'character') | 38 spec_list$SRA_ACCESSION = c('sra_accession', 'i', '1', 'character') |
39 spec_list$FORMAT = c('format', 'f', '1', 'character') | 39 spec_list$FORMAT = c('format', 'f', '1', 'character') |
40 spec_list$ECHO = c('echo', 'e', '1', 'character') | |
41 ##--------2. output report and outputs -------------- | 40 ##--------2. output report and outputs -------------- |
42 spec_list$REPORT_HTML = c('report_html', 'r', '1', 'character') | 41 spec_list$REPORT_HTML = c('report_html', 'r', '1', 'character') |
43 spec_list$OUTPUT_DIR = c('output_dir', 'd', '1', 'character') | 42 spec_list$OUTPUT_DIR = c('output_dir', 'd', '1', 'character') |
44 spec_list$SINK_OUTPUT = c('sink_message', 's', '1', 'character') | 43 spec_list$SINK_OUTPUT = c('sink_message', 's', '1', 'character') |
45 ##--------3. Rmd templates in the tool directory ---------- | 44 ##--------3. Rmd templates in the tool directory ---------- |
69 }) %>% | 68 }) %>% |
70 (function(x) { | 69 (function(x) { |
71 gsub('FORMAT', opt$format, x) | 70 gsub('FORMAT', opt$format, x) |
72 }) %>% | 71 }) %>% |
73 (function(x) { | 72 (function(x) { |
74 gsub('ECHO', opt$echo, x) | |
75 }) %>% | |
76 (function(x) { | |
77 gsub('OUTPUT_DIR', opt$output_dir, x) | 73 gsub('OUTPUT_DIR', opt$output_dir, x) |
78 }) %>% | 74 }) %>% |
79 (function(x) { | 75 (function(x) { |
80 fileConn = file('fastq_dump_pe.Rmd') | 76 fileConn = file('fastq_dump_pe.Rmd') |
81 writeLines(x, con=fileConn) | 77 writeLines(x, con=fileConn) |