R/nba_stats_lineups.R
In saiemgilani/kenpomR: Access Men's Basketball Play by Play Data
Defines functions
nba_matchupsrollup
nba_leagueseasonmatchups
nba_leagueplayerondetails
nba_leaguelineupviz
nba_leaguedashlineups
nba_fantasywidget
Documented in
nba_fantasywidget
nba_leaguedashlineups
nba_leaguelineupviz
nba_leagueplayerondetails
nba_leagueseasonmatchups
nba_matchupsrollup
#' **Get NBA Stats API Fantasy Widget**
#' @name nba_fantasywidget
NULL
#' @title
#' **Get NBA Stats API Fantasy Widget**
#' @rdname nba_fantasywidget
#' @author Saiem Gilani
#' @param active_players active_players
#' @param date_from date_from date_from
#' @param date_to date_to date_to
#' @param last_n_games last_n_games
#' @param league_id league_id
#' @param location location
#' @param month month
#' @param opponent_team_id opponent_team_id
#' @param po_round po_round
#' @param player_id player_id
#' @param position position
#' @param season season
#' @param season_segment season_segment
#' @param season_type season_type
#' @param team_id team_id
#' @param todays_opponent todays_opponent
#' @param todays_players todays_players
#' @param vs_conference vs_conference
#' @param vs_division vs_division
#' @param ... Additional arguments passed to an underlying function like httr.
#' @return Returns a named list of data frames: FantasyWidgetResult
#'
#' **FantasyWidgetResult**
#'
#'
#' |col_name |types |
#' |:-----------------|:---------|
#' |PLAYER_ID |character |
#' |PLAYER_NAME |character |
#' |PLAYER_POSITION |character |
#' |TEAM_ID |character |
#' |TEAM_ABBREVIATION |character |
#' |GP |character |
#' |MIN |character |
#' |FAN_DUEL_PTS |character |
#' |NBA_FANTASY_PTS |character |
#' |PTS |character |
#' |REB |character |
#' |AST |character |
#' |BLK |character |
#' |STL |character |
#' |TOV |character |
#' |FG3M |character |
#' |FGA |character |
#' |FG_PCT |character |
#' |FTA |character |
#' |FT_PCT |character |
#'
#' @importFrom jsonlite fromJSON toJSON
#' @importFrom dplyr filter select rename bind_cols bind_rows as_tibble
#' @import rvest
#' @export
#' @family NBA Fantasy Functions
#' @details
#' ```r
#' nba_fantasywidget(league_id = '00', season = year_to_season(most_recent_nba_season() - 1))
#' ```
nba_fantasywidget <- function(
active_players = 'N',
date_from = '',
date_to = '',
last_n_games = 0,
league_id = '00',
location = '',
month = '',
opponent_team_id = '',
po_round = '',
player_id = '',
position = '',
season = year_to_season(most_recent_nba_season() - 1),
season_segment = '',
season_type = 'Regular Season',
team_id = '',
todays_opponent = 0,
todays_players = 'N',
vs_conference = '',
vs_division = '',
...){
# Intentional
# season_type <- gsub(' ', '+', season_type)
version <- "fantasywidget"
endpoint <- nba_endpoint(version)
full_url <- endpoint
params <- list(
ActivePlayers = active_players,
DateFrom = date_from,
DateTo = date_to,
LastNGames = last_n_games,
LeagueID = league_id,
Location = location,
Month = month,
OpponentTeamID = opponent_team_id,
PORound = po_round,
PlayerID = player_id,
Position = position,
Season = season,
SeasonSegment = season_segment,
SeasonType = season_type,
TeamID = team_id,
TodaysOpponent = todays_opponent,
TodaysPlayers = todays_players,
VsConference = vs_conference,
VsDivision = vs_division
)
tryCatch(
expr = {
resp <- request_with_proxy(url = full_url, params = params, ...)
df_list <- nba_stats_map_result_sets(resp)
},
error = function(e) {
message(glue::glue("{Sys.time()}: Invalid arguments or no fantasy widget data for {season} available!"))
},
warning = function(w) {
},
finally = {
}
)
return(df_list)
}
#' **Get NBA Stats API League Dashboard Lineups**
#' @name nba_leaguedashlineups
NULL
#' @title
#' **Get NBA Stats API League Dashboard Lineups**
#' @rdname nba_leaguedashlineups
#' @author Saiem Gilani
#' @param conference conference
#' @param date_from date_from
#' @param date_to date_to
#' @param division division
#' @param game_segment game_segment
#' @param group_quantity group_quantity
#' @param last_n_games last_n_games
#' @param league_id league_id
#' @param location location
#' @param measure_type measure_type
#' @param month month
#' @param opponent_team_id opponent_team_id
#' @param outcome outcome
#' @param po_round po_round
#' @param pace_adjust pace_adjust
#' @param per_mode per_mode
#' @param period period
#' @param plus_minus plus_minus
#' @param rank rank
#' @param season season
#' @param season_segment season_segment
#' @param season_type season_type
#' @param shot_clock_range shot_clock_range
#' @param team_id team_id
#' @param vs_conference vs_conference
#' @param vs_division vs_division
#' @param ... Additional arguments passed to an underlying function like httr.
#' @return Returns a named list of data frames: Lineups
#'
#' **Lineups**
#'
#'
#' |col_name |types |
#' |:-----------------|:---------|
#' |GROUP_SET |character |
#' |GROUP_ID |character |
#' |GROUP_NAME |character |
#' |TEAM_ID |character |
#' |TEAM_ABBREVIATION |character |
#' |GP |character |
#' |W |character |
#' |L |character |
#' |W_PCT |character |
#' |MIN |character |
#' |FGM |character |
#' |FGA |character |
#' |FG_PCT |character |
#' |FG3M |character |
#' |FG3A |character |
#' |FG3_PCT |character |
#' |FTM |character |
#' |FTA |character |
#' |FT_PCT |character |
#' |OREB |character |
#' |DREB |character |
#' |REB |character |
#' |AST |character |
#' |TOV |character |
#' |STL |character |
#' |BLK |character |
#' |BLKA |character |
#' |PF |character |
#' |PFD |character |
#' |PTS |character |
#' |PLUS_MINUS |character |
#' |GP_RANK |character |
#' |W_RANK |character |
#' |L_RANK |character |
#' |W_PCT_RANK |character |
#' |MIN_RANK |character |
#' |FGM_RANK |character |
#' |FGA_RANK |character |
#' |FG_PCT_RANK |character |
#' |FG3M_RANK |character |
#' |FG3A_RANK |character |
#' |FG3_PCT_RANK |character |
#' |FTM_RANK |character |
#' |FTA_RANK |character |
#' |FT_PCT_RANK |character |
#' |OREB_RANK |character |
#' |DREB_RANK |character |
#' |REB_RANK |character |
#' |AST_RANK |character |
#' |TOV_RANK |character |
#' |STL_RANK |character |
#' |BLK_RANK |character |
#' |BLKA_RANK |character |
#' |PF_RANK |character |
#' |PFD_RANK |character |
#' |PTS_RANK |character |
#' |PLUS_MINUS_RANK |character |
#'
#' @importFrom jsonlite fromJSON toJSON
#' @importFrom dplyr filter select rename bind_cols bind_rows as_tibble
#' @import rvest
#' @export
#' @family NBA League Functions
#' @family NBA Lineup Functions
#' @details
#' [Lineups Dashboard](https://www.nba.com/stats/lineups/traditional)
#' ```r
#' nba_leaguedashlineups(league_id = '00', season = year_to_season(most_recent_nba_season() - 1))
#' ```
nba_leaguedashlineups <- function(
conference = '',
date_from = '',
date_to = '',
division = '',
game_segment = '',
group_quantity = 5,
last_n_games = 0,
league_id = '00',
location = '',
measure_type = 'Base',
month = 0,
opponent_team_id = 0,
outcome = '',
po_round = '',
pace_adjust = 'N',
per_mode = 'Totals',
period = 0,
plus_minus = 'N',
rank = 'N',
season = year_to_season(most_recent_nba_season() - 1),
season_segment = '',
season_type = 'Regular Season',
shot_clock_range = '',
team_id = '',
vs_conference = '',
vs_division = '',
...){
# Intentional
# season_type <- gsub(' ', '+', season_type)
version <- "leaguedashlineups"
endpoint <- nba_endpoint(version)
full_url <- endpoint
params <- list(
Conference = conference,
DateFrom = date_from,
DateTo = date_to,
Division = division,
GameSegment = game_segment,
GroupQuantity = group_quantity,
LastNGames = last_n_games,
LeagueID = league_id,
Location = location,
MeasureType = measure_type,
Month = month,
OpponentTeamID = opponent_team_id,
Outcome = outcome,
PORound = po_round,
PaceAdjust = pace_adjust,
PerMode = per_mode,
Period = period,
PlusMinus = plus_minus,
Rank = rank,
Season = season,
SeasonSegment = season_segment,
SeasonType = season_type,
ShotClockRange = shot_clock_range,
TeamID = team_id,
VsConference = vs_conference,
VsDivision = vs_division
)
tryCatch(
expr = {
resp <- request_with_proxy(url = full_url, params = params, ...)
df_list <- nba_stats_map_result_sets(resp)
},
error = function(e) {
message(glue::glue("{Sys.time()}: Invalid arguments or no league dashboard lineups data for {season} available!"))
},
warning = function(w) {
},
finally = {
}
)
return(df_list)
}
#' **Get NBA Stats API League Lineup Visual Data**
#' @name nba_leaguelineupviz
NULL
#' @title
#' **Get NBA Stats API League Lineup Visual Data**
#' @rdname nba_leaguelineupviz
#' @author Saiem Gilani
#' @param conference conference
#' @param date_from date_from
#' @param date_to date_to
#' @param division division
#' @param game_segment game_segment
#' @param group_quantity group_quantity
#' @param last_n_games last_n_games
#' @param league_id league_id
#' @param location location
#' @param measure_type measure_type
#' @param minutes_min minutes_min
#' @param month month
#' @param opponent_team_id opponent_team_id
#' @param outcome outcome
#' @param po_round po_round
#' @param pace_adjust pace_adjust
#' @param per_mode per_mode
#' @param period period
#' @param plus_minus plus_minus
#' @param rank rank
#' @param season season
#' @param season_segment season_segment
#' @param season_type season_type
#' @param shot_clock_range shot_clock_range
#' @param team_id team_id
#' @param vs_conference vs_conference
#' @param vs_division vs_division
#' @param ... Additional arguments passed to an underlying function like httr.
#' @return Returns a named list of data frames: LeagueLineupViz
#'
#' **LeagueLineupViz**
#'
#'
#' |col_name |types |
#' |:-----------------|:---------|
#' |GROUP_ID |character |
#' |GROUP_NAME |character |
#' |TEAM_ID |character |
#' |TEAM_ABBREVIATION |character |
#' |MIN |character |
#' |OFF_RATING |character |
#' |DEF_RATING |character |
#' |NET_RATING |character |
#' |PACE |character |
#' |TS_PCT |character |
#' |FTA_RATE |character |
#' |TM_AST_PCT |character |
#' |PCT_FGA_2PT |character |
#' |PCT_FGA_3PT |character |
#' |PCT_PTS_2PT_MR |character |
#' |PCT_PTS_FB |character |
#' |PCT_PTS_FT |character |
#' |PCT_PTS_PAINT |character |
#' |PCT_AST_FGM |character |
#' |PCT_UAST_FGM |character |
#' |OPP_FG3_PCT |character |
#' |OPP_EFG_PCT |character |
#' |OPP_FTA_RATE |character |
#' |OPP_TOV_PCT |character |
#'
#' @importFrom jsonlite fromJSON toJSON
#' @importFrom dplyr filter select rename bind_cols bind_rows as_tibble
#' @import rvest
#' @export
#' @family NBA League Functions
#' @family NBA Lineup Functions
#' @details
#' [Lineups Dashboard](https://www.nba.com/stats/lineups/traditional)
#' ```r
#' nba_leaguelineupviz(league_id = '00', season = year_to_season(most_recent_nba_season() - 1))
#' ```
nba_leaguelineupviz <- function(
conference = '',
date_from = '',
date_to = '',
division = '',
game_segment = '',
group_quantity = 5,
last_n_games = 0,
league_id = '00',
location = '',
measure_type = 'Base',
minutes_min = 10,
month = 0,
opponent_team_id = 0,
outcome = '',
po_round = '',
pace_adjust = 'N',
per_mode = 'Totals',
period = 0,
plus_minus = 'N',
rank = 'N',
season = year_to_season(most_recent_nba_season() - 1),
season_segment = '',
season_type = 'Regular Season',
shot_clock_range = '',
team_id = '',
vs_conference = '',
vs_division = '',
...){
# Intentional
# season_type <- gsub(' ', '+', season_type)
version <- "leaguelineupviz"
endpoint <- nba_endpoint(version)
full_url <- endpoint
params <- list(
Conference = conference,
DateFrom = date_from,
DateTo = date_to,
Division = division,
GameSegment = game_segment,
GroupQuantity = group_quantity,
LastNGames = last_n_games,
LeagueID = league_id,
Location = location,
MeasureType = measure_type,
MinutesMin = minutes_min,
Month = month,
OpponentTeamID = opponent_team_id,
Outcome = outcome,
PORound = po_round,
PaceAdjust = pace_adjust,
PerMode = per_mode,
Period = period,
PlusMinus = plus_minus,
Rank = rank,
Season = season,
SeasonSegment = season_segment,
SeasonType = season_type,
ShotClockRange = shot_clock_range,
TeamID = team_id,
VsConference = vs_conference,
VsDivision = vs_division
)
tryCatch(
expr = {
resp <- request_with_proxy(url = full_url, params = params, ...)
df_list <- nba_stats_map_result_sets(resp)
},
error = function(e) {
message(glue::glue("{Sys.time()}: Invalid arguments or no league lineup viz data for {season} available!"))
},
warning = function(w) {
},
finally = {
}
)
return(df_list)
}
#' **Get NBA Stats API League Player On/Off Details**
#' @name nba_leagueplayerondetails
NULL
#' @title
#' **Get NBA Stats API League Player On/Off Details**
#' @rdname nba_leagueplayerondetails
#' @author Saiem Gilani
#' @param date_from date_from
#' @param date_to date_to
#' @param game_segment game_segment
#' @param last_n_games last_n_games
#' @param league_id league_id
#' @param location location
#' @param measure_type measure_type
#' @param month month
#' @param opponent_team_id opponent_team_id
#' @param outcome outcome
#' @param pace_adjust pace_adjust
#' @param per_mode per_mode
#' @param period period
#' @param plus_minus plus_minus
#' @param rank rank
#' @param season season
#' @param season_segment season_segment
#' @param season_type season_type
#' @param team_id team_id
#' @param vs_conference vs_conference
#' @param vs_division vs_division
#' @param ... Additional arguments passed to an underlying function like httr.
#' @return Returns a named list of data frames: PlayersOnCourtLeaguePlayerDetails
#'
#' **PlayersOnCourtLeaguePlayerDetails**
#'
#'
#' |col_name |types |
#' |:-----------------|:---------|
#' |GROUP_SET |character |
#' |TEAM_ID |character |
#' |TEAM_ABBREVIATION |character |
#' |TEAM_NAME |character |
#' |VS_PLAYER_ID |character |
#' |VS_PLAYER_NAME |character |
#' |COURT_STATUS |character |
#' |GP |character |
#' |W |character |
#' |L |character |
#' |W_PCT |character |
#' |MIN |character |
#' |FGM |character |
#' |FGA |character |
#' |FG_PCT |character |
#' |FG3M |character |
#' |FG3A |character |
#' |FG3_PCT |character |
#' |FTM |character |
#' |FTA |character |
#' |FT_PCT |character |
#' |OREB |character |
#' |DREB |character |
#' |REB |character |
#' |AST |character |
#' |TOV |character |
#' |STL |character |
#' |BLK |character |
#' |BLKA |character |
#' |PF |character |
#' |PFD |character |
#' |PTS |character |
#' |PLUS_MINUS |character |
#' |GP_RANK |character |
#' |W_RANK |character |
#' |L_RANK |character |
#' |W_PCT_RANK |character |
#' |MIN_RANK |character |
#' |FGM_RANK |character |
#' |FGA_RANK |character |
#' |FG_PCT_RANK |character |
#' |FG3M_RANK |character |
#' |FG3A_RANK |character |
#' |FG3_PCT_RANK |character |
#' |FTM_RANK |character |
#' |FTA_RANK |character |
#' |FT_PCT_RANK |character |
#' |OREB_RANK |character |
#' |DREB_RANK |character |
#' |REB_RANK |character |
#' |AST_RANK |character |
#' |TOV_RANK |character |
#' |STL_RANK |character |
#' |BLK_RANK |character |
#' |BLKA_RANK |character |
#' |PF_RANK |character |
#' |PFD_RANK |character |
#' |PTS_RANK |character |
#' |PLUS_MINUS_RANK |character |
#'
#' @importFrom jsonlite fromJSON toJSON
#' @importFrom dplyr filter select rename bind_cols bind_rows as_tibble
#' @import rvest
#' @export
#' @family NBA League Functions
#' @family NBA Player Functions
#' @details
#' ```r
#' nba_leagueplayerondetails(team_id = '1610612749', season = year_to_season(most_recent_nba_season() - 1))
#' ```
nba_leagueplayerondetails <- function(
date_from = '',
date_to = '',
game_segment = '',
last_n_games = 0,
league_id = '00',
location = '',
measure_type = 'Base',
month = 0,
opponent_team_id = 0,
outcome = '',
pace_adjust = 'N',
per_mode = 'Totals',
period = 0,
plus_minus = 'N',
rank = 'N',
season = year_to_season(most_recent_nba_season() - 1),
season_segment = '',
season_type = 'Regular Season',
team_id = '1610612749',
vs_conference = '',
vs_division = '',
...){
# Intentional
# season_type <- gsub(' ', '+', season_type)
version <- "leagueplayerondetails"
endpoint <- nba_endpoint(version)
full_url <- endpoint
params <- list(
DateFrom = date_from,
DateTo = date_to,
GameSegment = game_segment,
LastNGames = last_n_games,
LeagueID = league_id,
Location = location,
MeasureType = measure_type,
Month = month,
OpponentTeamID = opponent_team_id,
Outcome = outcome,
PaceAdjust = pace_adjust,
PerMode = per_mode,
Period = period,
PlusMinus = plus_minus,
Rank = rank,
Season = season,
SeasonSegment = season_segment,
SeasonType = season_type,
TeamID = team_id,
VsConference = vs_conference,
VsDivision = vs_division
)
tryCatch(
expr = {
resp <- request_with_proxy(url = full_url, params = params, ...)
df_list <- nba_stats_map_result_sets(resp)
},
error = function(e) {
message(glue::glue("{Sys.time()}: Invalid arguments or no league player on/off details data for {season} available!"))
},
warning = function(w) {
},
finally = {
}
)
return(df_list)
}
#' **Get NBA Stats API League Season Matchups**
#' @name nba_leagueseasonmatchups
NULL
#' @title
#' **Get NBA Stats API League Season Matchups**
#' @rdname nba_leagueseasonmatchups
#' @author Saiem Gilani
#' @param def_player_id def_player_id
#' @param def_team_id def_team_id
#' @param league_id league_id
#' @param off_player_id off_player_id
#' @param off_team_id off_team_id
#' @param per_mode per_mode
#' @param season season
#' @param season_type season_type
#' @param ... Additional arguments passed to an underlying function like httr.
#' @return Returns a named list of data frames: SeasonMatchups
#'
#' **SeasonMatchups**
#'
#'
#' |col_name |types |
#' |:----------------|:---------|
#' |SEASON_ID |character |
#' |OFF_PLAYER_ID |character |
#' |OFF_PLAYER_NAME |character |
#' |DEF_PLAYER_ID |character |
#' |DEF_PLAYER_NAME |character |
#' |GP |character |
#' |MATCHUP_MIN |character |
#' |PARTIAL_POSS |character |
#' |PLAYER_PTS |character |
#' |TEAM_PTS |character |
#' |MATCHUP_AST |character |
#' |MATCHUP_TOV |character |
#' |MATCHUP_BLK |character |
#' |MATCHUP_FGM |character |
#' |MATCHUP_FGA |character |
#' |MATCHUP_FG_PCT |character |
#' |MATCHUP_FG3M |character |
#' |MATCHUP_FG3A |character |
#' |MATCHUP_FG3_PCT |character |
#' |HELP_BLK |character |
#' |HELP_FGM |character |
#' |HELP_FGA |character |
#' |HELP_FG_PERC |character |
#' |MATCHUP_FTM |character |
#' |MATCHUP_FTA |character |
#' |SFL |character |
#' |MATCHUP_TIME_SEC |character |
#'
#' @importFrom jsonlite fromJSON toJSON
#' @importFrom dplyr filter select rename bind_cols bind_rows as_tibble
#' @import rvest
#' @export
#' @family NBA League Functions
#' @family NBA Player Functions
#' @details
#' [Player Season Matchups](https://www.nba.com/stats/player/2544/head-to-head)
#' ```r
#' nba_leagueseasonmatchups(league_id = '00', season = year_to_season(most_recent_nba_season() - 1))
#' ```
nba_leagueseasonmatchups <- function(
def_player_id = '',
def_team_id = '',
league_id = '00',
off_player_id = '',
off_team_id = '',
per_mode = 'Totals',
season = year_to_season(most_recent_nba_season() - 1),
season_type = 'Regular Season',
...){
# Intentional
# season_type <- gsub(' ', '+', season_type)
version <- "leagueseasonmatchups"
endpoint <- nba_endpoint(version)
full_url <- endpoint
params <- list(
DefPlayerID = def_player_id,
DefTeamID = def_team_id,
LeagueID = league_id,
OffPlayerID = off_player_id,
OffTeamID = off_team_id,
PerMode = per_mode,
Season = season,
SeasonType = season_type
)
tryCatch(
expr = {
resp <- request_with_proxy(url = full_url, params = params, ...)
df_list <- nba_stats_map_result_sets(resp)
},
error = function(e) {
message(glue::glue("{Sys.time()}: Invalid arguments or no league season matchups data for {season} available!"))
},
warning = function(w) {
},
finally = {
}
)
return(df_list)
}
#' **Get NBA Stats API Matchups Rollup**
#' @name nba_matchupsrollup
NULL
#' @title
#' **Get NBA Stats API Matchups Rollup**
#' @rdname nba_matchupsrollup
#' @author Saiem Gilani
#' @param def_player_id def_player_id
#' @param def_team_id def_team_id
#' @param league_id league_id
#' @param off_player_id off_player_id
#' @param off_team_id off_team_id
#' @param per_mode per_mode
#' @param season season
#' @param season_type season_type
#' @param ... Additional arguments passed to an underlying function like httr.
#' @return Returns a named list of data frames: MatchupsRollup
#'
#' **MatchupsRollup**
#'
#'
#' |col_name |types |
#' |:---------------|:---------|
#' |SEASON_ID |character |
#' |POSITION |character |
#' |PERCENT_OF_TIME |character |
#' |DEF_PLAYER_ID |character |
#' |DEF_PLAYER_NAME |character |
#' |GP |character |
#' |MATCHUP_MIN |character |
#' |PARTIAL_POSS |character |
#' |PLAYER_PTS |character |
#' |TEAM_PTS |character |
#' |MATCHUP_AST |character |
#' |MATCHUP_TOV |character |
#' |MATCHUP_BLK |character |
#' |MATCHUP_FGM |character |
#' |MATCHUP_FGA |character |
#' |MATCHUP_FG_PCT |character |
#' |MATCHUP_FG3M |character |
#' |MATCHUP_FG3A |character |
#' |MATCHUP_FG3_PCT |character |
#' |MATCHUP_FTM |character |
#' |MATCHUP_FTA |character |
#' |SFL |character |
#'
#' @importFrom jsonlite fromJSON toJSON
#' @importFrom dplyr filter select rename bind_cols bind_rows as_tibble
#' @import rvest
#' @export
#' @family NBA League Functions
#' @family NBA Player Functions
#' @details
#' [Player Matchups Rollup](https://www.nba.com/stats/player/2544/by-position)
#' ```r
#' nba_matchupsrollup(league_id = '00', season = year_to_season(most_recent_nba_season() - 1))
#' ```
nba_matchupsrollup <- function(
def_player_id = '',
def_team_id = '',
league_id = '00',
off_player_id = '',
off_team_id = '',
per_mode = 'Totals',
season = year_to_season(most_recent_nba_season() - 1),
season_type = 'Regular Season',
...){
# Intentional
# season_type <- gsub(' ', '+', season_type)
version <- "matchupsrollup"
endpoint <- nba_endpoint(version)
full_url <- endpoint
params <- list(
DefPlayerID = def_player_id,
DefTeamID = def_team_id,
LeagueID = league_id,
OffPlayerID = off_player_id,
OffTeamID = off_team_id,
PerMode = per_mode,
Season = season,
SeasonType = season_type
)
tryCatch(
expr = {
resp <- request_with_proxy(url = full_url, params = params, ...)
df_list <- nba_stats_map_result_sets(resp)
},
error = function(e) {
message(glue::glue("{Sys.time()}: Invalid arguments or no matchups rollup data for {season} available!"))
},
warning = function(w) {
},
finally = {
}
)
return(df_list)
}
saiemgilani/kenpomR documentation built on Dec. 10, 2023, 3:34 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Defines functions nba_matchupsrollup nba_leagueseasonmatchups nba_leagueplayerondetails nba_leaguelineupviz nba_leaguedashlineups nba_fantasywidget
Documented in nba_fantasywidget nba_leaguedashlineups nba_leaguelineupviz nba_leagueplayerondetails nba_leagueseasonmatchups nba_matchupsrollup
#' **Get NBA Stats API Fantasy Widget**
#' @name nba_fantasywidget
NULL
#' @title
#' **Get NBA Stats API Fantasy Widget**
#' @rdname nba_fantasywidget
#' @author Saiem Gilani
#' @param active_players active_players
#' @param date_from date_from date_from
#' @param date_to date_to date_to
#' @param last_n_games last_n_games
#' @param league_id league_id
#' @param location location
#' @param month month
#' @param opponent_team_id opponent_team_id
#' @param po_round po_round
#' @param player_id player_id
#' @param position position
#' @param season season
#' @param season_segment season_segment
#' @param season_type season_type
#' @param team_id team_id
#' @param todays_opponent todays_opponent
#' @param todays_players todays_players
#' @param vs_conference vs_conference
#' @param vs_division vs_division
#' @param ... Additional arguments passed to an underlying function like httr.
#' @return Returns a named list of data frames: FantasyWidgetResult
#'
#' **FantasyWidgetResult**
#'
#'
#' |col_name |types |
#' |:-----------------|:---------|
#' |PLAYER_ID |character |
#' |PLAYER_NAME |character |
#' |PLAYER_POSITION |character |
#' |TEAM_ID |character |
#' |TEAM_ABBREVIATION |character |
#' |GP |character |
#' |MIN |character |
#' |FAN_DUEL_PTS |character |
#' |NBA_FANTASY_PTS |character |
#' |PTS |character |
#' |REB |character |
#' |AST |character |
#' |BLK |character |
#' |STL |character |
#' |TOV |character |
#' |FG3M |character |
#' |FGA |character |
#' |FG_PCT |character |
#' |FTA |character |
#' |FT_PCT |character |
#'
#' @importFrom jsonlite fromJSON toJSON
#' @importFrom dplyr filter select rename bind_cols bind_rows as_tibble
#' @import rvest
#' @export
#' @family NBA Fantasy Functions
#' @details
#' ```r
#' nba_fantasywidget(league_id = '00', season = year_to_season(most_recent_nba_season() - 1))
#' ```
nba_fantasywidget <- function(
active_players = 'N',
date_from = '',
date_to = '',
last_n_games = 0,
league_id = '00',
location = '',
month = '',
opponent_team_id = '',
po_round = '',
player_id = '',
position = '',
season = year_to_season(most_recent_nba_season() - 1),
season_segment = '',
season_type = 'Regular Season',
team_id = '',
todays_opponent = 0,
todays_players = 'N',
vs_conference = '',
vs_division = '',
...){
# Intentional
# season_type <- gsub(' ', '+', season_type)
version <- "fantasywidget"
endpoint <- nba_endpoint(version)
full_url <- endpoint
params <- list(
ActivePlayers = active_players,
DateFrom = date_from,
DateTo = date_to,
LastNGames = last_n_games,
LeagueID = league_id,
Location = location,
Month = month,
OpponentTeamID = opponent_team_id,
PORound = po_round,
PlayerID = player_id,
Position = position,
Season = season,
SeasonSegment = season_segment,
SeasonType = season_type,
TeamID = team_id,
TodaysOpponent = todays_opponent,
TodaysPlayers = todays_players,
VsConference = vs_conference,
VsDivision = vs_division
)
tryCatch(
expr = {
resp <- request_with_proxy(url = full_url, params = params, ...)
df_list <- nba_stats_map_result_sets(resp)
},
error = function(e) {
message(glue::glue("{Sys.time()}: Invalid arguments or no fantasy widget data for {season} available!"))
},
warning = function(w) {
},
finally = {
}
)
return(df_list)
}
#' **Get NBA Stats API League Dashboard Lineups**
#' @name nba_leaguedashlineups
NULL
#' @title
#' **Get NBA Stats API League Dashboard Lineups**
#' @rdname nba_leaguedashlineups
#' @author Saiem Gilani
#' @param conference conference
#' @param date_from date_from
#' @param date_to date_to
#' @param division division
#' @param game_segment game_segment
#' @param group_quantity group_quantity
#' @param last_n_games last_n_games
#' @param league_id league_id
#' @param location location
#' @param measure_type measure_type
#' @param month month
#' @param opponent_team_id opponent_team_id
#' @param outcome outcome
#' @param po_round po_round
#' @param pace_adjust pace_adjust
#' @param per_mode per_mode
#' @param period period
#' @param plus_minus plus_minus
#' @param rank rank
#' @param season season
#' @param season_segment season_segment
#' @param season_type season_type
#' @param shot_clock_range shot_clock_range
#' @param team_id team_id
#' @param vs_conference vs_conference
#' @param vs_division vs_division
#' @param ... Additional arguments passed to an underlying function like httr.
#' @return Returns a named list of data frames: Lineups
#'
#' **Lineups**
#'
#'
#' |col_name |types |
#' |:-----------------|:---------|
#' |GROUP_SET |character |
#' |GROUP_ID |character |
#' |GROUP_NAME |character |
#' |TEAM_ID |character |
#' |TEAM_ABBREVIATION |character |
#' |GP |character |
#' |W |character |
#' |L |character |
#' |W_PCT |character |
#' |MIN |character |
#' |FGM |character |
#' |FGA |character |
#' |FG_PCT |character |
#' |FG3M |character |
#' |FG3A |character |
#' |FG3_PCT |character |
#' |FTM |character |
#' |FTA |character |
#' |FT_PCT |character |
#' |OREB |character |
#' |DREB |character |
#' |REB |character |
#' |AST |character |
#' |TOV |character |
#' |STL |character |
#' |BLK |character |
#' |BLKA |character |
#' |PF |character |
#' |PFD |character |
#' |PTS |character |
#' |PLUS_MINUS |character |
#' |GP_RANK |character |
#' |W_RANK |character |
#' |L_RANK |character |
#' |W_PCT_RANK |character |
#' |MIN_RANK |character |
#' |FGM_RANK |character |
#' |FGA_RANK |character |
#' |FG_PCT_RANK |character |
#' |FG3M_RANK |character |
#' |FG3A_RANK |character |
#' |FG3_PCT_RANK |character |
#' |FTM_RANK |character |
#' |FTA_RANK |character |
#' |FT_PCT_RANK |character |
#' |OREB_RANK |character |
#' |DREB_RANK |character |
#' |REB_RANK |character |
#' |AST_RANK |character |
#' |TOV_RANK |character |
#' |STL_RANK |character |
#' |BLK_RANK |character |
#' |BLKA_RANK |character |
#' |PF_RANK |character |
#' |PFD_RANK |character |
#' |PTS_RANK |character |
#' |PLUS_MINUS_RANK |character |
#'
#' @importFrom jsonlite fromJSON toJSON
#' @importFrom dplyr filter select rename bind_cols bind_rows as_tibble
#' @import rvest
#' @export
#' @family NBA League Functions
#' @family NBA Lineup Functions
#' @details
#' [Lineups Dashboard](https://www.nba.com/stats/lineups/traditional)
#' ```r
#' nba_leaguedashlineups(league_id = '00', season = year_to_season(most_recent_nba_season() - 1))
#' ```
nba_leaguedashlineups <- function(
conference = '',
date_from = '',
date_to = '',
division = '',
game_segment = '',
group_quantity = 5,
last_n_games = 0,
league_id = '00',
location = '',
measure_type = 'Base',
month = 0,
opponent_team_id = 0,
outcome = '',
po_round = '',
pace_adjust = 'N',
per_mode = 'Totals',
period = 0,
plus_minus = 'N',
rank = 'N',
season = year_to_season(most_recent_nba_season() - 1),
season_segment = '',
season_type = 'Regular Season',
shot_clock_range = '',
team_id = '',
vs_conference = '',
vs_division = '',
...){
# Intentional
# season_type <- gsub(' ', '+', season_type)
version <- "leaguedashlineups"
endpoint <- nba_endpoint(version)
full_url <- endpoint
params <- list(
Conference = conference,
DateFrom = date_from,
DateTo = date_to,
Division = division,
GameSegment = game_segment,
GroupQuantity = group_quantity,
LastNGames = last_n_games,
LeagueID = league_id,
Location = location,
MeasureType = measure_type,
Month = month,
OpponentTeamID = opponent_team_id,
Outcome = outcome,
PORound = po_round,
PaceAdjust = pace_adjust,
PerMode = per_mode,
Period = period,
PlusMinus = plus_minus,
Rank = rank,
Season = season,
SeasonSegment = season_segment,
SeasonType = season_type,
ShotClockRange = shot_clock_range,
TeamID = team_id,
VsConference = vs_conference,
VsDivision = vs_division
)
tryCatch(
expr = {
resp <- request_with_proxy(url = full_url, params = params, ...)
df_list <- nba_stats_map_result_sets(resp)
},
error = function(e) {
message(glue::glue("{Sys.time()}: Invalid arguments or no league dashboard lineups data for {season} available!"))
},
warning = function(w) {
},
finally = {
}
)
return(df_list)
}
#' **Get NBA Stats API League Lineup Visual Data**
#' @name nba_leaguelineupviz
NULL
#' @title
#' **Get NBA Stats API League Lineup Visual Data**
#' @rdname nba_leaguelineupviz
#' @author Saiem Gilani
#' @param conference conference
#' @param date_from date_from
#' @param date_to date_to
#' @param division division
#' @param game_segment game_segment
#' @param group_quantity group_quantity
#' @param last_n_games last_n_games
#' @param league_id league_id
#' @param location location
#' @param measure_type measure_type
#' @param minutes_min minutes_min
#' @param month month
#' @param opponent_team_id opponent_team_id
#' @param outcome outcome
#' @param po_round po_round
#' @param pace_adjust pace_adjust
#' @param per_mode per_mode
#' @param period period
#' @param plus_minus plus_minus
#' @param rank rank
#' @param season season
#' @param season_segment season_segment
#' @param season_type season_type
#' @param shot_clock_range shot_clock_range
#' @param team_id team_id
#' @param vs_conference vs_conference
#' @param vs_division vs_division
#' @param ... Additional arguments passed to an underlying function like httr.
#' @return Returns a named list of data frames: LeagueLineupViz
#'
#' **LeagueLineupViz**
#'
#'
#' |col_name |types |
#' |:-----------------|:---------|
#' |GROUP_ID |character |
#' |GROUP_NAME |character |
#' |TEAM_ID |character |
#' |TEAM_ABBREVIATION |character |
#' |MIN |character |
#' |OFF_RATING |character |
#' |DEF_RATING |character |
#' |NET_RATING |character |
#' |PACE |character |
#' |TS_PCT |character |
#' |FTA_RATE |character |
#' |TM_AST_PCT |character |
#' |PCT_FGA_2PT |character |
#' |PCT_FGA_3PT |character |
#' |PCT_PTS_2PT_MR |character |
#' |PCT_PTS_FB |character |
#' |PCT_PTS_FT |character |
#' |PCT_PTS_PAINT |character |
#' |PCT_AST_FGM |character |
#' |PCT_UAST_FGM |character |
#' |OPP_FG3_PCT |character |
#' |OPP_EFG_PCT |character |
#' |OPP_FTA_RATE |character |
#' |OPP_TOV_PCT |character |
#'
#' @importFrom jsonlite fromJSON toJSON
#' @importFrom dplyr filter select rename bind_cols bind_rows as_tibble
#' @import rvest
#' @export
#' @family NBA League Functions
#' @family NBA Lineup Functions
#' @details
#' [Lineups Dashboard](https://www.nba.com/stats/lineups/traditional)
#' ```r
#' nba_leaguelineupviz(league_id = '00', season = year_to_season(most_recent_nba_season() - 1))
#' ```
nba_leaguelineupviz <- function(
conference = '',
date_from = '',
date_to = '',
division = '',
game_segment = '',
group_quantity = 5,
last_n_games = 0,
league_id = '00',
location = '',
measure_type = 'Base',
minutes_min = 10,
month = 0,
opponent_team_id = 0,
outcome = '',
po_round = '',
pace_adjust = 'N',
per_mode = 'Totals',
period = 0,
plus_minus = 'N',
rank = 'N',
season = year_to_season(most_recent_nba_season() - 1),
season_segment = '',
season_type = 'Regular Season',
shot_clock_range = '',
team_id = '',
vs_conference = '',
vs_division = '',
...){
# Intentional
# season_type <- gsub(' ', '+', season_type)
version <- "leaguelineupviz"
endpoint <- nba_endpoint(version)
full_url <- endpoint
params <- list(
Conference = conference,
DateFrom = date_from,
DateTo = date_to,
Division = division,
GameSegment = game_segment,
GroupQuantity = group_quantity,
LastNGames = last_n_games,
LeagueID = league_id,
Location = location,
MeasureType = measure_type,
MinutesMin = minutes_min,
Month = month,
OpponentTeamID = opponent_team_id,
Outcome = outcome,
PORound = po_round,
PaceAdjust = pace_adjust,
PerMode = per_mode,
Period = period,
PlusMinus = plus_minus,
Rank = rank,
Season = season,
SeasonSegment = season_segment,
SeasonType = season_type,
ShotClockRange = shot_clock_range,
TeamID = team_id,
VsConference = vs_conference,
VsDivision = vs_division
)
tryCatch(
expr = {
resp <- request_with_proxy(url = full_url, params = params, ...)
df_list <- nba_stats_map_result_sets(resp)
},
error = function(e) {
message(glue::glue("{Sys.time()}: Invalid arguments or no league lineup viz data for {season} available!"))
},
warning = function(w) {
},
finally = {
}
)
return(df_list)
}
#' **Get NBA Stats API League Player On/Off Details**
#' @name nba_leagueplayerondetails
NULL
#' @title
#' **Get NBA Stats API League Player On/Off Details**
#' @rdname nba_leagueplayerondetails
#' @author Saiem Gilani
#' @param date_from date_from
#' @param date_to date_to
#' @param game_segment game_segment
#' @param last_n_games last_n_games
#' @param league_id league_id
#' @param location location
#' @param measure_type measure_type
#' @param month month
#' @param opponent_team_id opponent_team_id
#' @param outcome outcome
#' @param pace_adjust pace_adjust
#' @param per_mode per_mode
#' @param period period
#' @param plus_minus plus_minus
#' @param rank rank
#' @param season season
#' @param season_segment season_segment
#' @param season_type season_type
#' @param team_id team_id
#' @param vs_conference vs_conference
#' @param vs_division vs_division
#' @param ... Additional arguments passed to an underlying function like httr.
#' @return Returns a named list of data frames: PlayersOnCourtLeaguePlayerDetails
#'
#' **PlayersOnCourtLeaguePlayerDetails**
#'
#'
#' |col_name |types |
#' |:-----------------|:---------|
#' |GROUP_SET |character |
#' |TEAM_ID |character |
#' |TEAM_ABBREVIATION |character |
#' |TEAM_NAME |character |
#' |VS_PLAYER_ID |character |
#' |VS_PLAYER_NAME |character |
#' |COURT_STATUS |character |
#' |GP |character |
#' |W |character |
#' |L |character |
#' |W_PCT |character |
#' |MIN |character |
#' |FGM |character |
#' |FGA |character |
#' |FG_PCT |character |
#' |FG3M |character |
#' |FG3A |character |
#' |FG3_PCT |character |
#' |FTM |character |
#' |FTA |character |
#' |FT_PCT |character |
#' |OREB |character |
#' |DREB |character |
#' |REB |character |
#' |AST |character |
#' |TOV |character |
#' |STL |character |
#' |BLK |character |
#' |BLKA |character |
#' |PF |character |
#' |PFD |character |
#' |PTS |character |
#' |PLUS_MINUS |character |
#' |GP_RANK |character |
#' |W_RANK |character |
#' |L_RANK |character |
#' |W_PCT_RANK |character |
#' |MIN_RANK |character |
#' |FGM_RANK |character |
#' |FGA_RANK |character |
#' |FG_PCT_RANK |character |
#' |FG3M_RANK |character |
#' |FG3A_RANK |character |
#' |FG3_PCT_RANK |character |
#' |FTM_RANK |character |
#' |FTA_RANK |character |
#' |FT_PCT_RANK |character |
#' |OREB_RANK |character |
#' |DREB_RANK |character |
#' |REB_RANK |character |
#' |AST_RANK |character |
#' |TOV_RANK |character |
#' |STL_RANK |character |
#' |BLK_RANK |character |
#' |BLKA_RANK |character |
#' |PF_RANK |character |
#' |PFD_RANK |character |
#' |PTS_RANK |character |
#' |PLUS_MINUS_RANK |character |
#'
#' @importFrom jsonlite fromJSON toJSON
#' @importFrom dplyr filter select rename bind_cols bind_rows as_tibble
#' @import rvest
#' @export
#' @family NBA League Functions
#' @family NBA Player Functions
#' @details
#' ```r
#' nba_leagueplayerondetails(team_id = '1610612749', season = year_to_season(most_recent_nba_season() - 1))
#' ```
nba_leagueplayerondetails <- function(
date_from = '',
date_to = '',
game_segment = '',
last_n_games = 0,
league_id = '00',
location = '',
measure_type = 'Base',
month = 0,
opponent_team_id = 0,
outcome = '',
pace_adjust = 'N',
per_mode = 'Totals',
period = 0,
plus_minus = 'N',
rank = 'N',
season = year_to_season(most_recent_nba_season() - 1),
season_segment = '',
season_type = 'Regular Season',
team_id = '1610612749',
vs_conference = '',
vs_division = '',
...){
# Intentional
# season_type <- gsub(' ', '+', season_type)
version <- "leagueplayerondetails"
endpoint <- nba_endpoint(version)
full_url <- endpoint
params <- list(
DateFrom = date_from,
DateTo = date_to,
GameSegment = game_segment,
LastNGames = last_n_games,
LeagueID = league_id,
Location = location,
MeasureType = measure_type,
Month = month,
OpponentTeamID = opponent_team_id,
Outcome = outcome,
PaceAdjust = pace_adjust,
PerMode = per_mode,
Period = period,
PlusMinus = plus_minus,
Rank = rank,
Season = season,
SeasonSegment = season_segment,
SeasonType = season_type,
TeamID = team_id,
VsConference = vs_conference,
VsDivision = vs_division
)
tryCatch(
expr = {
resp <- request_with_proxy(url = full_url, params = params, ...)
df_list <- nba_stats_map_result_sets(resp)
},
error = function(e) {
message(glue::glue("{Sys.time()}: Invalid arguments or no league player on/off details data for {season} available!"))
},
warning = function(w) {
},
finally = {
}
)
return(df_list)
}
#' **Get NBA Stats API League Season Matchups**
#' @name nba_leagueseasonmatchups
NULL
#' @title
#' **Get NBA Stats API League Season Matchups**
#' @rdname nba_leagueseasonmatchups
#' @author Saiem Gilani
#' @param def_player_id def_player_id
#' @param def_team_id def_team_id
#' @param league_id league_id
#' @param off_player_id off_player_id
#' @param off_team_id off_team_id
#' @param per_mode per_mode
#' @param season season
#' @param season_type season_type
#' @param ... Additional arguments passed to an underlying function like httr.
#' @return Returns a named list of data frames: SeasonMatchups
#'
#' **SeasonMatchups**
#'
#'
#' |col_name |types |
#' |:----------------|:---------|
#' |SEASON_ID |character |
#' |OFF_PLAYER_ID |character |
#' |OFF_PLAYER_NAME |character |
#' |DEF_PLAYER_ID |character |
#' |DEF_PLAYER_NAME |character |
#' |GP |character |
#' |MATCHUP_MIN |character |
#' |PARTIAL_POSS |character |
#' |PLAYER_PTS |character |
#' |TEAM_PTS |character |
#' |MATCHUP_AST |character |
#' |MATCHUP_TOV |character |
#' |MATCHUP_BLK |character |
#' |MATCHUP_FGM |character |
#' |MATCHUP_FGA |character |
#' |MATCHUP_FG_PCT |character |
#' |MATCHUP_FG3M |character |
#' |MATCHUP_FG3A |character |
#' |MATCHUP_FG3_PCT |character |
#' |HELP_BLK |character |
#' |HELP_FGM |character |
#' |HELP_FGA |character |
#' |HELP_FG_PERC |character |
#' |MATCHUP_FTM |character |
#' |MATCHUP_FTA |character |
#' |SFL |character |
#' |MATCHUP_TIME_SEC |character |
#'
#' @importFrom jsonlite fromJSON toJSON
#' @importFrom dplyr filter select rename bind_cols bind_rows as_tibble
#' @import rvest
#' @export
#' @family NBA League Functions
#' @family NBA Player Functions
#' @details
#' [Player Season Matchups](https://www.nba.com/stats/player/2544/head-to-head)
#' ```r
#' nba_leagueseasonmatchups(league_id = '00', season = year_to_season(most_recent_nba_season() - 1))
#' ```
nba_leagueseasonmatchups <- function(
def_player_id = '',
def_team_id = '',
league_id = '00',
off_player_id = '',
off_team_id = '',
per_mode = 'Totals',
season = year_to_season(most_recent_nba_season() - 1),
season_type = 'Regular Season',
...){
# Intentional
# season_type <- gsub(' ', '+', season_type)
version <- "leagueseasonmatchups"
endpoint <- nba_endpoint(version)
full_url <- endpoint
params <- list(
DefPlayerID = def_player_id,
DefTeamID = def_team_id,
LeagueID = league_id,
OffPlayerID = off_player_id,
OffTeamID = off_team_id,
PerMode = per_mode,
Season = season,
SeasonType = season_type
)
tryCatch(
expr = {
resp <- request_with_proxy(url = full_url, params = params, ...)
df_list <- nba_stats_map_result_sets(resp)
},
error = function(e) {
message(glue::glue("{Sys.time()}: Invalid arguments or no league season matchups data for {season} available!"))
},
warning = function(w) {
},
finally = {
}
)
return(df_list)
}
#' **Get NBA Stats API Matchups Rollup**
#' @name nba_matchupsrollup
NULL
#' @title
#' **Get NBA Stats API Matchups Rollup**
#' @rdname nba_matchupsrollup
#' @author Saiem Gilani
#' @param def_player_id def_player_id
#' @param def_team_id def_team_id
#' @param league_id league_id
#' @param off_player_id off_player_id
#' @param off_team_id off_team_id
#' @param per_mode per_mode
#' @param season season
#' @param season_type season_type
#' @param ... Additional arguments passed to an underlying function like httr.
#' @return Returns a named list of data frames: MatchupsRollup
#'
#' **MatchupsRollup**
#'
#'
#' |col_name |types |
#' |:---------------|:---------|
#' |SEASON_ID |character |
#' |POSITION |character |
#' |PERCENT_OF_TIME |character |
#' |DEF_PLAYER_ID |character |
#' |DEF_PLAYER_NAME |character |
#' |GP |character |
#' |MATCHUP_MIN |character |
#' |PARTIAL_POSS |character |
#' |PLAYER_PTS |character |
#' |TEAM_PTS |character |
#' |MATCHUP_AST |character |
#' |MATCHUP_TOV |character |
#' |MATCHUP_BLK |character |
#' |MATCHUP_FGM |character |
#' |MATCHUP_FGA |character |
#' |MATCHUP_FG_PCT |character |
#' |MATCHUP_FG3M |character |
#' |MATCHUP_FG3A |character |
#' |MATCHUP_FG3_PCT |character |
#' |MATCHUP_FTM |character |
#' |MATCHUP_FTA |character |
#' |SFL |character |
#'
#' @importFrom jsonlite fromJSON toJSON
#' @importFrom dplyr filter select rename bind_cols bind_rows as_tibble
#' @import rvest
#' @export
#' @family NBA League Functions
#' @family NBA Player Functions
#' @details
#' [Player Matchups Rollup](https://www.nba.com/stats/player/2544/by-position)
#' ```r
#' nba_matchupsrollup(league_id = '00', season = year_to_season(most_recent_nba_season() - 1))
#' ```
nba_matchupsrollup <- function(
def_player_id = '',
def_team_id = '',
league_id = '00',
off_player_id = '',
off_team_id = '',
per_mode = 'Totals',
season = year_to_season(most_recent_nba_season() - 1),
season_type = 'Regular Season',
...){
# Intentional
# season_type <- gsub(' ', '+', season_type)
version <- "matchupsrollup"
endpoint <- nba_endpoint(version)
full_url <- endpoint
params <- list(
DefPlayerID = def_player_id,
DefTeamID = def_team_id,
LeagueID = league_id,
OffPlayerID = off_player_id,
OffTeamID = off_team_id,
PerMode = per_mode,
Season = season,
SeasonType = season_type
)
tryCatch(
expr = {
resp <- request_with_proxy(url = full_url, params = params, ...)
df_list <- nba_stats_map_result_sets(resp)
},
error = function(e) {
message(glue::glue("{Sys.time()}: Invalid arguments or no matchups rollup data for {season} available!"))
},
warning = function(w) {
},
finally = {
}
)
return(df_list)
}
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.