R/annoGR2DF.R

setGeneric("annoGR2DF", signature = "anno", function(anno, ...)
                                {standardGeneric("annoGR2DF")})

setMethod("annoGR2DF", "GRanges", function(anno)
{
    annoDF <- as.data.frame(anno)
    colnames(annoDF)[1] <- "chr"
    if('*' %in% annoDF$strand)
        annoDF <- annoDF[, -match("strand", colnames(annoDF))]

    annoDF
})

Try the Repitools package in your browser

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

Repitools documentation built on Nov. 8, 2020, 7:52 p.m.