我想下載文件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- 0928https://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- 0945https://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_* 函數不會讀取這些文件。我沒有代碼可以在這里分享，因為我不知道如何嘗試這個？
1 回答
楊魅力
TA貢獻1811條經驗 獲得超6個贊
這是一個最小的例子。
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 <- FALSE
if (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
# [...]
- 1 回答
- 0 關注
- 165 瀏覽
添加回答
舉報
0/150
提交
取消