Mercurial > repos > petr-novak > dante_ltr
diff R/ltr_utils.R @ 12:ff01d4263391 draft
"planemo upload commit 414119ad7c44562d2e956b765e97ca113bc35b2b-dirty"
| author | petr-novak |
|---|---|
| date | Thu, 21 Jul 2022 08:23:15 +0000 |
| parents | a004cd05177d |
| children |
line wrap: on
line diff
--- a/R/ltr_utils.R Wed Jul 13 11:02:55 2022 +0000 +++ b/R/ltr_utils.R Thu Jul 21 08:23:15 2022 +0000 @@ -1,7 +1,7 @@ add_coordinates_of_closest_neighbor <- function(gff) { gff <- gff[order(seqnames(gff), as.vector(start(gff)))] # split to chromosomes: - gff_parts <- split(gff, seqnames(gff)) + gff_parts <- split(gff, as.vector(seqnames(gff))) upstreams <- c(sapply(gff_parts, function(x) c(1, head(end(x), -1)))) downstreams <- c(sapply(gff_parts, function(x) c(start(x)[-1], seqlengths(x)[runValue(seqnames(x[1]))]))) gff_updated <- unlist(gff_parts)