1 回答

TA貢獻1811條經(jīng)驗 獲得超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 關注
- 180 瀏覽
添加回答
舉報