从R中的url下载多个.csv

urls <- c(
  "http://example.com/file1.csv",
  "http://example.com/file2.csv",
  "http://example.com/file3.csv"
)

for (url in urls) {
  filename <- paste0("downloaded_file_", gsub("[^[:alnum:]]", "_", basename(url)))
  download.file(url, destfile = filename, method = "auto")
  cat("Downloaded", filename, "\n")
}

for (url in urls) {
  filename <- paste0("downloaded_file_", gsub("[^[:alnum:]]", "_", basename(url)))
  for (i in 1:3) {
    tryCatch({
      download.file(url, destfile = filename, method = "auto")
      cat("Downloaded", filename, "\n")
      break
    }, error = function(e) {
      if (i == 3) {
        cat("Failed to download", url, "\n")
      } else {
        cat("Retrying to download", url, "\n")
      }
    })
  }
}

library(httr)

for (url in urls) {
  filename <- paste0("downloaded_file_", gsub("[^[:alnum:]]", "_", basename(url)))
  response <- GET(url, authenticate("username", "password"))
  if (http_status(response)$category == "Success") {
    writeBin(content(response, "raw"), filename)
    cat("Downloaded", filename, "\n")
  } else {
    cat("Failed to download", url, "\n")
  }
}