git-svn-id: file:///home/git/hedgehog.fhcrc.org/bioconductor/branches/RELEASE_2_11/madman/Rpacks/Gviz@76446 bc3139a8-67e5-0310-9ffc-ced21a209358
Florian Hahne authored on 13/05/2013 13:33:45
| ... | ... |
@@ -1,5 +1,5 @@ |
| 1 | 1 |
Package: Gviz |
| 2 |
-Version: 1.2.1 |
|
| 2 |
+Version: 1.2.2 |
|
| 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> |
| ... | ... |
@@ -163,8 +163,8 @@ setReplaceMethod("chromosome", "IdeogramTrack", function(GdObject, value){
|
| 163 | 163 |
if(.hasSlot(GdObject, "bandTable") && chromosome %in% as.character(GdObject@bandTable$chrom)) |
| 164 | 164 |
{
|
| 165 | 165 |
ranges <- GdObject@bandTable[GdObject@bandTable$chrom==chromosome,] |
| 166 |
- ranges <- GRanges(seqnames=ranges$name, range=IRanges(start=ranges$chromStart, end=ranges$chromEnd), |
|
| 167 |
- name=ranges$name, type=ranges$gieStain) |
|
| 166 |
+ ranges <- GRanges(seqnames=as.vector(ranges$name), ranges=IRanges(start=ranges$chromStart, end=ranges$chromEnd), |
|
| 167 |
+ name=as.vector(ranges$name), type=ranges$gieStain) |
|
| 168 | 168 |
GdObject@range <- ranges |
| 169 | 169 |
GdObject@chromosome <- chromosome |
| 170 | 170 |
return(GdObject) |