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