## ----load AnnotationHub, results='hide'--------------------------------------- library(AnnotationHub, quietly = TRUE) ## ----setup-------------------------------------------------------------------- hub <- AnnotationHub() ah <- query(hub, "CENTREannotation") ah ## ----CENTREannotDb------------------------------------------------------------ library(CENTREannotation) CENTREannotgeneDb <- ah[["AH116730"]] CENTREannotenhDb <- ah[["AH116731"]] ## ----use CENTREannotDb-------------------------------------------------------- tables(CENTREannotenhDb) res <- fetch_data(CENTREannotenhDb, columns = c("enhancer_id", "start"), entries = c("EH38E1519134", "EH38E1519132"), column_filter = "enhancer_id" ) ## ----sessionInfo-------------------------------------------------------------- sessionInfo()