if(file.exists('GEOmetadb.sqlite')) {
con <- dbConnect(SQLite(), "GEOmetadb.sqlite")
getBiocPlatformMap(con)[1:5,]
getBiocPlatformMap(con, bioc=c('hgu133a','hgu95av2'))
dbDisconnect(con)
} else {
print("You will need to usethe getSQLiteFile() function to get a copy
of the SQLite database file before this example will work")
}
Run the code above in your browser using DataLab