@@ -1,6 +1,6 @@

 Package: Gviz

 Title: Plotting data and annotation information along genomic coordinates

-Version: 1.34.0

+Version: 1.34.1

 Authors@R: c(person("Florian", "Hahne", role="aut"),

 	 person("Steffen", "Durinck", role="aut"),

 	 person("Robert", "Ivanek", role=c("aut", "cre"), email="robert.ivanek@unibas.ch", comment=c(ORCID="0000-0002-8403-056X")),

@@ -1100,7 +1100,10 @@ setMethod("collapseTrack", signature(GdObject = "DataTrack"), function(GdObject,

                     newDat,

                     do.call(rbind, lapply(2:nrow(sc), function(x) {

                         rm[ind] <- rep(sc[x, ], width(GdObject))

-                        suppressWarnings(runValue(runmean(Rle(as.numeric(rm)), k = windowSize, endrule = "constant", na.rm = TRUE)))[seqSel]

+                        runwin <- suppressWarnings(runmean(Rle(as.numeric(rm)), k = windowSize, endrule = "constant", na.rm = TRUE))

+                        seqSel <- findRun(as.integer(position(GdObject)) - min(GdObject) + 1, runwin)

+                        runValue(runwin)[seqSel]

+                        # suppressWarnings(runValue(runmean(Rle(as.numeric(rm)), k = windowSize, endrule = "constant", na.rm = TRUE)))[seqSel]

                     }))

                 )

             }

@@ -983,7 +983,7 @@

     blist.conf <- if (notch) {

         t(vapply(blist, "[[", "conf", FUN.VALUE = numeric(2L)))

     } else {

-        t(blist.stats[, c(2, 4), drop = FALSE])

+        blist.stats[, c(2, 4), drop = FALSE]

     }

     ybnd <- cbind(

         blist.stats[, 3], blist.conf[, 2], blist.stats[, 4], blist.stats[, 4], blist.conf[, 2],