GEOmetadb

login Steve's web server
run ~/R.2.12.2.2/bin/R

library(GEOmetadb)
#getSQLiteFile()  #run this line if you want to update the GEOmetadb database file
file.info("GEOmetadb.sqlite")


con <- dbConnect(SQLite(), "GEOmetadb.sqlite")

cancer <- "astric"
treatment <- "luorouracil"
sql <- "select gse, title from gse where (title like '%CANCER%' or summary like '%CANCER%' or overall_design like '%CANCER%') and  (title like '%TREATMENT%' or summary like '%TREATMENT%' or overall_design like '%TREATMENT%') "
sql <- gsub("CANCER", cancer, sql)
sql <- gsub("TREATMENT", treatment, sql)

rs <- dbGetQuery(con, sql)
rs
dbDisconnect(con)