# HG changeset patch # User iuc # Date 1718688992 0 # Node ID 3198f52bffaab29ec8cc95bb0d170dd051ab3186 # Parent 928a52b5c93839a07fcfb4585fffea61ba60a135 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/brew3r_r commit fa525468780f3dea175da15852b1b8c17e1a80d3 diff -r 928a52b5c938 -r 3198f52bffaa brew3r.r_script.R --- a/brew3r.r_script.R Tue Jun 11 08:26:37 2024 +0000 +++ b/brew3r.r_script.R Tue Jun 18 05:36:32 2024 +0000 @@ -91,17 +91,23 @@ multi.strand.query <- ov.simple$queryHits[duplicated(ov.simple$queryHits)] to.remove <- unstranded.intervals[multi.strand.query] # Remove these potentially error-prone intervals from the template - input_gr_template <- input_gr_template[-to.remove] + if (length(to.remove) > 0) { + input_gr_template <- input_gr_template[-to.remove] + } } } # Run BREW3R.r main function -new_gr_exons <- extend_granges( - input_gr_to_extend = input_gr_to_extend, - input_gr_to_overlap = input_gr_template, - add_new_exons = is.null(opt$no_add), - overlap_resolution_fn = opt$sup_output -) +if (length(input_gr_template) > 0) { + new_gr_exons <- extend_granges( + input_gr_to_extend = input_gr_to_extend, + input_gr_to_overlap = input_gr_template, + add_new_exons = is.null(opt$no_add), + overlap_resolution_fn = opt$sup_output + ) +} else { + new_gr_exons <- subset(input_gr_to_extend, type == "exon") +} # Prevent extension using pattern if (!is.null(opt$exclude_pattern)) { input_gr_pattern <- subset( diff -r 928a52b5c938 -r 3198f52bffaa brew3r_r.xml --- a/brew3r_r.xml Tue Jun 11 08:26:37 2024 +0000 +++ b/brew3r_r.xml Tue Jun 18 05:36:32 2024 +0000 @@ -1,7 +1,7 @@ Extend GTF - 1.0.1 + 1.0.2 0 @@ -114,6 +114,12 @@ + + + + + +