如何通过使用列表反复从url更新字符串来使用r下载多个文件

Question

我想从https://biogeo.ucdavis.edu/data/gadm3.6/Rsf/gadm36_AGO_1_sf.rds下载100多个文件。 网址中唯一更改的字符串是“ AGO”，该字符串将替换为列表中的另一个字符串，例如“ DZA”。 例如， https：//biogeo.ucdavis.edu/data/gadm3.6/Rsf/gadm36_DZA_1_sf.rds将下载另一个文件。 对于创建使用r迭代下载并将文件写入工作目录中的函数的任何帮助，我将不胜感激。

要迭代的字符串列表：

strin<-structure(list(iso3c = c("DZA", "AGO", "BWA", "BDI", "CMR", "CPV"
)), class = c("tbl_df", "tbl", "data.frame"), row.names = c(NA, 
-6L))

我的尝试：

list1 = strin %>% unlist(.)

for (i in list1){
  urls <- lapply(list1
                 , function(i) paste0("https://biogeo.ucdavis.edu/data/gadm2.8/rds/", i, "_adm2.rds" ) %>% as.character(.)
  )
}

for (u in urls){
  url <- lapply(urls, function(u) GET(u,write_disk(tempfile(fileext = ".RDS")))
  )
}

infolist1 =rownames_to_column(
                  data.frame(
                    as.matrix(
                      unlist(
                        lapply(url, `[`, c('url', 'status_code', 'content'))
                        )
                      )
                    )
                  , var = "rowname")

infolist1$rowname= gsub(".*\\.","",infolist1$rowname) 
colnames(infolist1) = c("rowname", "data1")

c2 = infolist1 %>%  subset(., rowname == "status_code", select = c(data1)) 
c3= infolist1 %>%   subset(., rowname == "content", select = c(data1)) 

infolist1 = cbind(c2,c3)  %>% unlist(.)
rm(list=c('c2', 'c3'))
colnames(infolist1) = c("urlx", "filestatus", "filepath")

错误信息：

colnames中的错误<-（tmp，value = c（“ urlx”，“ filestatus”，“ filepath”：尝试在尺寸小于二维的对象上设置'colnames''

在此先感谢您的帮助。

Answer 1

您显示了很多额外的代码，这些代码超出了标题中的问题。

要下载文件，我将使用download.file

strin<-structure(list(iso3c = c("DZA", "AGO", "BWA", "BDI", "CMR", "CPV"
)), class = c("tbl_df", "tbl", "data.frame"), row.names = c(NA, 
-6L))

for (ss in strin$iso3c)
    download.file(
        paste0("https://biogeo.ucdavis.edu/data/gadm2.8/rds/", ss, "_adm2.rds"),
        paste0(ss, "_adm2.rds"))

这会将所有文件（ "CPV_adm2.rds"除外（似乎不存在））存储在当前工作文件夹中。