## ---- fig.show='hold', message=FALSE, warning=FALSE---------------------------
library(AnnotationHub)
ah <- AnnotationHub()
hp <- query(ah, "hpAnnot")
hp
mcols(hp)[,c("title", "description")]
xtabs(~dataprovider + species, mcols(hp))
head(hp[["AH60887"]])
hp$title