diff --git a/R/DelegatingGenomicRanges-class.R b/R/DelegatingGenomicRanges-class.R index 41c2d86..b9f3df5 100644 --- 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 +})