Browse code

accidentally made reverseStacking the default. changed that now back to the old way

git-svn-id: file:///home/git/hedgehog.fhcrc.org/bioconductor/trunk/madman/Rpacks/Gviz@69429 bc3139a8-67e5-0310-9ffc-ced21a209358

Florian Hahne authored on 14/09/2012 09:26:21
Showing 1 changed files

... ...
@@ -1290,7 +1290,7 @@ setMethod("drawGD", signature("AnnotationTrack"), function(GdObject, minBase, ma
1290 1290
     ## If there are too many stacks for the available device resolution we cast an error
1291 1291
     bins <- stacks(GdObject)
1292 1292
     stacks <- max(bins)
1293
-    yscale <- if(.dpOrDefault(GdObject, "reverseStacking", FALSE)) c(1, stacks+1) else c(stacks+1, 1)
1293
+    yscale <- if(!.dpOrDefault(GdObject, "reverseStacking", FALSE)) c(1, stacks+1) else c(stacks+1, 1)
1294 1294
     pushViewport(dataViewport(xData=c(minBase, maxBase), extension=0, yscale=yscale, clip=TRUE))
1295 1295
     res <- .pxResolution(coord="x")
1296 1296
     curVp <- vpLocation()