add check for NULL space/names in RangesList=>GRanges

git-svn-id: https://hedgehog.fhcrc.org/bioconductor/trunk/madman/Rpacks/GenomicRanges@102347 bc3139a8-67e5-0310-9ffc-ced21a209358
RamsinghLab · Apr 12, 2015 · 8683bd6 · 8683bd6
1 parent 8e7c675
commit 8683bd6
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/GRanges-class.R b/R/GRanges-class.R
@@ -193,6 +193,9 @@ setAs("RangesList", "GRanges",
         ranges <- unlist(from, use.names=FALSE)
         ranges <- IRanges(start=start(ranges), width=width(ranges))
         ## From now, ranges is guaranteed to be an IRanges *instance*.
+        if (is.null(space(from))) {
+          stop("Cannot create GRanges when 'space(from)' is NULL")
+        }
         gr <- GRanges(seqnames = space(from),
                       ranges = ranges,
                       strand = Rle("*", length(ranges)))