## ----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()