R/get_league_leaders.R

In emilykuehler/basketballstatsR: What the Package Does (One Line, Title Case)

#' @title Get League Leaders
#' @description gets league leaders
#' @keywords nba.com api
#' @importFrom magrittr %>%
#' @export get_league_leaders
#' @examples
#' get_league_leaders(season='2018-19')
#'

get_league_leaders <- function(season, league_id = '00', per_mode = 'Totals', scope = 'S',
                               season_type = 'Regular%20Season', stat_category = 'PTS') {

  base_url <- 'stats.nba.com/stats/leagueleaders/?'

  league_leader_url <- paste0(base_url,
                    'LeagueID=', league_id,
                    '&PerMode=', per_mode,
                    '&Scope=', scope,
                    '&Season=', season,
                    '&SeasonType=', season_type,
                    '&StatCategory=', stat_category)

  league_leader_json <-
    curl::curl(league_leader_url) %>%
    jsonlite::fromJSON()

  league_leader_df <- data.frame(league_leader_json$resultSet$rowSet, stringsAsFactors = F)
  names(league_leader_df) = tolower(league_leader_json$resultSet$headers)

  return (league_leader_df)

}