inst/shiny-apps/shinyGEO/RData/getTestData.R

#####################################################################
## Download testdata using first platform for given GSE
#####################################################################

GSE = "GSE60322"
SAVE.FILE = paste0(GSE, ".RData")


library(GEOquery)
GEO.test = getGEO(GSE)

GPL = sapply(GEO.test, annotation)[1]

CLINICAL.test = pData(GEO.test[[1]])

GPL.test = Table(getGEO(GPL))

save(CLINICAL.test, GEO.test, GPL.test, file = SAVE.FILE)
jasdumas/shinyGEO documentation built on May 17, 2017, 10:49 a.m.