| 123456789101112131415161718192021222324 |
- library(rvest)
- # link to data
- webpage <- read_html("https://eightthirtyfour.com/data")
- datalinks <- webpage %>%
- html_nodes(xpath = '//*[contains(concat( " ", @class, " " ), concat( " ", "centertable", " " ))]') %>%
- html_table(fill = TRUE)
- # base url for links
- base_url <- "https://eightthirtyfour.com/nba/pbp/"
- filenames <- datalinks[[1]] %>%
- dplyr::filter(Season != "all seasons (zip)") %>%
- dplyr::pull(CSV)
- download_links <- paste0(base_url, filenames)
- if(!"data" %in% list.files()) {fs::dir_create("data")}
- purrr::map2(.x = download_links,
- .y = paste0("../data/", filenames),
- ~download.file(.x, .y))
|
