From 8e7c675edf414c9023b08a245a5316a8a21a4605 Mon Sep 17 00:00:00 2001
From: "m.lawrence" <m.lawrence@bc3139a8-67e5-0310-9ffc-ced21a209358>
Date: Sun, 12 Apr 2015 04:29:16 +0000
Subject: [PATCH] add GRanges=>GRangesList

git-svn-id: https://hedgehog.fhcrc.org/bioconductor/trunk/madman/Rpacks/GenomicRanges@102346 bc3139a8-67e5-0310-9ffc-ced21a209358
---
 R/GRangesList-class.R | 1 +
 1 file changed, 1 insertion(+)

diff --git a/R/GRangesList-class.R b/R/GRangesList-class.R
index 73ad0ca..368fe4b 100644
--- a/R/GRangesList-class.R
+++ b/R/GRangesList-class.R
@@ -407,6 +407,7 @@ setAs("GRangesList", "RangesList",
 setAs("RangedDataList", "GRangesList",
       function(from) GRangesList(lapply(from, as, "GRanges")))
 
+setAs("GRanges", "GRangesList", function(from) as(from, "List"))
 
 ### - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 ### Subsetting.