@@ -12,4 +12,5 @@

 ^Dockerfile$

 ^LICENSE$

 ^Rplots\.pdf$

-^vignettes\/Gviz-logo\.pdf$

\ No newline at end of file

+^vignettes\/Gviz-logo\.pdf$

+^ensMappings.txt$

@@ -5,4 +5,5 @@

 *.Rproj

 .Rproj.user

 Dockerfile

-Rplots.pdf

\ No newline at end of file

+Rplots.pdf

+ensMappings.txt

@@ -602,6 +602,9 @@ setMethod("setStacks", "AnnotationTrack", function(GdObject, recomputeRanges = T

         bins <- rep(1, length(GdObject))

     } else {

         gp <- group(GdObject)

+        if (!is.factor(gp)) {

+            gp <- factor(gp, levels=unique(gp))

+        }

         needsGrp <- any(duplicated(gp))

         lranges <- .dpOrDefault(GdObject, ".__groupRanges")

         gpt <- if (needsGrp) table(gp) else rep(1, length(GdObject))

@@ -1919,6 +1922,9 @@ setMethod("drawGD", signature("OverlayTrack"), function(GdObject, ...) {

     stacks <- max(bins)

     res <- .pxResolution(coord = "x")

     gp <- group(GdObject)

+    if (!is.factor(gp)) {

+        gp <- factor(gp, levels=unique(gp))

+    }

     grpSplit <- split(range(GdObject), gp)

     grpRanges <- unlist(range(grpSplit))

     needBar <- vapply(grpSplit, length, FUN.VALUE = numeric(1L)) > 1 & width(grpRanges) > res

@@ -2835,6 +2835,9 @@ availableDefaultMapping <- function(file, trackType) {

         }

         if (length(GdObject) > 0) {

             gp <- group(GdObject)

+            if (!is.factor(gp)) {

+                gp <- factor(gp, levels=unique(gp))

+            }

             needsGrp <- any(duplicated(gp))

             finalRanges <- if (needsGrp) {

                 groups <- split(range(GdObject), gp)