## ---- message = FALSE--------------------------------------------------------- library(muscData) Kang18_8vs8() ## ----message = FALSE---------------------------------------------------------- # create Hub instance library(ExperimentHub) eh <- ExperimentHub() (q <- query(eh, "muscData")) ## ----message = FALSE, results = 'hide'---------------------------------------- # load data via accession ID eh[["EH2259"]] ## ----message = FALSE---------------------------------------------------------- listResources(eh, "muscData") ## ----message = FALSE, results = 'hide'---------------------------------------- # view metadata mcols(q) Kang18_8vs8(metadata = TRUE) # load data using metadata search terms loadResources(eh, "muscData", c("PBMC", "INF-beta")) ## ----------------------------------------------------------------------------- sessionInfo()