Mercurial > repos > mingchen0919 > rmarkdown_collection_builder
comparison collection_list_paired.Rmd @ 6:a0c8b2b25774 draft
planemo upload for repository https://github.com/statonlab/docker-GRReport/tree/master/my_tools/rmarkdown_collection_builder commit 88ca36a41aa577ba888cee39cf81b176bf7e68db
| author | mingchen0919 |
|---|---|
| date | Tue, 26 Sep 2017 13:33:22 -0400 |
| parents | 66022ba24ac7 |
| children | f555686ca340 |
comparison
equal
deleted
inserted
replaced
| 5:66022ba24ac7 | 6:a0c8b2b25774 |
|---|---|
| 1 --- | 1 --- |
| 2 title: 'Collection builder (collection type: list:paired)' | 2 title: 'Build collection: a list of paired datasets' |
| 3 output: | 3 output: |
| 4 html_document: | 4 html_document: |
| 5 number_sections: true | 5 number_sections: true |
| 6 toc: true | 6 toc: true |
| 7 theme: cosmo | 7 theme: cosmo |
| 39 file.copy(from_files, './forward_files_directory') | 39 file.copy(from_files, './forward_files_directory') |
| 40 # get original file names | 40 # get original file names |
| 41 original_files = list.files('./forward_files_directory') | 41 original_files = list.files('./forward_files_directory') |
| 42 # create new files names from original file names | 42 # create new files names from original file names |
| 43 new_files = gsub('\\.dat', '_forward\\.FORMAT', original_files) | 43 new_files = gsub('\\.dat', '_forward\\.FORMAT', original_files) |
| 44 new_files = paste0('input_', 1:length(original_files), '_forward.FORMAT') | 44 new_files = paste0('input', 1:length(original_files), '_forward.FORMAT') |
| 45 new_files | 45 new_files |
| 46 # rename files | 46 # rename files |
| 47 file.copy(paste0('./forward_files_directory/', original_files), | 47 file.copy(paste0('./forward_files_directory/', original_files), |
| 48 paste0('./files_directory/', new_files)) | 48 paste0('./files_directory/', new_files)) |
| 49 ``` | 49 ``` |
| 59 file.copy(from_files, './reverse_files_directory') | 59 file.copy(from_files, './reverse_files_directory') |
| 60 # get original file names | 60 # get original file names |
| 61 original_files = list.files('./reverse_files_directory') | 61 original_files = list.files('./reverse_files_directory') |
| 62 # create new files names from original file names | 62 # create new files names from original file names |
| 63 new_files = gsub('\\.dat', '_reverse\\.FORMAT', original_files) | 63 new_files = gsub('\\.dat', '_reverse\\.FORMAT', original_files) |
| 64 new_files = paste0('input_', 1:length(original_files), '_reverse.FORMAT') | 64 new_files = paste0('input', 1:length(original_files), '_reverse.FORMAT') |
| 65 new_files | 65 new_files |
| 66 # rename files | 66 # rename files |
| 67 file.copy(paste0('./reverse_files_directory/', original_files), | 67 file.copy(paste0('./reverse_files_directory/', original_files), |
| 68 paste0('./files_directory/', new_files)) | 68 paste0('./files_directory/', new_files)) |
| 69 ``` | 69 ``` |
| 70 |