如何下载给定 api... 和 url 的文件？

Question

我想下载文件https://data.gov.hk/en-data/dataset/hk-dh-chpsebcddr-novel-infectious-agent/resource /a09134c1-53ea-4916-a573-62cf972562af。我选择的日期范围是从 2019 年 12 月 31 日到 2020 年 4 月 13 日。我在那里看到了如下链接：

https://api.data.gov.hk/v1/historical-archive/get-file?url=http%3A%2F%2Fwww.chp.gov.hk%2Ffiles%2Fmisc%2Fenhanced_sur_covid_19_eng.csv&time=20200411- 0928

https://api.data.gov.hk/v1/historical-archive/get-file?url=http%3A%2F%2Fwww.chp.gov.hk%2Ffiles%2Fmisc%2Fenhanced_sur_covid_19_eng.csv&time=20200412- 0945

https://api.data.gov.hk/v1/historical-archive/get-file?url=http%3A%2F%2Fwww.chp.gov.hk%2Ffiles%2Fmisc%2Fenhanced_sur_covid_19_eng.csv&time=20200413- 0946

如何使用 R 从这些链接下载 10 或 100 个文件？简单的 read_* 函数不会读取这些文件。我没有代码可以在这里分享，因为我不知道如何尝试这个？

Answer 1

这是一个最小的例子。raw <- readr::read_csv("http://www.chp.gov.hk/files/misc/enhanced_sur_covid_19_eng.csv",                       col_names = TRUE)head(raw)# A tibble: 6 x 10# [...]这是一个更完整的示例，将下载的文件保存在/data-raw下，如书中所述R Packages .file_name <- "enhanced_sur_covid_19_eng.csv"url <- stringr::str_glue("http://www.chp.gov.hk/files/misc/{file_name}")raw_data <- stringr::str_glue("data-raw/{file_name}")reload <- FALSEif (reload | !file.exists(raw_data)) {    download.file(url, raw_data)}raw <- readr::read_csv(raw_data,                       col_names = TRUE)head(raw)# A tibble: 6 x 10# [...]