add update,DelegatingGenomicRanges so that we can set things on it

git-svn-id: https://hedgehog.fhcrc.org/bioconductor/trunk/madman/Rpacks/GenomicRanges@95246 bc3139a8-67e5-0310-9ffc-ced21a209358
RamsinghLab · Oct 9, 2014 · 4bbe693 · 4bbe693
1 parent b56545d
commit 4bbe693
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/R/DelegatingGenomicRanges-class.R b/R/DelegatingGenomicRanges-class.R
@@ -22,3 +22,8 @@ setMethod("ranges", "DelegatingGenomicRanges",
 
 setMethod("strand", "DelegatingGenomicRanges", function(x) strand(x@delegate))
 setMethod("seqinfo", "DelegatingGenomicRanges", function(x) seqinfo(x@delegate))
+
+setMethod("update", "DelegatingGenomicRanges", function (object, ...) {
+  object@delegate <- update(object@delegate, ...)
+  object
+})