Mercurial > repos > mingchen0919 > elastic_expose_data
annotate elastic_tool.Rmd @ 7:23cbb0daf18d draft default tip
planemo upload commit d1d9c6fc42729b4194adac13d1b71062bf19ad0b-dirty
| author | mingchen0919 |
|---|---|
| date | Mon, 02 Apr 2018 10:53:05 -0400 |
| parents | 16e0f4b7a286 |
| children |
| rev | line source |
|---|---|
| 0 | 1 --- |
| 2 title: 'Dynamic tool' | |
| 3 output: html_document | |
| 4 --- | |
| 5 | |
| 6 <style> | |
| 7 pre code, pre, code { | |
| 8 white-space: pre !important; | |
| 9 overflow-x: scroll !important; | |
| 10 word-break: keep-all !important; | |
| 11 word-wrap: initial !important; | |
| 12 } | |
| 13 </style> | |
| 14 | |
| 15 ```{r setup, include=FALSE, warning=FALSE, message=FALSE} | |
| 16 knitr::opts_chunk$set(error = TRUE) | |
| 17 ``` | |
| 18 | |
| 19 ## User input | |
| 20 | |
|
1
16e0f4b7a286
planemo upload commit d255df0b70677f4d5e5f2f8e240ce0b69f40d69d
mingchen0919
parents:
0
diff
changeset
|
21 ```{r, echo=FALSE, eval=TRUE} |
| 0 | 22 ##-------- build script files ----------- |
| 23 | |
| 24 # build script file: script.sh | |
| 25 df = read.table(paste0(Sys.getenv('REPORT_FILES_PATH'), '/options_and_arguments.txt'), | |
| 26 sep = '|', header = TRUE) | |
| 27 | |
| 28 | |
| 29 knitr::kable(df) | |
| 30 ``` | |
| 31 | |
|
1
16e0f4b7a286
planemo upload commit d255df0b70677f4d5e5f2f8e240ce0b69f40d69d
mingchen0919
parents:
0
diff
changeset
|
32 ```{r} |
|
16e0f4b7a286
planemo upload commit d255df0b70677f4d5e5f2f8e240ce0b69f40d69d
mingchen0919
parents:
0
diff
changeset
|
33 write('', file = paste0(Sys.getenv('REPORT_FILES_PATH'), '/script.sh')) |
|
16e0f4b7a286
planemo upload commit d255df0b70677f4d5e5f2f8e240ce0b69f40d69d
mingchen0919
parents:
0
diff
changeset
|
34 if (nrow(df) > 0) { |
|
16e0f4b7a286
planemo upload commit d255df0b70677f4d5e5f2f8e240ce0b69f40d69d
mingchen0919
parents:
0
diff
changeset
|
35 for (i in 1:nrow(df)) { |
|
16e0f4b7a286
planemo upload commit d255df0b70677f4d5e5f2f8e240ce0b69f40d69d
mingchen0919
parents:
0
diff
changeset
|
36 tool_output_dir = readLines(df[i, 'tool_output_dir'])[1] |
|
16e0f4b7a286
planemo upload commit d255df0b70677f4d5e5f2f8e240ce0b69f40d69d
mingchen0919
parents:
0
diff
changeset
|
37 full_path = paste0(tool_output_dir, '/', df[i, 'relative_path']) |
|
16e0f4b7a286
planemo upload commit d255df0b70677f4d5e5f2f8e240ce0b69f40d69d
mingchen0919
parents:
0
diff
changeset
|
38 command_line = paste0('cp -r ', full_path, ' ', df[i, collection_type]) |
|
16e0f4b7a286
planemo upload commit d255df0b70677f4d5e5f2f8e240ce0b69f40d69d
mingchen0919
parents:
0
diff
changeset
|
39 write(command_line, append = TRUE, |
|
16e0f4b7a286
planemo upload commit d255df0b70677f4d5e5f2f8e240ce0b69f40d69d
mingchen0919
parents:
0
diff
changeset
|
40 file = paste0(Sys.getenv('REPORT_FILES_PATH'), '/script.sh')) |
| 0 | 41 } |
| 42 } | |
| 43 ``` | |
| 44 | |
| 45 |
