R - 複数のzipファイルをスクラップしてダウンロードし、上書きせずにファイルを保存します。

Question

Webリンクを使用して複数のzipファイルをダウンロードしようとしています。このアプローチでは、ダウンロードファイルには、ファイル名のため、上書きなっている複数年にわたって同じです -

library(rvest) 

url <- "https://download.open.fda.gov/" 
page <- read_html(url) 

zips <- grep("\\/drug-event",html_nodes(page,"key"), value=TRUE) 
zips_i<-gsub(".*\\/drug\\/","drug/",zips) 
zips_ii<-gsub("</key>","",zips_i) 
zips_iii<-paste0(url, zips_ii) 

lapply(zips_iii, function(x) download.file(x, basename(x))) 

は、ダウンロードしたファイルを上書きしない方法はありますか？ここで

Answer 1

は、私がこれまでに得たものである -

#load the library 
library(rvest) 

#link to get the data from 
url <- "https://download.open.fda.gov/" 
page <- read_html(url) 

#clean the URL 
zips <- grep("\\/drug-event",html_nodes(page,"key"), value=TRUE) 
zips_i<-gsub(".*\\/drug\\/","drug/",zips) 
zips_ii<-gsub("</key>","",zips_i) 
zips_iii<-paste0(url, zips_ii) 

#destination vectors 
id=1:length(zips_iii) 
destination<-paste0("~/Projects/Projects/fad_ade/",id) 

#file extraction 
mapply(function(x, y) download.file(x,y, mode="wb"),x = zips_iii, y = destination)