add trim,GRangesList

Author: lawremi

R/GRangesList-class.R

@@ -210,6 +210,18 @@ setAs("GenomicRangesList", "SimpleGRangesList",
 setAs("SimpleGenomicRangesList", "SimpleGRangesList",
       .from_List_to_SimpleGRangesList)
 
+### - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+### Intra-range methods
+###
+
+setMethod("trim", "GRangesList",
+          function(x, use.names=TRUE)
+          {
+              ## Like seqinfo,GRangesList, assumes that there is a
+              ## single Seqinfo for the entire object. Only guaranteed
+              ## to be true in the compressed case.
+              relist(trim(unlist(x, use.names=FALSE), use.names=use.names), x)
+          })
 
 ### - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 ### Coercion from list-like object to CompressedGRangesList

man/intra-range-methods.Rd

@@ -22,6 +22,7 @@
 
 \alias{trim}
 \alias{trim,GenomicRanges-method}
+\alias{trim,GRangesList-method}
 
 \title{Intra range transformations of a GRanges or GRangesList object}