R/nfl_season_schedule.R

In benny-dreyf/oddsmaker: The foundation for a 'data-informed' approach to winning your NFL 'Super Contest'

#' scrapes season schedule from pro-football-reference.com
#'
#' @param year the season you'd like to pull
#'
#' @return a tibble containing the full or a portion of the NFL schedule for a particular season
#'
#' @example None
#'
#' @export
nfl_season_schedule<-function(season_year){
  nfl_year<- paste('https://www.pro-football-reference.com/years/', season_year, '/games.htm', sep= '')
  nfl_year
rvest::read_html(nfl_year) |>
  rvest::html_elements('table') |>
  rvest::html_table() |>
  dplyr::bind_rows() |>
  janitor::clean_names(case= 'snake') |>
  # rename(date= x3) |>
  filter(week != 'Pre0' & week != 'Pre1' & week != 'Pre2' & week != 'Pre3' &  week != 'Week' & date != 'Playoffs') |>
  dplyr::filter(week != 'Week' & date != 'Playoffs') |>
  dplyr::mutate(week= case_when(week == 'WildCard' ~ '19',
                                week == 'Division' ~ '20',
                                week == 'ConfChamp' ~ '21',
                                week == 'SuperBowl' ~ '22',
                                T ~ week),
                week= as.numeric(week)) |>
  dplyr::select(week, day, date, time, away= winner_tie, home= loser_tie) |>
  dplyr::mutate(year= season_year) |>
  dplyr::group_by(week) |>
  dplyr::group_split() |>
  purrr::map(dplyr::mutate, game_num= dplyr::row_number()) |>
  dplyr::bind_rows() |>
  tidyr::unite(col = 'game_time', date, time, sep= " ") |>
  dplyr::mutate(game_time= lubridate::ymd_hm(game_time)) |>
  tidyr::pivot_longer(cols= -c('week', 'day', 'game_time', 'game_num', 'year'), names_to = 'home_away', values_to = 'team') |>
  dplyr::select(week, day, game_time, game_num, home_away, team) |>
  dplyr::left_join(readr::read_csv('team_abbrev_match.csv'), by= 'team') |>
  dplyr::rename(team_abbrev= abrev) |>
  dplyr::select(week, day, game_time, game_num, team, team_abbrev, home_away)
}