## ----style, echo = FALSE, results = 'asis', message=FALSE------------------
BiocStyle::markdown()

## ----load-lib, message = FALSE---------------------------------------------
library(AnnotationHub)
ah <- AnnotationHub()


## ----list-ensdb------------------------------------------------------------
query(ah, "EnsDb")

## ----load-ensdb------------------------------------------------------------
qr <- query(ah, c("EnsDb", "intestinalis", "87"))
edb <- qr[[1]]

## ----get-genes-------------------------------------------------------------
genes(edb)

## ----load-lib2, eval = FALSE-----------------------------------------------
#  library(ensembldb)
#  
#  scr <- system.file("scripts/generate-EnsDbs.R", package = "ensembldb")
#  source(scr)
#  

## ----create-dbs, eval = FALSE----------------------------------------------
#  createEnsDbForSpecies(ens_version = 87, user = "someuser", host = "localhost",
#                        pass = "somepass")