## ----get-data-----------------------------------------------------------------
library(ExperimentHub)
ehub = ExperimentHub()
myfiles <- query(ehub , "restfulSEData")
myfiles
myfiles[[1]]
myfiles[["EH551"]] #load by EH id


## ----meta---------------------------------------------------------------------
dataResource()