|
@@ -19,6 +19,6 @@ download_links <- paste0(base_url, filenames)
|
|
|
if(!"data" %in% list.files()) {fs::dir_create("data")}
|
|
if(!"data" %in% list.files()) {fs::dir_create("data")}
|
|
|
|
|
|
|
|
purrr::map2(.x = download_links,
|
|
purrr::map2(.x = download_links,
|
|
|
- .y = paste0("../data/", filenames),
|
|
|
|
|
|
|
+ .y = paste0("data/", filenames),
|
|
|
~download.file(.x, .y))
|
|
~download.file(.x, .y))
|
|
|
|
|
|
