test_that("getAnnotation works not correct", {
#GRanges
if(interactive()){
mart<-useMart(biomart="ensembl",dataset="hsapiens_gene_ensembl")
Annotation = getAnnotation(mart, featureType="TSS")
}
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.