if(file.exists('SRAmetadb.sqlite')) {
## Not run:
# library(SRAdb)
# sra_dbname <- 'SRAmetadb.sqlite'
# sra_con <- dbConnect( dbDriver("SQLite"), sra_dbname )
#
# ## Download fastq files from EBI ENA through ftp
# getFASTQfile( in_acc = c("SRR000648","SRR000657"), sra_con, destDir = getwd(), srcType = 'ftp', ascpCMD = NULL )
#
# ## Download fastq files from EBI ENA through fasp
# ascpCMD <- 'ascp -QT -l 300m -i /usr/local/aspera/connect/etc/asperaweb_id_dsa.putty'
# ## common ascpCMD for a system with Mac OS X:
# #ascpCMD <- "'/Applications/Aspera Connect.app/Contents/Resources/ascp' -QT -l 300m -i '/Applications/Aspera Connect.app/Contents/Resources/asperaweb_id_dsa.putty'"
# getFASTQfile( in_acc = c("SRR000648","SRR000657"), sra_con, srcType='fasp', ascpCMD=ascpCMD )
#
# dbDisconnect( sra_con )
# ## 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