data-raw/release_otc_contract_data.R

In nflverse/rotc: Functions to Access OTC Data

# This file loads and releases OTC contract data
# It is meant to be run in an github action to automate data updates

player_details <- nflreadr::rds_from_url("https://github.com/nflverse/nflverse-data/releases/download/contracts/otc_player_details.rds")

# Load OTC Player ID data and join gsis_ids
player_ids <- nflreadr::rds_from_url("https://github.com/nflverse/nflverse-data/releases/download/players_components/otc_players.rds")
id_map <- player_ids$gsis_id |> rlang::set_names(player_ids$otc_id)

x <- player_details |>
  dplyr::select(player_url,season_history) |>
  tidyr::unnest(cols = season_history) |>
  dplyr::mutate(dplyr::across(dplyr::matches("bonus|salary|number|cash"),~readr::parse_number(.x)/1e6),
                cap_percent = readr::parse_number(cap_percent,na = "--")/100) |>
  tidyr::nest(cols = -player_url)

player_details <- player_details |>
  dplyr::select(-season_history) |>
  dplyr::left_join(x, by = "player_url")

contracts <- rotc::otc_historical_contracts_all()
contracts$gsis_id <- id_map[as.character(contracts$otc_id)]

save <- dplyr::left_join(contracts, player_details, by = c("player_page" = "player_url"))

nflversedata::nflverse_save(
  data_frame = save,
  file_name = "historical_contracts",
  nflverse_type = "Historical Contract Data from OverTheCap.com",
  release_tag = "contracts",
  file_types = c("rds","qs","parquet")
)

cli::cli_alert_success("DONE!")