## ----access-resource, eval=FALSE----------------------------------------------
# library(ExperimentHub)
# library(GSE280465)
# library(SummarizedExperiment)
# 
# eh <- ExperimentHub()
# query(eh, "GSE280465")
# 
# se <- GSE280465()
# se
# 
# se <- GSE280465_GPL33022_EPICv2()
# 
# dim(se)
# assayNames(se)
# colData(se)
# rowRanges(se)
# metadata(se)

## ----local-metadata-----------------------------------------------------------
metadataFile <- system.file("extdata", "metadata.csv", package = "GSE280465")
metadata <- utils::read.csv(metadataFile, stringsAsFactors = FALSE)
metadata[, c("Title", "Genome", "SourceType", "RDataClass", "DispatchClass")]

## ----zenodo-location----------------------------------------------------------
paste0(metadata$Location_Prefix, metadata$RDataPath)

## ----sessionInfo--------------------------------------------------------------
sessionInfo()