R，重命名成千上萬的下載文件

Question

我有個問題讓我發瘋。我有以下表作爲我的源表：

v1 v2

1 http://www.sec.gov/Archives/edgar/data/20/0000893220-01-000315.txt

2 http://www.sec.gov/Archives/edgar/data/20/0000893220-03-000441.txt

3 http://www.sec.gov/Archives/edgar/data/20/0000893220-04-000596.txt

4 http://www.sec.gov/Archives/edgar/data/20/0000893220-05-000728.txt

5 http://www.sec.gov/Archives/edgar/data/20/0000893220-06-000650.txt

.....

基本上，我有在V2在V1 ID和URL。我需要一次下載數千個類似的文件。到目前爲止，我用下面的代碼解決下載問題：（可以說是link包含我上面提供的表中的數據集）

urls<-c(link$v2)

for (url in urls){ download.file(url, destfile = basename(url), quiet=T) }

此代碼工作正常下載。不過，現在，而不是保存下載的文件爲原基本名如0000893220-01-000315.txt或0000893220-03-000441.txt等的名字，我想根據V1的ID更改文件名，命名該文件作爲1.txt，2.txt等

任何人都可以幫我解決這個問題嗎？非常讚賞你的幫助:)

Answer 1

使用file.rename：

with(link, file.rename(basename(v2), paste0(v1, ".txt"))) 

或者，給他們所需要的名字，當你下載它們：

nr <- nrow(link) 
for(i in 1:nr) with(link[i,], download.file(v2, destfile = paste0(v1, ".txt"), quiet=TRUE))