if(file.exists('SRAmetadb.sqlite')) {
## Not run:
# library(SRAdb)
# sra_dbname <- 'SRAmetadb.sqlite'
# sra_con <- dbConnect(dbDriver("SQLite"), sra_dbname)
# getFASTQinfo( in_acc = c("SRR000648","SRR000657"), sra_con, srcType = 'ftp' )
# getFASTQinfo( in_acc = c("SRR000648","SRR000657"), sra_con, srcType = 'fasp' )
# ## End(Not run)
} else {
print("Use getSRAdbFile() to get a copy of the SRAmetadb.sqlite file and then rerun the example")
}
Run the code above in your browser using DataLab