tests/testthat/test_getAnnotation.R

In jianhong/ChIPpeakAnno: Batch annotation of the peaks identified from either ChIP-seq, ChIP-chip experiments, or any experiments that result in large number of genomic interval data

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