R/ncaa_game_info.R

Defines functions ncaa_game_info

Documented in ncaa_game_info

#' @title **NCAA Game Info**
#'
#' @param game_id the game_id of a given game from the NCAA API
#'
#' @return A data frame of game information
#' @export
ncaa_game_info <- function(game_id) {
  base_url <- "https://data.ncaa.com/casablanca/game/"

  full_url <- paste(base_url, game_id, "gameInfo.json", sep="/")

  # Check for internet
  #check_internet()

  # Create the GET request and set response as res
  res <- httr::GET(full_url)

  # Check the result
  #check_status(res)


  info.json <- jsonlite::fromJSON(full_url, flatten = TRUE)
  info.df <- as.data.frame(unlist(info.json)) %>%
    tibble::rownames_to_column(var = "name") %>%
    dplyr::rename(value = .data$`unlist(info.json)`) %>%
    tidyr::pivot_wider(names_from = .data$name, values_from = .data$value) %>%
    janitor::clean_names()

  return(info.df)
}
ehess/ncaascrapR documentation built on March 28, 2022, 3:33 a.m.