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


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