R/game_functions.R

In wiscostret/fplscrapR: Easy compiling of Fantasy Premier League data in R

# get_game_list

#' get_game_list
#'
#' This function fetches a basic list of games.
#' @param season To retrieve prior season data, enter a 2-digit year corresponding to the start of the historical FPL season of interest (e.g. '18' for the 2018/2019 season).
#' @keywords game
#' @export
#' @examples
#' get_game_list()

get_game_list <- function(season = NULL){
  ifelse(
    !is.null(season),
    {
      gamelist <- read.csv(paste0("https://raw.githubusercontent.com/wiscostret/histfpldata/master/getgamelist",season,".csv"),encoding="UTF-8")
      return(gamelist)
    },
    {
  shorts <- get_fdr() %>% dplyr::select(short_name)
  fixtures <- jsonlite::fromJSON("https://fantasy.premierleague.com/api/fixtures/")
  gamelist <- data.frame(
    "GW"=fixtures$event,
    "id"=fixtures$id,
    "home"=fixtures$team_h,
    "team_h"=fixtures$team_h,
    "away"=fixtures$team_a,
    "team_a"=fixtures$team_a,
    "finished"=fixtures$finished,
    "kickoff"=fixtures$kickoff_time,
    "team_h_score"=fixtures$team_h_score,
    "team_a_score"=fixtures$team_a_score) %>%
    dplyr:: mutate(home = dplyr::case_when(
      home == "1" ~ shorts[1,],
      home == "2" ~ shorts[2,],
      home == "3" ~ shorts[3,],
      home == "4" ~ shorts[4,],
      home == "5" ~ shorts[5,],
      home == "6" ~ shorts[6,],
      home == "7" ~ shorts[7,],
      home == "8" ~ shorts[8,],
      home == "9" ~ shorts[9,],
      home == "10" ~ shorts[10,],
      home == "11" ~ shorts[11,],
      home == "12" ~ shorts[12,],
      home == "13" ~ shorts[13,],
      home == "14" ~ shorts[14,],
      home == "15" ~ shorts[15,],
      home == "16" ~ shorts[16,],
      home == "17" ~ shorts[17,],
      home == "18" ~ shorts[18,],
      home == "19" ~ shorts[19,],
      home == "20" ~ shorts[20,]
    )) %>%
    dplyr:: mutate(away = dplyr::case_when(
      away == "1" ~ shorts[1,],
      away == "2" ~ shorts[2,],
      away == "3" ~ shorts[3,],
      away == "4" ~ shorts[4,],
      away == "5" ~ shorts[5,],
      away == "6" ~ shorts[6,],
      away == "7" ~ shorts[7,],
      away == "8" ~ shorts[8,],
      away == "9" ~ shorts[9,],
      away == "10" ~ shorts[10,],
      away == "11" ~ shorts[11,],
      away == "12" ~ shorts[12,],
      away == "13" ~ shorts[13,],
      away == "14" ~ shorts[14,],
      away == "15" ~ shorts[15,],
      away == "16" ~ shorts[16,],
      away == "17" ~ shorts[17,],
      away == "18" ~ shorts[18,],
      away == "19" ~ shorts[19,],
      away == "20" ~ shorts[20,]
    ))
  return(gamelist)
    }
  )
}

# get_game_stats

#' get_game_stats
#'
#' This function fetches detailed statistics for a game given the game ID. It fetches ten variables that are accessed as lists with home (h) and away (a) players: goals_scored, assists, own_goals, penalties_saved, yellow_cards, red_cards, saves, bonus, and bps.
#' @param gameid The game ID. Can be found with get_game_list().
#' @keywords game
#' @export
#' @examples
#' get_game_stats(1)

get_game_stats <- function(gameid = NULL){
  if(is.null(gameid)) stop("You'll need to input at least one game ID, mate.")
  if(length(gameid) != 1) stop("One at a time, please")
   {
     fixtures <- jsonlite::fromJSON("https://fantasy.premierleague.com/api/fixtures/")
     return((fixtures %>% dplyr::filter(id %in% gameid))$stats[[1]])
   }
}