如何将多个文件直接下载到一个文件夹？

Question

我正在尝试将几个文件下载到一个文件夹中，然后将它们读回R中

我首先将我的目录设置到特定的文件夹，第一个http是主行，urls是应该下载的文件。

main_url <- "http://ftp-trace.ncbi.nlm.nih.gov/sra/sra-instant/reads/ByStudy/sra/SRP/SRP038/SRP038101/"
urls <- paste(main_url,c("SRR1171523/SRR1171523.sra","SRR1171524/SRR1171524.sra","SRR1171525/SRR1171525.sra","SRR1171526/SRR1171526.sra", "SRR1171527/SRR1171527.sra", "SRR1171528/SRR1171528.sra"), sep = "")

Answer 1

你可以像下面这样进行...

Urls

main_url <- 
    "http://ftp-trace.ncbi.nlm.nih.gov/sra/sra-instant/reads/ByStudy/sra/SRP/SRP038/SRP038101/"

urls <- 
    paste(main_url,
          c("SRR1171523/SRR1171523.sra",
            "SRR1171524/SRR1171524.sra",
            "SRR1171525/SRR1171525.sra",
            "SRR1171526/SRR1171526.sra", 
            "SRR1171527/SRR1171527.sra", 
            "SRR1171528/SRR1171528.sra"),
          sep = "")

下载文件

for(i in seq_along(urls)){

    download.file(urls[i], paste0("file_0", i, ".html"))
}

...and不仅仅是将下载的文件读入R。

Answer 2

main_url <- "http://ftp-trace.ncbi.nlm.nih.gov/sra/sra-instant/reads/ByStudy/sra/SRP/SRP038/SRP038101/"
urls <- paste(main_url,c("SRR1171523/SRR1171523.sra","SRR1171524/SRR1171524.sra","SRR1171525/SRR1171525.sra","SRR1171526/SRR1171526.sra", "SRR1171527/SRR1171527.sra", "SRR1171528/SRR1171528.sra"), sep = "")

for(i in seq_along(urls)) {
  tmp <- readLines(file(urls[i],open = "r"))
  writeLines(text = tmp, con = paste0("url",1,".sra"))
}

# Reading them back
flist <- list()
for(fname in list.files()) {
  flist[[fname]] <- readLines(file(fname, open="r"))
}

Answer 3

一种丑陋的下载方式如下所示

url1 <- "http://ftp-trace.ncbi.nlm.nih.gov/sra/sra-instant/reads/ByStudy/sra/SRP/SRP038/SRP038101/SRR1171523/SRR1171523.sra"
url2 <- "http://ftp-trace.ncbi.nlm.nih.gov/sra/sra-instant/reads/ByStudy/sra/SRP/SRP038/SRP038101/SRR1171524/SRR1171524.sra"
url3 <- "http://ftp-trace.ncbi.nlm.nih.gov/sra/sra-instant/reads/ByStudy/sra/SRP/SRP038/SRP038101/SRR1171525/SRR1171525.sra"
url4 <- "http://ftp-trace.ncbi.nlm.nih.gov/sra/sra-instant/reads/ByStudy/sra/SRP/SRP038/SRP038101/SRR1171526/SRR1171526.sra
url5 <- "http://ftp-trace.ncbi.nlm.nih.gov/sra/sra-instant/reads/ByStudy/sra/SRP/SRP038/SRP038101/SRR1171527/SRR1171527.sra
url6 <- "http://ftp-trace.ncbi.nlm.nih.gov/sra/sra-instant/reads/ByStudy/sra/SRP/SRP038/SRP038101/SRR1171528/SRR1171528.sra


download.file(url1, "SRR1171523.sra")
download.file(url2, "SRR1171524.sra")
download.file(url3, "SRR1171525.sra")
download.file(url4, "SRR1171526.sra")
download.file(url5, "SRR1171527.sra")
download.file(url6, "SRR1171528.sra")