seasons <- 2002:2020
pbp <- purrr::map_df(seasons, function(x) {
readRDS(
url(
glue::glue("https://raw.githubusercontent.com/sportsdataverse/cfbfastR-data/master/pbp/rds/play_by_play_{x}.rds")
)
)
})
seasons <- 2002:2020
pbp <- purrr::map_df(seasons, function(x) {
readr::read_csv(
url(
glue::glue("https://raw.githubusercontent.com/sportsdataverse/cfbfastR-data/master/pbp/csv/play_by_play_{x}.csv.gz")
)
)
})
seasons <- 2002:2020
pbp <- purrr::map_df(seasons, function(x) {
download.file(glue::glue("https://raw.githubusercontent.com/sportsdataverse/cfbfastR-data/master/data/parquet/play_by_play_{x}.parquet"),"tmp.parquet")
df <- arrow::read_parquet("tmp.parquet")
return(df)
})