Browse code

identifier would fail for AnnotationTracks if the symbols contained NAs

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

Florian Hahne authored on 13/09/2012 07:54:21
Showing 2 changed files

... ...
@@ -1,5 +1,5 @@
1 1
 Package: Gviz
2
-Version: 1.1.16
2
+Version: 1.1.17
3 3
 Title: Plotting data and annotation information along genomic coordinates
4 4
 Author: Florian Hahne, Steffen Durinck, Robert Ivanek, Arne Mueller, Steve Lianoglou>
5 5
 Maintainer: Florian Hahne <florian.hahne@novartis.com>
... ...
@@ -360,6 +360,7 @@ setMethod("identifier", "AnnotationTrack", function(GdObject, lowest=FALSE, add.
360 360
 setMethod("identifier", "GeneRegionTrack", function(GdObject, lowest=FALSE, add.space=FALSE){
361 361
     id <- if(lowest) exon(GdObject) else if(.dpOrDefault(GdObject, "geneSymbols", TRUE)){
362 362
         symbol(GdObject)} else gene(GdObject)
363
+    id[is.na(id)] <- "NA"
363 364
     if(!lowest && add.space && .dpOrDefault(GdObject, ".__hasAnno", TRUE))
364 365
         id[id!=""] <- paste(id[id!=""], "  ", sep="")
365 366
     return(id)