Mercurial > repos > iuc > brew3r_r
comparison brew3r.r_script.R @ 2:448beaf9deb8 draft default tip
planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/brew3r_r commit d287d5688e57f4154d5875789e0cd4d5c87f11ce
| author | iuc |
|---|---|
| date | Thu, 03 Oct 2024 22:35:41 +0000 |
| parents | 9083012a0abf |
| children |
comparison
equal
deleted
inserted
replaced
| 1:a0708b9d33be | 2:448beaf9deb8 |
|---|---|
| 95 input_gr_template <- input_gr_template[-to.remove] | 95 input_gr_template <- input_gr_template[-to.remove] |
| 96 } | 96 } |
| 97 } | 97 } |
| 98 } | 98 } |
| 99 | 99 |
| 100 if (is.null(input_gr_to_extend$exon_id)) { | |
| 101 is.exon <- which(input_gr_to_extend$type == "exon") | |
| 102 input_gr_to_extend$exon_id <- NA | |
| 103 input_gr_to_extend$exon_id[is.exon] <- paste0( | |
| 104 "EXON", | |
| 105 sprintf( | |
| 106 "%010d", | |
| 107 1:length(is.exon) | |
| 108 ) | |
| 109 ) | |
| 110 } | |
| 111 | |
| 100 # Run BREW3R.r main function | 112 # Run BREW3R.r main function |
| 101 if (length(input_gr_template) > 0) { | 113 if (length(input_gr_template) > 0) { |
| 102 new_gr_exons <- extend_granges( | 114 new_gr_exons <- extend_granges( |
| 103 input_gr_to_extend = input_gr_to_extend, | 115 input_gr_to_extend = input_gr_to_extend, |
| 104 input_gr_to_overlap = input_gr_template, | 116 input_gr_to_overlap = input_gr_template, |