library("GenomicRanges")
library("AnnotationHub")
# Get Grange of promoters
ah = AnnotationHub()
qhs = query(ah, c("RefSeq", "Mus musculus", "mm10"))
genes = qhs[[1]]
proms = promoters(genes)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.