Mercurial > repos > petr-novak > dante_ltr

diff R/ltr_utils.R @ 10:a004cd05177d draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
"planemo upload commit ca5a8b9bbf761419a408bce11a17e880d1b1152c"
author petr-novak
date Wed, 13 Jul 2022 10:59:58 +0000
parents 1aa578e6c8b3
children ff01d4263391
line wrap: on
line diff
--- a/R/ltr_utils.R	Wed Jun 29 09:25:54 2022 +0000
+++ b/R/ltr_utils.R	Wed Jul 13 10:59:58 2022 +0000
@@ -1,5 +1,5 @@
 add_coordinates_of_closest_neighbor <- function(gff) {
-  gff <- gff[order(seqnames(gff), start(gff))]
+  gff <- gff[order(seqnames(gff), as.vector(start(gff)))]
   # split to chromosomes:
   gff_parts <- split(gff, seqnames(gff))
   upstreams <- c(sapply(gff_parts, function(x) c(1, head(end(x), -1))))