data-raw/player_stats/scrape_footywire_basic.R

In jimmyday12/fitzRoy: Easily Scrape and Process AFL Data

# Script to get data from footywire - adapted from Rob's earlier one
library(fitzRoy)
library(fst)

# Run function on range of id's ----
# I've got a list of ID's that I scraped in a file called id_data.rda
player_stats <- update_footywire_stats(check_existing = TRUE)

# Write data using devtools
devtools::use_data(player_stats, overwrite = TRUE)
save(player_stats, file = here::here("data-raw", "player_stats", "player_stats.rda"))
fst::write_fst(player_stats, path = here::here("data-raw", "player_stats", "player_stats.fst"))
fst::write_fst(player_stats, path = here::here("data-raw", "player_stats", "player_stats_full.fst"), compress = 100)