if( file.exists('SRAmetadb.sqlite') ) {
## Not run:
# library(SRAdb)
# sra_dbname <- 'SRAmetadb.sqlite'
# sra_con <- dbConnect(dbDriver("SQLite"), sra_dbname)
#
# ## List ftp or fasp addresses of sra files associated with "SRX000122"
# listSRAfile (in_acc = c("SRX000122"), sra_con = sra_con, fileType = 'sra')
# listSRAfile (in_acc = c("SRX000122"), sra_con = sra_con, fileType = 'sra', 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