R/strand.R

Defines functions unstrand

Documented in unstrand

### =========================================================================
### The strand() and `strand<-`() generics
### -------------------------------------------------------------------------

setGeneric("strand", function(x, ...) standardGeneric("strand"))

setGeneric("strand<-", function(x, ..., value) standardGeneric("strand<-"))

unstrand <- function(x)
{
    strand(x) <- "*"
    x
}

setGeneric("invertStrand", function(x) standardGeneric("invertStrand"))

setMethod("invertStrand", "ANY",
    function(x)
    {
        strand(x) <- invertStrand(strand(x))
        x
    }
)

Try the BiocGenerics package in your browser

Any scripts or data that you put into this service are public.

BiocGenerics documentation built on May 2, 2018, 4:18 a.m.