У меня есть большой набор уникальных идентификаторов файлов и ссылок для загрузки файлов. Это выглядит так:
file_id <- c("id:fghjs12:ws8c7/syx", "id:f7gnsfu:7a6#*s", "id:dug:shxgcvu:6sh")
link <- c("https://www.dynare.org/wp-repo/dynarewp028.pdf", "https://www.dynare.org/wp-repo/dynarewp029.pdf", "https://www.dynare.org/wp-repo/dynarewp020.pdf")
df <- data.frame(file_id, link, stringsAsFactors = FALSE)
Я хочу скачать каждый файл, используя имя дескриптора. Некоторые ссылки не работают. Итак, у меня есть следующее l oop для выполнения задачи, но она не работает ..
download_documents <- function(url, file_id) {
tryCatch(
{download.file(url, paste0('~/Desktop/Dataset/files/', file_id))},
error = function(e) {NA},
warning = function(w) {NA})
}
Map(download_documents, df$link, df$file_id)
Кто-нибудь знает, что я делаю неправильно, или у меня есть лучшее решение? Заранее спасибо за помощь!