R/zizou_top_scorer.R

In feddelegrand7/zizou:

zizou_top_scorer <- function(league, season = "2020-2021"){


  # Checking if a league is available ----------------------
  available_leagues <- c("liga",
                         "premier-league",
                         "ligue-1",
                         "serie-A",
                         "bundesliga",
                         "eredivisie",
                         "superliga"
  )



  if(!league %in% available_leagues){


    stop(glue::glue("You need to choose from the following leagues: {knitr::combine_words(sort(available_leagues))}"))


  }


  # Checking if a season is available --------------------------------

  available_seasons <- c("2020-2021",
                         "2019-2020",
                         "2018-2019",
                         "2017-2018",
                         "2016-2017"
  )

  if(!season %in% available_seasons){


    stop(glue::glue("Only the following seasons are available: {knitr::combine_words(available_seasons)}"))


  }

  # scraping -------------------------------------


  link <- glue::glue("https://www.eurosport.com/football/{league}/{season}/standingperson.shtml")

  top_scorer <- ralger::table_scrap(link)


  # data cleaning ----------------------------------------


  names(top_scorer)[1] <- "Rank"


  return(top_scorer)







}