Question

我正在尝试批量下载一系列网址。到目前为止，我的代码是

link <- paste("http://portal.hud.gov/hudportal/documents/huddoc? id=RAD_PHAApp_", state, ".xls", sep = "") 
state <- c('al','tx') 
download.file(link, paste(destfile = 'Y:\\PBlack\\RAD\\', state, '.xls', sep = ""), mode = 'wb') 

的想法在这里，我可以名称添加到状态值，它会下载并命名它们的状态。

R运行代码时返回以下内容。

Warning messages: 
1: In download.file(link, paste(destfile = "Y:\\PBlack\\RAD\\", state, : 
only first element of 'url' argument used 
2: In download.file(link, paste(destfile = "Y:\\PBlack\\RAD\\", state, : 
only first element of 'destfile' argument used 

Answer 1

由于TARehman所指出的，你需要有单独的呼叫download.file为每个文件。使用for循环可能会更直观。

此外，使用paste0将避免每次都使用sep =“”。

states <- c('al', 'tx') 

for(state in states) { 
    link <- paste0("http://portal.hud.gov/hudportal/documents/huddoc?id=RAD_PHAApp_", state, ".xls") 
    download.file(link,paste0("~/Desktop/",state,".xls"),mode='wb') 
} 

虽然应变可能会稍微快一点。

Answer 2

您需要调用命令来多次保存文件。现在它不会工作，因为download.file()函数下载单个文件，而不是文件的矢量。

像这样：

states <- c('al','tx') 
links <- paste("http://portal.hud.gov/hudportal/documents/huddoc?id=RAD_PHAApp_", states, ".xls", sep = "") 

func.download_files <- function(link,state) { 

    download.file(link,paste("~/Desktop/",state,".xls",sep=""),mode='wb') 
} 

mapply(FUN = func.download_files,link=links,state=states)