R/FreeJoinPlayerNickname.R

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

FreeJoinPlayerNickname <- function (events) 
{
  lineups <- StatsBombFreeLineups(MatchesDF = Matches, Parallel = T)
  lineups <- cleanlineups(lineups)
  lineups <- lineups %>% mutate(player_nickname = ifelse(is.na(player_nickname), 
                                                         player_name, player_nickname))
  lineups <- lineups %>% select(player.id = player_id, player.nickname = player_nickname) %>% 
    group_by(player.id) %>% slice(1) %>% ungroup()
  events <- events %>% left_join(lineups)
  return(events)
}