data-raw/update_headshot_gsis_map.R

In nflverse/nflplotR: NFL Logo Plots in 'ggplot2' and 'gt'

# nflplotR loads a mapping file to map headshot urls to gsis IDs with
# the unexported function load_headshots()
# This mapping needs an update every year to add rookie headshots
# Run this code early in the season to get those rookie data

# CREATE RELEASE (no need to rerun)

if (FALSE) {
  piggyback::pb_release_create(
    repo = "nflverse/nflplotR",
    tag = "nflplotr_infrastructure",
    name = "nflplotR Infrastructure",
    body = "Data for internal nflplotR usage"
  )
}

if (FALSE) {
  seasons_to_update <- 1999:nflreadr::most_recent_season(roster = TRUE)
} else {
  seasons_to_update <- nflreadr::most_recent_season(roster = TRUE)
}

# LOAD ROSTER AND RELEASE RELEVANT DATA BY SEASON
purrr::walk(
  seasons_to_update,
  function (s) {
    r <- nflapi::nflapi_roster(s) |>
      nflapi::nflapi_roster_parse() |>
      dplyr::select(
        gsis_id = player_gsis_id,
        headshot_nfl = player_headshot
      ) |>
      dplyr::filter(!is.na(gsis_id), !is.na(headshot_nfl)) |>
      dplyr::mutate(
        headshot_nfl = stringr::str_replace(headshot_nfl, "\\{formatInstructions\\}", "f_auto,q_auto")
      )

    # Going into the 2024 season, the headshot of Jayden Daniels is missing
    # We use his combine headshot instead
    if (s == 2024){
      if (!"00-0039910" %in% r$gsis_id){
        r <- r |>
          dplyr::bind_rows(
            tibble::tibble(
              gsis_id = "00-0039910",
              headshot_nfl = "https://static.www.nfl.com/image/private/f_auto,q_auto/%7B%7Binstance%7D%7D/god-draft-headshots/2024/32004441-4e56-7618-ab61-f08cbf558acd"
            )
          )
      }
    }

    nflversedata::nflverse_save(
      r,
      file_name = glue::glue("headshot_gsis_map_{s}"),
      nflverse_type = "nflplotR headshot gsis map",
      release_tag = "nflplotr_infrastructure",
      file_types = "rds",
      repo = "nflverse/nflplotR"
    )
  },
  .progress = TRUE
)

# NOW COMBINE ALL SEASONS INTO ONE FILE

combined_map <- purrr::map(
  1999:nflreadr::most_recent_season(roster = TRUE),
  function(s){
    load_from <- glue::glue("https://github.com/nflverse/nflplotR/releases/download/nflplotr_infrastructure/headshot_gsis_map_{s}.rds")
    nflreadr::rds_from_url(load_from) |>
      dplyr::mutate(season = s)
  },
  .progress = TRUE
) |>
  purrr::list_rbind() |>
  dplyr::slice_max(season, n = 1, with_ties = FALSE, by = gsis_id) |>
  dplyr::select(-season)

nflversedata::nflverse_save(
  combined_map,
  file_name = "headshot_gsis_map",
  nflverse_type = "nflplotR headshot gsis map",
  release_tag = "nflplotr_infrastructure",
  file_types = "rds",
  repo = "nflverse/nflplotR"
)