### R code from vignette source 'Appendix.Rnw'

###################################################
### code chunk number 1: pasilla-get (eval = FALSE)
###################################################
## library(RCurl)
## srasdk <- "/home/mtmorgan/bin/sra_sdk-2.0.1" # local installation
## sra <- "ftp://ftp-trace.ncbi.nih.gov/sra/sra-instant/reads/ByExpt/sra"
## expt <- "SRX/SRX014/SRX014458/"
## url <- sprintf("%s/%s", sra, expt)
## acc <- strsplit(getURL(url, ftplistonly=TRUE), "\n")[[1]]
## 
## urls <- sprintf("%s%s/%s.sra", url, acc, acc)
## for (fl in urls)
##     system(sprintf("wget %s",  fl), wait=FALSE, ignore.stdout=TRUE)
## 
## app <- sprintf("%s/bin64/fastq-dump", srasdk)
## for (fl in file.path(wd, basename(urls)))
##      system(sprintf("%s %s", app, fl), wait=FALSE)


