R/football_get_standing.R

In epijim/FootballData: Easy access to Football API data and quick toy summaries

#' Map name to base URL for API
#'
#' Adding in as potentially may allow package to work over a few APIs
#'
#' @param competition_id The ID for the competition of interest.
#' @param api Name of API. Currently has \code{"football-data.org"}
#' @param api_token Your API token
#'
#' @return League standings as dataframe.
#'
#'
#' @export

football_get_standing <- function(
  competition_id,
  api = "football-data.org",
  api_token = Sys.getenv("API_FOOTBALL_DATA")
){
  api_endpoint <- switch(
    api,
    "football-data.org" = glue::glue("competitions/{competition_id}/standings")
  )

  # get the data
  data <- football_pull(
    api = api,
    api_endpoint = api_endpoint,
    api_token = api_token)

  data_clean <- data$standings$table[[1]]

  data_clean <- dplyr::bind_cols(
    data_clean %>%
      dplyr::select(
        position,playedGames,form,won,draw,lost,points,
        goalsFor,goalsAgainst,goalDifference
      ),
    data_clean$team %>%
      dplyr::select(team_id = id,team = name,url_team = crestUrl)  %>%
      dplyr::mutate(
        crest = dplyr::case_when(
          !is.na(url_team) ~ glue::glue("<img src='{url_team}' height='24'></img>"),
          TRUE ~ NA_character_
        )
      )
  )

  data_clean
}