tests/testthat/test_getAnnotation.R

In LihuaJulieZhu/ChIPpeakAnno: Batch annotation of the peaks identified from either ChIP-seq, ChIP-chip experiments or any experiments resulted in large number of chromosome ranges

test_that("getAnnotation works not correct", {
    #GRanges
    if(interactive()){
        mart<-useMart(biomart="ensembl",dataset="hsapiens_gene_ensembl")
        Annotation = getAnnotation(mart, featureType="TSS")
    }
})