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

## ----library, message=FALSE------------------------------------------------
library(ExperimentHub)

## ----ExperiemntHub---------------------------------------------------------
eh = ExperimentHub()

## ----show------------------------------------------------------------------
eh

## ----dataprovider----------------------------------------------------------
head(unique(eh$dataprovider))

## ----species---------------------------------------------------------------
head(unique(eh$species))

## ----rdataclass------------------------------------------------------------
head(unique(eh$rdataclass))

## ----alpine----------------------------------------------------------------
apData <- query(eh, "alpineData")
apData

## ----show2-----------------------------------------------------------------
apData$preparerclass
df <- mcols(apData)

## ----length----------------------------------------------------------------
length(eh)

## ----subset----------------------------------------------------------------
mm <- query(eh, "mus musculus")
mm

## ----display, eval=FALSE---------------------------------------------------
#  d <- display(eh)

## ----dm2-------------------------------------------------------------------
apData
apData["EH166"]

## ----dm3-------------------------------------------------------------------
apData[["EH166"]]

## ----show-2----------------------------------------------------------------
eh

## ----snapshot--------------------------------------------------------------
snapshotDate(eh)

## ----possibleDates---------------------------------------------------------
pd <- possibleDates(eh)
pd

## ----setdate, eval=FALSE---------------------------------------------------
#  snapshotDate(ah) <- pd[1]

## ----sessionInfo-----------------------------------------------------------
sessionInfo()