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