R/fte_matches.R

In RyanG73/rMLS: Acquire and Analyze Major League Soccer Data

#' A function to pull fivethirtyeight's match list and probabilities
#'
#' This function allows me to test setup
#' @param fte_matches, defaults to 2017,2020
#' @keywords fivethirtyeight, fte, matches
#' @importFrom magrittr "%>%"
#' @export
#' @examples \dontrun{fte_matches()}
#' fte_matches()

fte_matches <- function(start_season=2017,end_season=2020){
  matches <- readr::read_csv("https://projects.fivethirtyeight.com/soccer-api/club/spi_matches.csv")
  matches <- matches %>%
    dplyr::filter(league == 'Major League Soccer') %>%
    dplyr::filter(season >= start_season) %>%
    dplyr::filter(season <= end_season)
  return(matches)
}