R/get_nfl_boxscore.R

In jthomasmock/espnscrapeR: Scrapes Or Collects NFL Data From ESPN

#' Get NFL boxscore for a specific game from ESPN's API
#'
#' @param game_id character
#'
#' @return Returns a tibble
#' @export
#' @import tidyr dplyr purrr
#' @importFrom dplyr %>%
#' @importFrom dplyr %>%
#' @importFrom httr GET content stop_for_status
#' @importFrom stringr str_detect
#' @importFrom glue glue
#' @examples
#' # Get NFL play-by-play for a specific game
#' get_nfl_boxscore(game_id = "300912027")
#'


get_nfl_boxscore <- function(game_id){

  game_url <- glue::glue("http://site.api.espn.com/apis/site/v2/sports/football/nfl/summary")

  raw_get <- httr::GET(game_url, query = list(event = game_id, enable = "ranks,odds,linescores,logos"))

  httr::stop_for_status(raw_get)

  raw_json <- httr::content(raw_get)

  category_game_summary_raw <- raw_json[["boxscore"]][["players"]] %>%
    tibble(data = .) %>%
    unnest_wider(data) %>%
    unnest_wider(team) %>%
    select(
      team_id = id,
      team_uid = uid,
      team_city = location,
      team_name = name,
      team_abb = abbreviation,
      team_full = displayName,
      team_color = color,
      team_color_alt = alternateColor,
      team_logo = logo,
      any_of("statistics")
    )

  if("statistics" %in% names(category_game_summary_raw)){
    category_game_summary <- category_game_summary_raw %>%
      unnest_longer(statistics) %>%
      unnest_wider(statistics) %>%
      unchop(cols = c(labels, descriptions, totals)) %>%
      unchop(cols = c(labels, descriptions, totals)) %>%
      mutate(
        name = case_when(
          name == "passing" ~ "pass",
          name == "rushing" ~ "rush",
          name == "receiving" ~ "rec",
          name == "fumbles" ~ "fum",
          name == "defensive" ~ "def",
          name == "interceptions" ~ "int",
          name == "kickReturns" ~ "kick_ret",
          name == "puntReturns" ~ "punt_ret",
          name == "kicking" ~ "kick",
          name == "punting" ~ "punt",
          TRUE ~ name
        )
      ) %>%
      unite(stat_labels, sep = "_", name, labels) %>%
      mutate(
        stat_labels = tolower(stat_labels) %>% gsub(x = ., pattern = "/", replacement = "p"),
        stat_labels = gsub(x = stat_labels, pattern = " ", replacement = "_"),
      ) %>%
      pivot_wider(
        names_from = stat_labels,
        values_from = totals,
        id_cols = c(team_id)
      ) %>%
      separate(pass_sacks, into = c("pass_sacks", "pass_sack_yds"), sep = "-", convert = TRUE) %>%
      separate(pass_cpatt, into = c("pass_att", "pass_cmp"), sep = "/", convert = TRUE) %>%
      separate(kick_fg, into = c("kick_fg_made", "kick_fg_att"), sep = "/", convert = TRUE) %>%
      separate(kick_xp, into = c("kick_xp_made", "kick_xp_att"), sep = "/", convert = TRUE) %>%
      mutate(across(pass_att:punt_long, ~ suppressWarnings(as.double(.x)))) %>%
      rename(
        rec_total = rec_rec,
        int_total = int_int,
        fum_total = fum_fum,
        rush_att = rush_car,
        def_tkl = def_tot,
        def_solo_tkl = def_solo,
        kick_fg_pct = kick_pct
      )
  } else {
    category_game_summary <- category_game_summary_raw
  }

  if("statistics" %in% names(category_game_summary_raw)){

    gen_boxscore <- raw_json[["boxscore"]][["teams"]] %>%
      tibble(data = .) %>%
      unnest_wider(data) %>%
      unnest_wider(team) %>%
      select(
        team_id = id, team_uid = uid, team_city = location, team_name = name,
        team_abb = abbreviation, team_full = displayName, team_color = color,
        team_color_alt = alternateColor, team_logo = logo, any_of("statistics")
      ) %>%
      hoist(
        statistics,
        first_downs = list(1, "displayValue"),
        pass_1st_downs = list(2, "displayValue"),
        rush_1st_downs = list(3, "displayValue"),
        first_downs_from_penalties = list(4, "displayValue"),
        third_down_efficiency = list(5, "displayValue"),
        fourth_down_efficiency = list(6, "displayValue"),
        total_plays = list(7, "displayValue"),
        total_yards = list(8, "displayValue"),
        yards_per_play = list(9, "displayValue"),
        total_drives = list(10, "displayValue"),
        red_zone_made_att = list(19, "displayValue"),
        penalties = list(20, "displayValue"),
        turnovers = list(21, "displayValue"),
        def_sp_tds = list(24, "displayValue"),
        possess_time = list(25, "displayValue")
      ) %>%
      separate(third_down_efficiency, c("third_down_conv", "third_down_att"), sep = "-", convert = TRUE) %>%
      separate(fourth_down_efficiency, c("fourth_down_conv", "fourth_down_att"), sep = "-", convert = TRUE) %>%
      separate(red_zone_made_att, c("redzone_att", "redzone_conv"), sep = "-", convert = TRUE) %>%
      separate(penalties, c("penalties", "pen_yards"), sep = "-", convert = TRUE) %>%
      mutate(across(first_downs:def_sp_tds, as.double)) %>%
      select(-statistics)
  }


  game_header <- raw_json %>%
    keep(names(raw_json) %in% "header") %>%
    tibble(data = .) %>%
    unnest_wider(data) %>%
    unchop(competitions) %>%
    rename(game_id = id, game_uid = uid) %>%
    unnest_wider(competitions) %>%
    unnest_wider(season) %>%
    select(-id, -uid) %>%
    rename(season = year, season_type = type) %>%
    select(
      !any_of(
        c(
          "neutralSite", "conferenceCompetition", "boxscoreAvailable",
          "commentaryAvailable", "liveAvailable", "onWatchESPN", "recent",
          "boxscoreSource", "playByPlaySource"
        )
      )
    ) %>%
    unchop(competitors) %>%
    unnest_wider(competitors) %>%
    rename(team_id = id, team_uid = uid, team_order = order, home_away = homeAway) %>%
    select(-links, -timeValid) %>%
    unnest_wider(team) %>%
    rename(
      team_name = name, team_location = location, team_full = displayName,
      team_abb = abbreviation, team_color = color, team_color_alt = alternateColor,
      team_score = score
    ) %>%
    hoist(logos, team_logo = list(1, "href")) %>%
    hoist(record, team_record = list(1, "displayValue")) %>%
    select(
      !any_of(
        c(
          "links", "logos", "possession", "broadcasts", "league", "linescores",
          "record", "status", "rank", "team_uid", "team_name", "team_abb",
          "team_full", "team_color", "team_color_alt", "team_logo", "nickname", "id", "uid"
        )
      )

    ) %>%
    select(game_id:date, any_of("week"), everything())

  if(exists("gen_boxscore")){

    left_join(category_game_summary, gen_boxscore, by = "team_id") %>%
      left_join(game_header, by = "team_id") %>%
      select(
        contains("game"), contains("season"), date, any_of("week"), home_away, winner,
        contains("team"), everything(), -team_location
      )  %>%
      mutate(
        winner = as.integer(winner),
        team_score = as.integer(team_score)
      )

  } else {
    left_join(category_game_summary, game_header, by = "team_id") %>%
      select(
        contains("game"), contains("season"), date, any_of("week"), home_away, winner,
        contains("team"), everything(), -team_location
      )  %>%
      mutate(
        winner = as.integer(winner),
        team_score = as.integer(team_score)
      )
  }

  }