Nothing
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
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.