if(file.exists('SRAmetadb.sqlite')) {
library(SRAdb)
sra_dbname <- 'SRAmetadb.sqlite'
sra_con <- dbConnect(dbDriver("SQLite"), sra_dbname)
## Get file size and date from NCBI ftp site for available fastq files associated with "SRS012041","SRS000290"
# getSRAinfo (in_acc=c("SRS012041","SRS000290"), sra_con=sra_con, sraType='sra')
} 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