R/player_match_multicomp.R

In statsbomb/StatsBombR: Cleans and pulls StatsBomb data from the API

player_match_multicomp = function (username, password, competitionmatrix, version = "v5", 
          baseurl = "https://data.statsbomb.com/api/", parallel = TRUE, 
          cores = detectCores()) 
{
  player_matches_multicomp <- tibble()
  for (i in 1:dim(competitionmatrix)[1]) {
    temp.matches <- tibble()
    competition_id <- as.numeric(competitionmatrix[i, 1])
    season_id <- as.numeric(competitionmatrix[i, 2])
    matches <- matchesvector(username, password, season_id, 
                             competition_id, version, baseurl)
    temp.matches <- player_all_matches(username, password, matches, 
                              version, baseurl, parallel, cores)
    temp.matches <- temp.matches %>% mutate(competition_id = competition_id, 
                                            season_id = season_id)
    player_matches_multicomp <- bind_rows(player_matches_multicomp, temp.matches)
  }
  player_matches_multicomp <- player_matches_multicomp %>% dplyr::select(-num_range("shot", 1:20))
  return(player_matches_multicomp)
}