## ----eval=FALSE--------------------------------------------------------------- # .onLoad <- function(libname, pkgname) { # fl <- system.file("extdata", "metadata.csv", package=pkgname) # titles <- read.csv(fl, stringsAsFactors=FALSE)$Title # createHubAccessors(pkgname, titles) # } ## ----eval=FALSE--------------------------------------------------------------- # library(ExperimentHub) # eh <- ExperimentHub() # myfiles <- query(eh, "PACKAGENAME") # myfiles[[1]] ## load the first resource in the list # myfiles[["EH123"]] ## load by EH id ## ----eval=FALSE--------------------------------------------------------------- # resourceA(metadata = FALSE) ## data are loaded # resourceA(metadata = TRUE) ## metadata are displayed