R/nba_stats_boxscore.R
In saiemgilani/kenpomR: Access Men's Basketball Play by Play Data
Defines functions
nba_glalumboxscoresimilarityscore
nba_boxscoresimilarityscore
nba_hustlestatsboxscore
nba_boxscoreplayertrackv2
nba_boxscorematchups
nba_boxscoresummaryv2
nba_boxscoreusagev2
nba_boxscorescoringv2
nba_boxscoremiscv2
nba_boxscorefourfactorsv2
nba_boxscoredefensive
nba_boxscoreadvancedv2
nba_boxscoretraditionalv2
Documented in
nba_boxscoreadvancedv2
nba_boxscoredefensive
nba_boxscorefourfactorsv2
nba_boxscorematchups
nba_boxscoremiscv2
nba_boxscoreplayertrackv2
nba_boxscorescoringv2
nba_boxscoresimilarityscore
nba_boxscoresummaryv2
nba_boxscoretraditionalv2
nba_boxscoreusagev2
nba_glalumboxscoresimilarityscore
nba_hustlestatsboxscore
#' **Get NBA Stats API Boxscore Traditional V2**
#' @name nba_boxscoretraditionalv2
NULL
#' @title
#' **Get NBA Stats API Boxscore Traditional V2**
#' @rdname nba_boxscoretraditionalv2
#' @author Saiem Gilani
#' @param game_id Game ID
#' @param start_period start_period
#' @param end_period end_period
#' @param start_range start_range
#' @param end_range end_range
#' @param range_type range_type
#' @param ... Additional arguments passed to an underlying function like httr.
#' @return A list of data frames: PlayerStats, TeamStats, TeamStarterBenchStats
#'
#' **PlayerStats**
#'
#'
#' |col_name |types |
#' |:-----------------|:---------|
#' |GAME_ID |character |
#' |TEAM_ID |character |
#' |TEAM_ABBREVIATION |character |
#' |TEAM_CITY |character |
#' |PLAYER_ID |character |
#' |PLAYER_NAME |character |
#' |NICKNAME |character |
#' |START_POSITION |character |
#' |COMMENT |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 |
#' |STL |character |
#' |BLK |character |
#' |TO |character |
#' |PF |character |
#' |PTS |character |
#' |PLUS_MINUS |character |
#'
#' **TeamStats**
#'
#'
#' |col_name |types |
#' |:-----------------|:---------|
#' |GAME_ID |character |
#' |TEAM_ID |character |
#' |TEAM_NAME |character |
#' |TEAM_ABBREVIATION |character |
#' |TEAM_CITY |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 |
#' |STL |character |
#' |BLK |character |
#' |TO |character |
#' |PF |character |
#' |PTS |character |
#' |PLUS_MINUS |character |
#'
#' **TeamStarterBenchStats**
#'
#'
#' |col_name |types |
#' |:-----------------|:---------|
#' |GAME_ID |character |
#' |TEAM_ID |character |
#' |TEAM_NAME |character |
#' |TEAM_ABBREVIATION |character |
#' |TEAM_CITY |character |
#' |STARTERS_BENCH |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 |
#' |STL |character |
#' |BLK |character |
#' |TO |character |
#' |PF |character |
#' |PTS |character |
#'
#' @importFrom jsonlite fromJSON toJSON
#' @importFrom dplyr filter select rename bind_cols bind_rows as_tibble
#' @import rvest
#' @export
#' @family NBA Boxscore Functions
#' @details
#' ```r
#' nba_boxscoretraditionalv2(game_id = "0022200021")
#' ```
nba_boxscoretraditionalv2 <- function(
game_id,
start_period = 0,
end_period = 14,
start_range = 0,
end_range = 0,
range_type = 0,
...){
version <- "boxscoretraditionalv2"
endpoint <- nba_endpoint(version)
full_url <- endpoint
params <- list(
EndPeriod = end_period,
EndRange = end_range,
GameID = pad_id(game_id),
RangeType = range_type,
StartPeriod = start_period,
StartRange = start_range
)
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 traditional boxscore v2 data for {game_id} available!"))
},
warning = function(w) {
},
finally = {
}
)
return(df_list)
}
#' **Get NBA Stats API Boxscore Advanced V2**
#' @name nba_boxscoreadvancedv2
NULL
#' @title
#' **Get NBA Stats API Boxscore Advanced V2**
#' @rdname nba_boxscoreadvancedv2
#' @author Saiem Gilani
#' @param game_id Game ID
#' @param start_period start_period
#' @param end_period end_period
#' @param start_range start_range
#' @param end_range end_range
#' @param range_type range_type
#' @param ... Additional arguments passed to an underlying function like httr.
#' @return Returns a named list of data frames: PlayerStats, TeamStats
#'
#' PlayerStats
#'
#' |col_name |types |
#' |:-----------------|:---------|
#' |GAME_ID |character |
#' |TEAM_ID |character |
#' |TEAM_ABBREVIATION |character |
#' |TEAM_CITY |character |
#' |PLAYER_ID |character |
#' |PLAYER_NAME |character |
#' |NICKNAME |character |
#' |START_POSITION |character |
#' |COMMENT |character |
#' |MIN |character |
#' |E_OFF_RATING |character |
#' |OFF_RATING |character |
#' |E_DEF_RATING |character |
#' |DEF_RATING |character |
#' |E_NET_RATING |character |
#' |NET_RATING |character |
#' |AST_PCT |character |
#' |AST_TOV |character |
#' |AST_RATIO |character |
#' |OREB_PCT |character |
#' |DREB_PCT |character |
#' |REB_PCT |character |
#' |TM_TOV_PCT |character |
#' |EFG_PCT |character |
#' |TS_PCT |character |
#' |USG_PCT |character |
#' |E_USG_PCT |character |
#' |E_PACE |character |
#' |PACE |character |
#' |PACE_PER40 |character |
#' |POSS |character |
#' |PIE |character |
#'
#' TeamStats
#'
#' |col_name |types |
#' |:-----------------|:---------|
#' |GAME_ID |character |
#' |TEAM_ID |character |
#' |TEAM_NAME |character |
#' |TEAM_ABBREVIATION |character |
#' |TEAM_CITY |character |
#' |MIN |character |
#' |E_OFF_RATING |character |
#' |OFF_RATING |character |
#' |E_DEF_RATING |character |
#' |DEF_RATING |character |
#' |E_NET_RATING |character |
#' |NET_RATING |character |
#' |AST_PCT |character |
#' |AST_TOV |character |
#' |AST_RATIO |character |
#' |OREB_PCT |character |
#' |DREB_PCT |character |
#' |REB_PCT |character |
#' |E_TM_TOV_PCT |character |
#' |TM_TOV_PCT |character |
#' |EFG_PCT |character |
#' |TS_PCT |character |
#' |USG_PCT |character |
#' |E_USG_PCT |character |
#' |E_PACE |character |
#' |PACE |character |
#' |PACE_PER40 |character |
#' |POSS |character |
#' |PIE |character |
#'
#' @importFrom jsonlite fromJSON toJSON
#' @importFrom dplyr filter select rename bind_cols bind_rows as_tibble
#' @import rvest
#' @export
#' @family NBA Boxscore Functions
#' @details
#' ```r
#' nba_boxscoreadvancedv2(game_id = "0022200021")
#' ```
nba_boxscoreadvancedv2 <- function(
game_id,
start_period = 0,
end_period = 14,
start_range = 0,
end_range = 0,
range_type = 0,
...){
version <- "boxscoreadvancedv2"
endpoint <- nba_endpoint(version)
full_url <- endpoint
params <- list(
EndPeriod = end_period,
EndRange = end_range,
GameID = pad_id(game_id),
RangeType = range_type,
StartPeriod = start_period,
StartRange = start_range
)
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 advanced boxscore v2 data for {game_id} available!"))
},
warning = function(w) {
},
finally = {
}
)
return(df_list)
}
#' **Get NBA Stats API Boxscore Defensive**
#' @name nba_boxscoredefensive
NULL
#' @title
#' **Get NBA Stats API Boxscore Defensive**
#' @rdname nba_boxscoredefensive
#' @author Saiem Gilani
#' @param game_id Game ID
#' @param ... Additional arguments passed to an underlying function like httr.
#' @return Returns a named list of data frames: PlayerDefensiveStats, Table1
#' @importFrom jsonlite fromJSON toJSON
#' @importFrom dplyr filter select rename bind_cols bind_rows as_tibble
#' @import rvest
#' @export
#' @family NBA Boxscore Functions
#' @details
#' (Possibly Deprecated)
#' ```r
#' nba_boxscoredefensive(game_id = "0022200021")
#' ```
nba_boxscoredefensive <- function(
game_id,
...){
version <- "boxscoredefensive"
endpoint <- nba_endpoint(version)
full_url <- endpoint
params <- list(
GameID = pad_id(game_id)
)
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 defensive boxscore data for {game_id} available!"))
},
warning = function(w) {
},
finally = {
}
)
return(df_list)
}
#' **Get NBA Stats API Boxscore Four Factors V2**
#' @name nba_boxscorefourfactorsv2
NULL
#' @title
#' **Get NBA Stats API Boxscore Four Factors V2**
#' @rdname nba_boxscorefourfactorsv2
#' @author Saiem Gilani
#' @param game_id Game ID
#' @param start_period start_period
#' @param end_period end_period
#' @param start_range start_range
#' @param end_range end_range
#' @param range_type range_type
#' @param ... Additional arguments passed to an underlying function like httr.
#' @return Returns a named list of data frames: sqlPlayersFourFactors, sqlTeamFourFactors
#'
#' **sqlPlayersFourFactors**
#'
#'
#' |col_name |types |
#' |:-----------------|:---------|
#' |GAME_ID |character |
#' |TEAM_ID |character |
#' |TEAM_ABBREVIATION |character |
#' |TEAM_CITY |character |
#' |PLAYER_ID |character |
#' |PLAYER_NAME |character |
#' |NICKNAME |character |
#' |START_POSITION |character |
#' |COMMENT |character |
#' |MIN |character |
#' |EFG_PCT |character |
#' |FTA_RATE |character |
#' |TM_TOV_PCT |character |
#' |OREB_PCT |character |
#' |OPP_EFG_PCT |character |
#' |OPP_FTA_RATE |character |
#' |OPP_TOV_PCT |character |
#' |OPP_OREB_PCT |character |
#'
#' **sqlTeamsFourFactors**
#'
#'
#' |col_name |types |
#' |:-----------------|:---------|
#' |GAME_ID |character |
#' |TEAM_ID |character |
#' |TEAM_NAME |character |
#' |TEAM_ABBREVIATION |character |
#' |TEAM_CITY |character |
#' |MIN |character |
#' |EFG_PCT |character |
#' |FTA_RATE |character |
#' |TM_TOV_PCT |character |
#' |OREB_PCT |character |
#' |OPP_EFG_PCT |character |
#' |OPP_FTA_RATE |character |
#' |OPP_TOV_PCT |character |
#' |OPP_OREB_PCT |character |
#'
#' @importFrom jsonlite fromJSON toJSON
#' @importFrom dplyr filter select rename bind_cols bind_rows as_tibble
#' @import rvest
#' @export
#' @family NBA Boxscore Functions
#' @details
#' ```r
#' nba_boxscorefourfactorsv2(game_id = "0022200021")
#' ```
nba_boxscorefourfactorsv2 <- function(
game_id,
start_period = 0,
end_period = 14,
start_range = 0,
end_range = 0,
range_type = 0,
...){
version <- "boxscorefourfactorsv2"
endpoint <- nba_endpoint(version)
full_url <- endpoint
params <- list(
EndPeriod = end_period,
EndRange = end_range,
GameID = pad_id(game_id),
RangeType = range_type,
StartPeriod = start_period,
StartRange = start_range
)
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 four factors boxscore v2 data for {game_id} available!"))
},
warning = function(w) {
},
finally = {
}
)
return(df_list)
}
#' **Get NBA Stats API Boxscore Misc V2**
#' @name nba_boxscoremiscv2
NULL
#' @title
#' **Get NBA Stats API Boxscore Misc V2**
#' @rdname nba_boxscoremiscv2
#' @author Saiem Gilani
#' @param game_id Game ID
#' @param start_period start_period
#' @param end_period end_period
#' @param start_range start_range
#' @param end_range end_range
#' @param range_type range_type
#' @param ... Additional arguments passed to an underlying function like httr.
#' @return Returns a named list of data frames: sqlPlayersMisc, sqlTeamsMisc
#'
#' **sqlPlayersMisc**
#'
#'
#' |col_name |types |
#' |:------------------|:---------|
#' |GAME_ID |character |
#' |TEAM_ID |character |
#' |TEAM_ABBREVIATION |character |
#' |TEAM_CITY |character |
#' |PLAYER_ID |character |
#' |PLAYER_NAME |character |
#' |NICKNAME |character |
#' |START_POSITION |character |
#' |COMMENT |character |
#' |MIN |character |
#' |PTS_OFF_TOV |character |
#' |PTS_2ND_CHANCE |character |
#' |PTS_FB |character |
#' |PTS_PAINT |character |
#' |OPP_PTS_OFF_TOV |character |
#' |OPP_PTS_2ND_CHANCE |character |
#' |OPP_PTS_FB |character |
#' |OPP_PTS_PAINT |character |
#' |BLK |character |
#' |BLKA |character |
#' |PF |character |
#' |PFD |character |
#'
#' **sqlTeamsMisc**
#'
#'
#' |col_name |types |
#' |:------------------|:---------|
#' |GAME_ID |character |
#' |TEAM_ID |character |
#' |TEAM_NAME |character |
#' |TEAM_ABBREVIATION |character |
#' |TEAM_CITY |character |
#' |MIN |character |
#' |PTS_OFF_TOV |character |
#' |PTS_2ND_CHANCE |character |
#' |PTS_FB |character |
#' |PTS_PAINT |character |
#' |OPP_PTS_OFF_TOV |character |
#' |OPP_PTS_2ND_CHANCE |character |
#' |OPP_PTS_FB |character |
#' |OPP_PTS_PAINT |character |
#' |BLK |character |
#' |BLKA |character |
#' |PF |character |
#' |PFD |character |
#'
#' @importFrom jsonlite fromJSON toJSON
#' @importFrom dplyr filter select rename bind_cols bind_rows as_tibble
#' @import rvest
#' @export
#' @family NBA Boxscore Functions
#' @details
#' ```r
#' nba_boxscoremiscv2(game_id = "0022200021")
#' ```
nba_boxscoremiscv2 <- function(
game_id,
start_period = 0,
end_period = 14,
start_range = 0,
end_range = 0,
range_type = 0,
...){
version <- "boxscoremiscv2"
endpoint <- nba_endpoint(version)
full_url <- endpoint
params <- list(
EndPeriod = end_period,
EndRange = end_range,
GameID = pad_id(game_id),
RangeType = range_type,
StartPeriod = start_period,
StartRange = start_range
)
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 miscellaneous boxscore v2 data for {game_id} available!"))
},
warning = function(w) {
},
finally = {
}
)
return(df_list)
}
#' **Get NBA Stats API Boxscore Scoring V2**
#' @name nba_boxscorescoringv2
NULL
#' @title
#' **Get NBA Stats API Boxscore Scoring V2**
#' @rdname nba_boxscorescoringv2
#' @author Saiem Gilani
#' @param game_id Game ID
#' @param start_period start_period
#' @param end_period end_period
#' @param start_range start_range
#' @param end_range end_range
#' @param range_type range_type
#' @param ... Additional arguments passed to an underlying function like httr.
#' @return Returns a named list of data frames: sqlPlayersScoring, sqlTeamsScoring
#'
#' **sqlPlayersScoring**
#'
#'
#' |col_name |types |
#' |:-----------------|:---------|
#' |GAME_ID |character |
#' |TEAM_ID |character |
#' |TEAM_ABBREVIATION |character |
#' |TEAM_CITY |character |
#' |PLAYER_ID |character |
#' |PLAYER_NAME |character |
#' |NICKNAME |character |
#' |START_POSITION |character |
#' |COMMENT |character |
#' |MIN |character |
#' |PCT_FGA_2PT |character |
#' |PCT_FGA_3PT |character |
#' |PCT_PTS_2PT |character |
#' |PCT_PTS_2PT_MR |character |
#' |PCT_PTS_3PT |character |
#' |PCT_PTS_FB |character |
#' |PCT_PTS_FT |character |
#' |PCT_PTS_OFF_TOV |character |
#' |PCT_PTS_PAINT |character |
#' |PCT_AST_2PM |character |
#' |PCT_UAST_2PM |character |
#' |PCT_AST_3PM |character |
#' |PCT_UAST_3PM |character |
#' |PCT_AST_FGM |character |
#' |PCT_UAST_FGM |character |
#'
#' **sqlTeamsScoring**
#'
#'
#' |col_name |types |
#' |:-----------------|:---------|
#' |GAME_ID |character |
#' |TEAM_ID |character |
#' |TEAM_NAME |character |
#' |TEAM_ABBREVIATION |character |
#' |TEAM_CITY |character |
#' |MIN |character |
#' |PCT_FGA_2PT |character |
#' |PCT_FGA_3PT |character |
#' |PCT_PTS_2PT |character |
#' |PCT_PTS_2PT_MR |character |
#' |PCT_PTS_3PT |character |
#' |PCT_PTS_FB |character |
#' |PCT_PTS_FT |character |
#' |PCT_PTS_OFF_TOV |character |
#' |PCT_PTS_PAINT |character |
#' |PCT_AST_2PM |character |
#' |PCT_UAST_2PM |character |
#' |PCT_AST_3PM |character |
#' |PCT_UAST_3PM |character |
#' |PCT_AST_FGM |character |
#' |PCT_UAST_FGM |character |
#'
#' @importFrom jsonlite fromJSON toJSON
#' @importFrom dplyr filter select rename bind_cols bind_rows as_tibble
#' @import rvest
#' @export
#' @family NBA Boxscore Functions
#' @details
#' ```r
#' nba_boxscorescoringv2(game_id = "0022200021")
#' ```
nba_boxscorescoringv2 <- function(
game_id,
start_period = 0,
end_period = 14,
start_range = 0,
end_range = 0,
range_type = 0,
...){
version <- "boxscorescoringv2"
endpoint <- nba_endpoint(version)
full_url <- endpoint
params <- list(
EndPeriod = end_period,
EndRange = end_range,
GameID = pad_id(game_id),
RangeType = range_type,
StartPeriod = start_period,
StartRange = start_range
)
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 scoring boxscore v2 data for {game_id} available!"))
},
warning = function(w) {
},
finally = {
}
)
return(df_list)
}
#' **Get NBA Stats API Boxscore Usage V2**
#' @name nba_boxscoreusagev2
NULL
#' @title
#' **Get NBA Stats API Boxscore Usage V2**
#' @rdname nba_boxscoreusagev2
#' @author Saiem Gilani
#' @param game_id Game ID
#' @param start_period start_period
#' @param end_period end_period
#' @param start_range start_range
#' @param end_range end_range
#' @param range_type range_type
#' @param ... Additional arguments passed to an underlying function like httr.
#' @return Returns a named list of data frames: sqlPlayersUsage, sqlTeamsUsage
#'
#' **sqlPlayersUsage**
#'
#'
#' |col_name |types |
#' |:-----------------|:---------|
#' |GAME_ID |character |
#' |TEAM_ID |character |
#' |TEAM_ABBREVIATION |character |
#' |TEAM_CITY |character |
#' |PLAYER_ID |character |
#' |PLAYER_NAME |character |
#' |NICKNAME |character |
#' |START_POSITION |character |
#' |COMMENT |character |
#' |MIN |character |
#' |USG_PCT |character |
#' |PCT_FGM |character |
#' |PCT_FGA |character |
#' |PCT_FG3M |character |
#' |PCT_FG3A |character |
#' |PCT_FTM |character |
#' |PCT_FTA |character |
#' |PCT_OREB |character |
#' |PCT_DREB |character |
#' |PCT_REB |character |
#' |PCT_AST |character |
#' |PCT_TOV |character |
#' |PCT_STL |character |
#' |PCT_BLK |character |
#' |PCT_BLKA |character |
#' |PCT_PF |character |
#' |PCT_PFD |character |
#' |PCT_PTS |character |
#'
#' **sqlTeamsUsage**
#'
#'
#' |col_name |types |
#' |:-----------------|:---------|
#' |GAME_ID |character |
#' |TEAM_ID |character |
#' |TEAM_NAME |character |
#' |TEAM_ABBREVIATION |character |
#' |TEAM_CITY |character |
#' |MIN |character |
#' |USG_PCT |character |
#' |PCT_FGM |character |
#' |PCT_FGA |character |
#' |PCT_FG3M |character |
#' |PCT_FG3A |character |
#' |PCT_FTM |character |
#' |PCT_FTA |character |
#' |PCT_OREB |character |
#' |PCT_DREB |character |
#' |PCT_REB |character |
#' |PCT_AST |character |
#' |PCT_TOV |character |
#' |PCT_STL |character |
#' |PCT_BLK |character |
#' |PCT_BLKA |character |
#' |PCT_PF |character |
#' |PCT_PFD |character |
#' |PCT_PTS |character |
#'
#' @importFrom jsonlite fromJSON toJSON
#' @importFrom dplyr filter select rename bind_cols bind_rows as_tibble
#' @import rvest
#' @export
#' @family NBA Boxscore Functions
#' @details
#' ```r
#' nba_boxscoreusagev2(game_id = "0022200021")
#' ```
nba_boxscoreusagev2 <- function(
game_id,
start_period = 0,
end_period = 14,
start_range = 0,
end_range = 0,
range_type = 0,
...){
version <- "boxscoreusagev2"
endpoint <- nba_endpoint(version)
full_url <- endpoint
params <- list(
EndPeriod = end_period,
EndRange = end_range,
GameID = pad_id(game_id),
RangeType = range_type,
StartPeriod = start_period,
StartRange = start_range
)
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 usage boxscore v2 data for {game_id} available!"))
},
warning = function(w) {
},
finally = {
}
)
return(df_list)
}
#' **Get NBA Stats API Boxscore Summary V2**
#' @name nba_boxscoresummaryv2
NULL
#' @title
#' **Get NBA Stats API Boxscore Summary V2**
#' @rdname nba_boxscoresummaryv2
#' @author Saiem Gilani
#' @param game_id Game ID
#' @param ... Additional arguments passed to an underlying function like httr.
#' @return Returns a named list of data frames: AvailableVideo, GameInfo, GameSummary,
#' InactivePlayers, LastMeeting, LineScore, Officials, OtherStats, SeasonSeries
#'
#' **GameSummary**
#'
#'
#' |col_name |types |
#' |:--------------------------------|:---------|
#' |GAME_DATE_EST |character |
#' |GAME_SEQUENCE |character |
#' |GAME_ID |character |
#' |GAME_STATUS_ID |character |
#' |GAME_STATUS_TEXT |character |
#' |GAMECODE |character |
#' |HOME_TEAM_ID |character |
#' |VISITOR_TEAM_ID |character |
#' |SEASON |character |
#' |LIVE_PERIOD |character |
#' |LIVE_PC_TIME |character |
#' |NATL_TV_BROADCASTER_ABBREVIATION |character |
#' |LIVE_PERIOD_TIME_BCAST |character |
#' |WH_STATUS |character |
#'
#' **OtherStats**
#'
#'
#' |col_name |types |
#' |:-----------------|:---------|
#' |LEAGUE_ID |character |
#' |TEAM_ID |character |
#' |TEAM_ABBREVIATION |character |
#' |TEAM_CITY |character |
#' |PTS_PAINT |character |
#' |PTS_2ND_CHANCE |character |
#' |PTS_FB |character |
#' |LARGEST_LEAD |character |
#' |LEAD_CHANGES |character |
#' |TIMES_TIED |character |
#' |TEAM_TURNOVERS |character |
#' |TOTAL_TURNOVERS |character |
#' |TEAM_REBOUNDS |character |
#' |PTS_OFF_TO |character |
#'
#' **Officials**
#'
#'
#' |col_name |types |
#' |:-----------|:---------|
#' |OFFICIAL_ID |character |
#' |FIRST_NAME |character |
#' |LAST_NAME |character |
#' |JERSEY_NUM |character |
#'
#' **InactivePlayers**
#'
#'
#' |col_name |types |
#' |:-----------------|:---------|
#' |PLAYER_ID |character |
#' |FIRST_NAME |character |
#' |LAST_NAME |character |
#' |JERSEY_NUM |character |
#' |TEAM_ID |character |
#' |TEAM_CITY |character |
#' |TEAM_NAME |character |
#' |TEAM_ABBREVIATION |character |
#'
#' **GameInfo**
#'
#'
#' |col_name |types |
#' |:----------|:---------|
#' |GAME_DATE |character |
#' |ATTENDANCE |character |
#' |GAME_TIME |character |
#'
#' **LineScore**
#'
#'
#' |col_name |types |
#' |:-----------------|:---------|
#' |GAME_DATE_EST |character |
#' |GAME_SEQUENCE |character |
#' |GAME_ID |character |
#' |TEAM_ID |character |
#' |TEAM_ABBREVIATION |character |
#' |TEAM_CITY_NAME |character |
#' |TEAM_NICKNAME |character |
#' |TEAM_WINS_LOSSES |character |
#' |PTS_QTR1 |character |
#' |PTS_QTR2 |character |
#' |PTS_QTR3 |character |
#' |PTS_QTR4 |character |
#' |PTS_OT1 |character |
#' |PTS_OT2 |character |
#' |PTS_OT3 |character |
#' |PTS_OT4 |character |
#' |PTS_OT5 |character |
#' |PTS_OT6 |character |
#' |PTS_OT7 |character |
#' |PTS_OT8 |character |
#' |PTS_OT9 |character |
#' |PTS_OT10 |character |
#' |PTS |character |
#'
#' **LastMeeting**
#'
#'
#' |col_name |types |
#' |:--------------------------------|:---------|
#' |GAME_ID |character |
#' |LAST_GAME_ID |character |
#' |LAST_GAME_DATE_EST |character |
#' |LAST_GAME_HOME_TEAM_ID |character |
#' |LAST_GAME_HOME_TEAM_CITY |character |
#' |LAST_GAME_HOME_TEAM_NAME |character |
#' |LAST_GAME_HOME_TEAM_ABBREVIATION |character |
#' |LAST_GAME_HOME_TEAM_POINTS |character |
#' |LAST_GAME_VISITOR_TEAM_ID |character |
#' |LAST_GAME_VISITOR_TEAM_CITY |character |
#' |LAST_GAME_VISITOR_TEAM_NAME |character |
#' |LAST_GAME_VISITOR_TEAM_CITY1 |character |
#' |LAST_GAME_VISITOR_TEAM_POINTS |character |
#'
#' **SeasonSeries**
#'
#'
#' |col_name |types |
#' |:----------------|:---------|
#' |GAME_ID |character |
#' |HOME_TEAM_ID |character |
#' |VISITOR_TEAM_ID |character |
#' |GAME_DATE_EST |character |
#' |HOME_TEAM_WINS |character |
#' |HOME_TEAM_LOSSES |character |
#' |SERIES_LEADER |character |
#'
#' **AvailableVideo**
#'
#'
#' |col_name |types |
#' |:--------------------|:---------|
#' |GAME_ID |character |
#' |VIDEO_AVAILABLE_FLAG |character |
#' |PT_AVAILABLE |character |
#' |PT_XYZ_AVAILABLE |character |
#' |WH_STATUS |character |
#' |HUSTLE_STATUS |character |
#' |HISTORICAL_STATUS |character |
#'
#' @importFrom jsonlite fromJSON toJSON
#' @importFrom dplyr filter select rename bind_cols bind_rows as_tibble
#' @import rvest
#' @export
#' @family NBA Boxscore Functions
#' @details
#' ```r
#' nba_boxscoresummaryv2(game_id = "0022200021")
#' ```
nba_boxscoresummaryv2 <- function(
game_id,
...){
version <- "boxscoresummaryv2"
endpoint <- nba_endpoint(version)
full_url <- endpoint
params <- list(
GameID = pad_id(game_id)
)
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 summary boxscore v2 data for {game_id} available!"))
},
warning = function(w) {
},
finally = {
}
)
return(df_list)
}
#' **Get NBA Stats API Boxscore Matchups**
#' @name nba_boxscorematchups
NULL
#' @title
#' **Get NBA Stats API Boxscore Matchups**
#' @rdname nba_boxscorematchups
#' @author Saiem Gilani
#' @param game_id Game ID
#' @param ... Additional arguments passed to an underlying function like httr.
#' @return Returns a named list of data frames: PlayerMatchupsStats
#' @importFrom jsonlite fromJSON toJSON
#' @importFrom dplyr filter select rename bind_cols bind_rows as_tibble
#' @import rvest
#' @export
#' @family NBA Boxscore Functions
#' @details
#' (Possibly Deprecated)
#' ```r
#' nba_boxscorematchups(game_id = "0022200021")
#' ```
nba_boxscorematchups <- function(
game_id,
...){
endpoint <- nba_endpoint('boxscorematchups')
full_url <- endpoint
params <- list(
GameID = pad_id(game_id)
)
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 boxscore data for {game_id} available!"))
},
warning = function(w) {
},
finally = {
}
)
return(df_list)
}
#' **Get NBA Stats API Boxscore Player Tracking V2**
#' @name nba_boxscoreplayertrackv2
NULL
#' @title
#' **Get NBA Stats API Boxscore Player Tracking V2**
#' @rdname nba_boxscoreplayertrackv2
#' @author Saiem Gilani
#' @param game_id Game ID
#' @param ... Additional arguments passed to an underlying function like httr.
#' @return Returns a named list of data frames: PlayerStats, TeamStats
#'
#' **PlayerStats**
#'
#'
#' |col_name |types |
#' |:-----------------|:---------|
#' |GAME_ID |character |
#' |TEAM_ID |character |
#' |TEAM_ABBREVIATION |character |
#' |TEAM_CITY |character |
#' |PLAYER_ID |character |
#' |PLAYER_NAME |character |
#' |START_POSITION |character |
#' |COMMENT |character |
#' |MIN |character |
#' |SPD |character |
#' |DIST |character |
#' |ORBC |character |
#' |DRBC |character |
#' |RBC |character |
#' |TCHS |character |
#' |SAST |character |
#' |FTAST |character |
#' |PASS |character |
#' |AST |character |
#' |CFGM |character |
#' |CFGA |character |
#' |CFG_PCT |character |
#' |UFGM |character |
#' |UFGA |character |
#' |UFG_PCT |character |
#' |FG_PCT |character |
#' |DFGM |character |
#' |DFGA |character |
#' |DFG_PCT |character |
#'
#' **TeamStats**
#'
#'
#' |col_name |types |
#' |:-----------------|:---------|
#' |GAME_ID |character |
#' |TEAM_ID |character |
#' |TEAM_NAME |character |
#' |TEAM_ABBREVIATION |character |
#' |TEAM_CITY |character |
#' |MIN |character |
#' |DIST |character |
#' |ORBC |character |
#' |DRBC |character |
#' |RBC |character |
#' |TCHS |character |
#' |SAST |character |
#' |FTAST |character |
#' |PASS |character |
#' |AST |character |
#' |CFGM |character |
#' |CFGA |character |
#' |CFG_PCT |character |
#' |UFGM |character |
#' |UFGA |character |
#' |UFG_PCT |character |
#' |FG_PCT |character |
#' |DFGM |character |
#' |DFGA |character |
#' |DFG_PCT |character |
#'
#' @importFrom jsonlite fromJSON toJSON
#' @importFrom dplyr filter select rename bind_cols bind_rows as_tibble
#' @import rvest
#' @export
#' @family NBA Boxscore Functions
#' @family NBA Player Tracking Functions
#' @details
#' ```r
#' nba_boxscoreplayertrackv2(game_id = "0022200021")
#' ```
nba_boxscoreplayertrackv2 <- function(
game_id,
...){
version <- "boxscoreplayertrackv2"
endpoint <- nba_endpoint(version)
full_url <- endpoint
params <- list(
GameID = pad_id(game_id)
)
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 player tracking boxscore v2 data for {game_id} available!"))
},
warning = function(w) {
},
finally = {
}
)
return(df_list)
}
#' **Get NBA Stats API Hustle Stats Boxscore**
#' @name nba_hustlestatsboxscore
NULL
#' @title
#' **Get NBA Stats API Hustle Stats Boxscore**
#' @rdname nba_hustlestatsboxscore
#' @author Saiem Gilani
#' @param game_id Game ID
#' @param ... Additional arguments passed to an underlying function like httr.
#' @return Returns a named list of data frames: HustleStatsAvailable, PlayerStats, TeamStats
#'
#' **HustleStatsAvailable**
#'
#'
#' |col_name |types |
#' |:-------------|:---------|
#' |GAME_ID |character |
#' |HUSTLE_STATUS |character |
#'
#' **PlayerStats**
#'
#'
#' |col_name |types |
#' |:-------------------------|:---------|
#' |GAME_ID |character |
#' |TEAM_ID |character |
#' |TEAM_ABBREVIATION |character |
#' |TEAM_CITY |character |
#' |PLAYER_ID |character |
#' |PLAYER_NAME |character |
#' |START_POSITION |character |
#' |COMMENT |character |
#' |MINUTES |character |
#' |PTS |character |
#' |CONTESTED_SHOTS |character |
#' |CONTESTED_SHOTS_2PT |character |
#' |CONTESTED_SHOTS_3PT |character |
#' |DEFLECTIONS |character |
#' |CHARGES_DRAWN |character |
#' |SCREEN_ASSISTS |character |
#' |SCREEN_AST_PTS |character |
#' |OFF_LOOSE_BALLS_RECOVERED |character |
#' |DEF_LOOSE_BALLS_RECOVERED |character |
#' |LOOSE_BALLS_RECOVERED |character |
#' |OFF_BOXOUTS |character |
#' |DEF_BOXOUTS |character |
#' |BOX_OUT_PLAYER_TEAM_REBS |character |
#' |BOX_OUT_PLAYER_REBS |character |
#' |BOX_OUTS |character |
#'
#' **TeamStats**
#'
#'
#' |col_name |types |
#' |:-------------------------|:---------|
#' |GAME_ID |character |
#' |TEAM_ID |character |
#' |TEAM_NAME |character |
#' |TEAM_ABBREVIATION |character |
#' |TEAM_CITY |character |
#' |MINUTES |character |
#' |PTS |character |
#' |CONTESTED_SHOTS |character |
#' |CONTESTED_SHOTS_2PT |character |
#' |CONTESTED_SHOTS_3PT |character |
#' |DEFLECTIONS |character |
#' |CHARGES_DRAWN |character |
#' |SCREEN_ASSISTS |character |
#' |SCREEN_AST_PTS |character |
#' |OFF_LOOSE_BALLS_RECOVERED |character |
#' |DEF_LOOSE_BALLS_RECOVERED |character |
#' |LOOSE_BALLS_RECOVERED |character |
#' |OFF_BOXOUTS |character |
#' |DEF_BOXOUTS |character |
#' |BOX_OUT_PLAYER_TEAM_REBS |character |
#' |BOX_OUT_PLAYER_REBS |character |
#' |BOX_OUTS |character |
#'
#' @importFrom jsonlite fromJSON toJSON
#' @importFrom dplyr filter select rename bind_cols bind_rows as_tibble
#' @import rvest
#' @export
#' @family NBA Boxscore Functions
#' @family NBA Hustle Functions
#' @details
#' ```r
#' nba_hustlestatsboxscore(game_id = "0022200021")
#' ```
nba_hustlestatsboxscore <- function(
game_id,
...){
version <- "hustlestatsboxscore"
endpoint <- nba_endpoint(version)
full_url <- endpoint
params <- list(
GameID = pad_id(game_id)
)
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 hustle stats boxscore data for {game_id} available!"))
},
warning = function(w) {
},
finally = {
}
)
return(df_list)
}
#' **Get NBA Stats API Boxscore Similarity Score**
#' @name nba_boxscoresimilarityscore
NULL
#' @title
#' **Get NBA Stats API Boxscore Similarity Score**
#' @rdname nba_boxscoresimilarityscore
#' @author Saiem Gilani
#' @param person_1_id person_1_id
#' @param person_1_league_id person_1_league_id
#' @param person_1_season person_1_season
#' @param person_1_season_type person_1_season_type
#' @param person_2_id person_2_id
#' @param person_2_league_id person_2_league_id
#' @param person_2_season person_2_season
#' @param person_2_season_type person_2_season_type
#' @param ... Additional arguments passed to an underlying function like httr.
#' @return Returns a named list of data frames: BoxScoreSimilarityScores
#' @importFrom jsonlite fromJSON toJSON
#' @importFrom dplyr filter select rename bind_cols bind_rows as_tibble
#' @import rvest
#' @export
#' @family NBA Boxscore Similarity Functions
#' @details
#' (Possibly Deprecated)
#' ```r
#' z <- nba_commonallplayers()$CommonAllPlayers
#' klay <- z %>% dplyr::filter(DISPLAY_FIRST_LAST == 'Klay Thompson')
#' book <- z %>% dplyr::filter(DISPLAY_FIRST_LAST == 'Devin Booker')
#' nba_boxscoresimilarityscore(person_1_id = klay$PERSON_ID,
#' person_1_league_id = '00',
#' person_1_season = year_to_season(most_recent_nba_season() - 1),
#' person_1_season_type = 'Regular Season',
#' person_2_id = book$PERSON_ID,
#' person_2_league_id = '00',
#' person_2_season = year_to_season(most_recent_nba_season() - 1),
#' person_2_season_type = 'Regular Season'
#' )
#' ```
nba_boxscoresimilarityscore <- function(
person_1_id = '202691',
person_1_league_id = '00',
person_1_season = most_recent_nba_season() - 3,
person_1_season_type = 'Regular Season',
person_2_id = '1626164',
person_2_league_id = '00',
person_2_season = most_recent_nba_season() - 3,
person_2_season_type = 'Regular Season',
...){
person_1_season_type <- gsub(' ', '+', person_1_season_type)
person_2_season_type <- gsub(' ', '+', person_2_season_type)
version <- "boxscoresimilarityscore"
endpoint <- nba_endpoint(version)
full_url <- endpoint
params <- list(
Person1Id = person_1_id,
Person1LeagueId = person_1_league_id,
Person1Season = person_1_season,
Person1SeasonType = person_1_season_type,
Person2Id = person_2_id,
Person2LeagueId = person_2_league_id,
Person2Season = person_2_season,
Person2SeasonType = person_2_season_type
)
tryCatch(
expr = {
resp <- request_with_proxy(url = full_url, params = params, ...)
df_list <- purrr::map(1:length(resp$resultSet$name), function(x){
data <- resp$resultSet$rowSet %>%
data.frame(stringsAsFactors = F) %>%
dplyr::as_tibble()
json_names <- resp$resultSet$headers
colnames(data) <- json_names
return(data)
})
names(df_list) <- resp$resultSet$name
},
error = function(e) {
message(glue::glue("{Sys.time()}: Invalid arguments or no boxscore similarity data for given parameters available!"))
},
warning = function(w) {
},
finally = {
}
)
return(df_list)
}
#' **Get NBA Stats API G-League Alum Boxscore Similarity Score**
#' @name nba_glalumboxscoresimilarityscore
NULL
#' @title
#' **Get NBA Stats API G-League Alum Boxscore Similarity Score**
#' @rdname nba_glalumboxscoresimilarityscore
#' @author Saiem Gilani
#' @param person_1_id person_1_id
#' @param person_1_league_id person_1_league_id
#' @param person_1_season person_1_season
#' @param person_1_season_type person_1_season_type
#' @param person_2_id person_2_id
#' @param person_2_league_id person_2_league_id
#' @param person_2_season person_2_season
#' @param person_2_season_type person_2_season_type
#' @param ... Additional arguments passed to an underlying function like httr.
#' @return Returns a named list of data frames: GLeagueAlumBoxScoreSimilarityScores
#' @importFrom jsonlite fromJSON toJSON
#' @importFrom dplyr filter select rename bind_cols bind_rows as_tibble
#' @import rvest
#' @export
#' @family NBA Boxscore Similarity Functions
#' @details
#' (Possibly Deprecated)
nba_glalumboxscoresimilarityscore <- function(
person_1_id,
person_1_league_id,
person_1_season,
person_1_season_type,
person_2_id,
person_2_league_id,
person_2_season,
person_2_season_type,
...){
person_1_season_type <- gsub(' ', '+', person_1_season_type)
person_2_season_type <- gsub(' ', '+', person_2_season_type)
version <- "glalumboxscoresimilarityscore"
endpoint <- nba_endpoint(version)
full_url <- endpoint
params <- list(
Person1Id = person_1_id,
Person1LeagueId = person_1_league_id,
Person1Season = person_1_season,
Person1SeasonType = person_1_season_type,
Person2Id = person_2_id,
Person2LeagueId = person_2_league_id,
Person2Season = person_2_season,
Person2SeasonType = person_2_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 G-League alum boxscore similarity data for given parameters available!"))
},
warning = function(w) {
},
finally = {
}
)
return(df_list)
}
#
# nba_boxscore <- function(game_id, version = "boxscoretraditionalv2"){
#
# if(version=="all"){
# endpoint_list <- c("boxscoretraditionalv2","boxscoreadvancedv2",
# "boxscorescoringv2", "boxscoremiscv2",
# "boxscoreusagev2", "boxscorefourfactorsv2",
# "hustlestatsboxscore","boxscoreplayertrackv2",
# "winprobabilitypbp", "boxscoredefensive",
# "boxscorematchups")
# endpoint <- nba_boxscore(game_id=game_id,version=endpoint_list[i])
# } else {
# endpoint <- nba_endpoint(version)
# }
#
# full_url <- paste0(endpoint,
# "?EndPeriod=0",
# "&EndRange=0",
# "&GameID=",pad_id(game_id),
# "&RangeType=0",
# "&StartPeriod=0",
# "&StartRange=0")
# resp <- full_url %>%
# .nba_headers()
#
# data <-
# resp$resultSets$rowSet[[1]] %>%
# data.frame(stringsAsFactors = F) %>%
# as_tibble()
#
# json_names <-
# resp$resultSets$headers[[1]]
# colnames(data) <- json_names
# return(data)
# }
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_glalumboxscoresimilarityscore nba_boxscoresimilarityscore nba_hustlestatsboxscore nba_boxscoreplayertrackv2 nba_boxscorematchups nba_boxscoresummaryv2 nba_boxscoreusagev2 nba_boxscorescoringv2 nba_boxscoremiscv2 nba_boxscorefourfactorsv2 nba_boxscoredefensive nba_boxscoreadvancedv2 nba_boxscoretraditionalv2
Documented in nba_boxscoreadvancedv2 nba_boxscoredefensive nba_boxscorefourfactorsv2 nba_boxscorematchups nba_boxscoremiscv2 nba_boxscoreplayertrackv2 nba_boxscorescoringv2 nba_boxscoresimilarityscore nba_boxscoresummaryv2 nba_boxscoretraditionalv2 nba_boxscoreusagev2 nba_glalumboxscoresimilarityscore nba_hustlestatsboxscore
#' **Get NBA Stats API Boxscore Traditional V2**
#' @name nba_boxscoretraditionalv2
NULL
#' @title
#' **Get NBA Stats API Boxscore Traditional V2**
#' @rdname nba_boxscoretraditionalv2
#' @author Saiem Gilani
#' @param game_id Game ID
#' @param start_period start_period
#' @param end_period end_period
#' @param start_range start_range
#' @param end_range end_range
#' @param range_type range_type
#' @param ... Additional arguments passed to an underlying function like httr.
#' @return A list of data frames: PlayerStats, TeamStats, TeamStarterBenchStats
#'
#' **PlayerStats**
#'
#'
#' |col_name |types |
#' |:-----------------|:---------|
#' |GAME_ID |character |
#' |TEAM_ID |character |
#' |TEAM_ABBREVIATION |character |
#' |TEAM_CITY |character |
#' |PLAYER_ID |character |
#' |PLAYER_NAME |character |
#' |NICKNAME |character |
#' |START_POSITION |character |
#' |COMMENT |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 |
#' |STL |character |
#' |BLK |character |
#' |TO |character |
#' |PF |character |
#' |PTS |character |
#' |PLUS_MINUS |character |
#'
#' **TeamStats**
#'
#'
#' |col_name |types |
#' |:-----------------|:---------|
#' |GAME_ID |character |
#' |TEAM_ID |character |
#' |TEAM_NAME |character |
#' |TEAM_ABBREVIATION |character |
#' |TEAM_CITY |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 |
#' |STL |character |
#' |BLK |character |
#' |TO |character |
#' |PF |character |
#' |PTS |character |
#' |PLUS_MINUS |character |
#'
#' **TeamStarterBenchStats**
#'
#'
#' |col_name |types |
#' |:-----------------|:---------|
#' |GAME_ID |character |
#' |TEAM_ID |character |
#' |TEAM_NAME |character |
#' |TEAM_ABBREVIATION |character |
#' |TEAM_CITY |character |
#' |STARTERS_BENCH |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 |
#' |STL |character |
#' |BLK |character |
#' |TO |character |
#' |PF |character |
#' |PTS |character |
#'
#' @importFrom jsonlite fromJSON toJSON
#' @importFrom dplyr filter select rename bind_cols bind_rows as_tibble
#' @import rvest
#' @export
#' @family NBA Boxscore Functions
#' @details
#' ```r
#' nba_boxscoretraditionalv2(game_id = "0022200021")
#' ```
nba_boxscoretraditionalv2 <- function(
game_id,
start_period = 0,
end_period = 14,
start_range = 0,
end_range = 0,
range_type = 0,
...){
version <- "boxscoretraditionalv2"
endpoint <- nba_endpoint(version)
full_url <- endpoint
params <- list(
EndPeriod = end_period,
EndRange = end_range,
GameID = pad_id(game_id),
RangeType = range_type,
StartPeriod = start_period,
StartRange = start_range
)
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 traditional boxscore v2 data for {game_id} available!"))
},
warning = function(w) {
},
finally = {
}
)
return(df_list)
}
#' **Get NBA Stats API Boxscore Advanced V2**
#' @name nba_boxscoreadvancedv2
NULL
#' @title
#' **Get NBA Stats API Boxscore Advanced V2**
#' @rdname nba_boxscoreadvancedv2
#' @author Saiem Gilani
#' @param game_id Game ID
#' @param start_period start_period
#' @param end_period end_period
#' @param start_range start_range
#' @param end_range end_range
#' @param range_type range_type
#' @param ... Additional arguments passed to an underlying function like httr.
#' @return Returns a named list of data frames: PlayerStats, TeamStats
#'
#' PlayerStats
#'
#' |col_name |types |
#' |:-----------------|:---------|
#' |GAME_ID |character |
#' |TEAM_ID |character |
#' |TEAM_ABBREVIATION |character |
#' |TEAM_CITY |character |
#' |PLAYER_ID |character |
#' |PLAYER_NAME |character |
#' |NICKNAME |character |
#' |START_POSITION |character |
#' |COMMENT |character |
#' |MIN |character |
#' |E_OFF_RATING |character |
#' |OFF_RATING |character |
#' |E_DEF_RATING |character |
#' |DEF_RATING |character |
#' |E_NET_RATING |character |
#' |NET_RATING |character |
#' |AST_PCT |character |
#' |AST_TOV |character |
#' |AST_RATIO |character |
#' |OREB_PCT |character |
#' |DREB_PCT |character |
#' |REB_PCT |character |
#' |TM_TOV_PCT |character |
#' |EFG_PCT |character |
#' |TS_PCT |character |
#' |USG_PCT |character |
#' |E_USG_PCT |character |
#' |E_PACE |character |
#' |PACE |character |
#' |PACE_PER40 |character |
#' |POSS |character |
#' |PIE |character |
#'
#' TeamStats
#'
#' |col_name |types |
#' |:-----------------|:---------|
#' |GAME_ID |character |
#' |TEAM_ID |character |
#' |TEAM_NAME |character |
#' |TEAM_ABBREVIATION |character |
#' |TEAM_CITY |character |
#' |MIN |character |
#' |E_OFF_RATING |character |
#' |OFF_RATING |character |
#' |E_DEF_RATING |character |
#' |DEF_RATING |character |
#' |E_NET_RATING |character |
#' |NET_RATING |character |
#' |AST_PCT |character |
#' |AST_TOV |character |
#' |AST_RATIO |character |
#' |OREB_PCT |character |
#' |DREB_PCT |character |
#' |REB_PCT |character |
#' |E_TM_TOV_PCT |character |
#' |TM_TOV_PCT |character |
#' |EFG_PCT |character |
#' |TS_PCT |character |
#' |USG_PCT |character |
#' |E_USG_PCT |character |
#' |E_PACE |character |
#' |PACE |character |
#' |PACE_PER40 |character |
#' |POSS |character |
#' |PIE |character |
#'
#' @importFrom jsonlite fromJSON toJSON
#' @importFrom dplyr filter select rename bind_cols bind_rows as_tibble
#' @import rvest
#' @export
#' @family NBA Boxscore Functions
#' @details
#' ```r
#' nba_boxscoreadvancedv2(game_id = "0022200021")
#' ```
nba_boxscoreadvancedv2 <- function(
game_id,
start_period = 0,
end_period = 14,
start_range = 0,
end_range = 0,
range_type = 0,
...){
version <- "boxscoreadvancedv2"
endpoint <- nba_endpoint(version)
full_url <- endpoint
params <- list(
EndPeriod = end_period,
EndRange = end_range,
GameID = pad_id(game_id),
RangeType = range_type,
StartPeriod = start_period,
StartRange = start_range
)
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 advanced boxscore v2 data for {game_id} available!"))
},
warning = function(w) {
},
finally = {
}
)
return(df_list)
}
#' **Get NBA Stats API Boxscore Defensive**
#' @name nba_boxscoredefensive
NULL
#' @title
#' **Get NBA Stats API Boxscore Defensive**
#' @rdname nba_boxscoredefensive
#' @author Saiem Gilani
#' @param game_id Game ID
#' @param ... Additional arguments passed to an underlying function like httr.
#' @return Returns a named list of data frames: PlayerDefensiveStats, Table1
#' @importFrom jsonlite fromJSON toJSON
#' @importFrom dplyr filter select rename bind_cols bind_rows as_tibble
#' @import rvest
#' @export
#' @family NBA Boxscore Functions
#' @details
#' (Possibly Deprecated)
#' ```r
#' nba_boxscoredefensive(game_id = "0022200021")
#' ```
nba_boxscoredefensive <- function(
game_id,
...){
version <- "boxscoredefensive"
endpoint <- nba_endpoint(version)
full_url <- endpoint
params <- list(
GameID = pad_id(game_id)
)
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 defensive boxscore data for {game_id} available!"))
},
warning = function(w) {
},
finally = {
}
)
return(df_list)
}
#' **Get NBA Stats API Boxscore Four Factors V2**
#' @name nba_boxscorefourfactorsv2
NULL
#' @title
#' **Get NBA Stats API Boxscore Four Factors V2**
#' @rdname nba_boxscorefourfactorsv2
#' @author Saiem Gilani
#' @param game_id Game ID
#' @param start_period start_period
#' @param end_period end_period
#' @param start_range start_range
#' @param end_range end_range
#' @param range_type range_type
#' @param ... Additional arguments passed to an underlying function like httr.
#' @return Returns a named list of data frames: sqlPlayersFourFactors, sqlTeamFourFactors
#'
#' **sqlPlayersFourFactors**
#'
#'
#' |col_name |types |
#' |:-----------------|:---------|
#' |GAME_ID |character |
#' |TEAM_ID |character |
#' |TEAM_ABBREVIATION |character |
#' |TEAM_CITY |character |
#' |PLAYER_ID |character |
#' |PLAYER_NAME |character |
#' |NICKNAME |character |
#' |START_POSITION |character |
#' |COMMENT |character |
#' |MIN |character |
#' |EFG_PCT |character |
#' |FTA_RATE |character |
#' |TM_TOV_PCT |character |
#' |OREB_PCT |character |
#' |OPP_EFG_PCT |character |
#' |OPP_FTA_RATE |character |
#' |OPP_TOV_PCT |character |
#' |OPP_OREB_PCT |character |
#'
#' **sqlTeamsFourFactors**
#'
#'
#' |col_name |types |
#' |:-----------------|:---------|
#' |GAME_ID |character |
#' |TEAM_ID |character |
#' |TEAM_NAME |character |
#' |TEAM_ABBREVIATION |character |
#' |TEAM_CITY |character |
#' |MIN |character |
#' |EFG_PCT |character |
#' |FTA_RATE |character |
#' |TM_TOV_PCT |character |
#' |OREB_PCT |character |
#' |OPP_EFG_PCT |character |
#' |OPP_FTA_RATE |character |
#' |OPP_TOV_PCT |character |
#' |OPP_OREB_PCT |character |
#'
#' @importFrom jsonlite fromJSON toJSON
#' @importFrom dplyr filter select rename bind_cols bind_rows as_tibble
#' @import rvest
#' @export
#' @family NBA Boxscore Functions
#' @details
#' ```r
#' nba_boxscorefourfactorsv2(game_id = "0022200021")
#' ```
nba_boxscorefourfactorsv2 <- function(
game_id,
start_period = 0,
end_period = 14,
start_range = 0,
end_range = 0,
range_type = 0,
...){
version <- "boxscorefourfactorsv2"
endpoint <- nba_endpoint(version)
full_url <- endpoint
params <- list(
EndPeriod = end_period,
EndRange = end_range,
GameID = pad_id(game_id),
RangeType = range_type,
StartPeriod = start_period,
StartRange = start_range
)
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 four factors boxscore v2 data for {game_id} available!"))
},
warning = function(w) {
},
finally = {
}
)
return(df_list)
}
#' **Get NBA Stats API Boxscore Misc V2**
#' @name nba_boxscoremiscv2
NULL
#' @title
#' **Get NBA Stats API Boxscore Misc V2**
#' @rdname nba_boxscoremiscv2
#' @author Saiem Gilani
#' @param game_id Game ID
#' @param start_period start_period
#' @param end_period end_period
#' @param start_range start_range
#' @param end_range end_range
#' @param range_type range_type
#' @param ... Additional arguments passed to an underlying function like httr.
#' @return Returns a named list of data frames: sqlPlayersMisc, sqlTeamsMisc
#'
#' **sqlPlayersMisc**
#'
#'
#' |col_name |types |
#' |:------------------|:---------|
#' |GAME_ID |character |
#' |TEAM_ID |character |
#' |TEAM_ABBREVIATION |character |
#' |TEAM_CITY |character |
#' |PLAYER_ID |character |
#' |PLAYER_NAME |character |
#' |NICKNAME |character |
#' |START_POSITION |character |
#' |COMMENT |character |
#' |MIN |character |
#' |PTS_OFF_TOV |character |
#' |PTS_2ND_CHANCE |character |
#' |PTS_FB |character |
#' |PTS_PAINT |character |
#' |OPP_PTS_OFF_TOV |character |
#' |OPP_PTS_2ND_CHANCE |character |
#' |OPP_PTS_FB |character |
#' |OPP_PTS_PAINT |character |
#' |BLK |character |
#' |BLKA |character |
#' |PF |character |
#' |PFD |character |
#'
#' **sqlTeamsMisc**
#'
#'
#' |col_name |types |
#' |:------------------|:---------|
#' |GAME_ID |character |
#' |TEAM_ID |character |
#' |TEAM_NAME |character |
#' |TEAM_ABBREVIATION |character |
#' |TEAM_CITY |character |
#' |MIN |character |
#' |PTS_OFF_TOV |character |
#' |PTS_2ND_CHANCE |character |
#' |PTS_FB |character |
#' |PTS_PAINT |character |
#' |OPP_PTS_OFF_TOV |character |
#' |OPP_PTS_2ND_CHANCE |character |
#' |OPP_PTS_FB |character |
#' |OPP_PTS_PAINT |character |
#' |BLK |character |
#' |BLKA |character |
#' |PF |character |
#' |PFD |character |
#'
#' @importFrom jsonlite fromJSON toJSON
#' @importFrom dplyr filter select rename bind_cols bind_rows as_tibble
#' @import rvest
#' @export
#' @family NBA Boxscore Functions
#' @details
#' ```r
#' nba_boxscoremiscv2(game_id = "0022200021")
#' ```
nba_boxscoremiscv2 <- function(
game_id,
start_period = 0,
end_period = 14,
start_range = 0,
end_range = 0,
range_type = 0,
...){
version <- "boxscoremiscv2"
endpoint <- nba_endpoint(version)
full_url <- endpoint
params <- list(
EndPeriod = end_period,
EndRange = end_range,
GameID = pad_id(game_id),
RangeType = range_type,
StartPeriod = start_period,
StartRange = start_range
)
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 miscellaneous boxscore v2 data for {game_id} available!"))
},
warning = function(w) {
},
finally = {
}
)
return(df_list)
}
#' **Get NBA Stats API Boxscore Scoring V2**
#' @name nba_boxscorescoringv2
NULL
#' @title
#' **Get NBA Stats API Boxscore Scoring V2**
#' @rdname nba_boxscorescoringv2
#' @author Saiem Gilani
#' @param game_id Game ID
#' @param start_period start_period
#' @param end_period end_period
#' @param start_range start_range
#' @param end_range end_range
#' @param range_type range_type
#' @param ... Additional arguments passed to an underlying function like httr.
#' @return Returns a named list of data frames: sqlPlayersScoring, sqlTeamsScoring
#'
#' **sqlPlayersScoring**
#'
#'
#' |col_name |types |
#' |:-----------------|:---------|
#' |GAME_ID |character |
#' |TEAM_ID |character |
#' |TEAM_ABBREVIATION |character |
#' |TEAM_CITY |character |
#' |PLAYER_ID |character |
#' |PLAYER_NAME |character |
#' |NICKNAME |character |
#' |START_POSITION |character |
#' |COMMENT |character |
#' |MIN |character |
#' |PCT_FGA_2PT |character |
#' |PCT_FGA_3PT |character |
#' |PCT_PTS_2PT |character |
#' |PCT_PTS_2PT_MR |character |
#' |PCT_PTS_3PT |character |
#' |PCT_PTS_FB |character |
#' |PCT_PTS_FT |character |
#' |PCT_PTS_OFF_TOV |character |
#' |PCT_PTS_PAINT |character |
#' |PCT_AST_2PM |character |
#' |PCT_UAST_2PM |character |
#' |PCT_AST_3PM |character |
#' |PCT_UAST_3PM |character |
#' |PCT_AST_FGM |character |
#' |PCT_UAST_FGM |character |
#'
#' **sqlTeamsScoring**
#'
#'
#' |col_name |types |
#' |:-----------------|:---------|
#' |GAME_ID |character |
#' |TEAM_ID |character |
#' |TEAM_NAME |character |
#' |TEAM_ABBREVIATION |character |
#' |TEAM_CITY |character |
#' |MIN |character |
#' |PCT_FGA_2PT |character |
#' |PCT_FGA_3PT |character |
#' |PCT_PTS_2PT |character |
#' |PCT_PTS_2PT_MR |character |
#' |PCT_PTS_3PT |character |
#' |PCT_PTS_FB |character |
#' |PCT_PTS_FT |character |
#' |PCT_PTS_OFF_TOV |character |
#' |PCT_PTS_PAINT |character |
#' |PCT_AST_2PM |character |
#' |PCT_UAST_2PM |character |
#' |PCT_AST_3PM |character |
#' |PCT_UAST_3PM |character |
#' |PCT_AST_FGM |character |
#' |PCT_UAST_FGM |character |
#'
#' @importFrom jsonlite fromJSON toJSON
#' @importFrom dplyr filter select rename bind_cols bind_rows as_tibble
#' @import rvest
#' @export
#' @family NBA Boxscore Functions
#' @details
#' ```r
#' nba_boxscorescoringv2(game_id = "0022200021")
#' ```
nba_boxscorescoringv2 <- function(
game_id,
start_period = 0,
end_period = 14,
start_range = 0,
end_range = 0,
range_type = 0,
...){
version <- "boxscorescoringv2"
endpoint <- nba_endpoint(version)
full_url <- endpoint
params <- list(
EndPeriod = end_period,
EndRange = end_range,
GameID = pad_id(game_id),
RangeType = range_type,
StartPeriod = start_period,
StartRange = start_range
)
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 scoring boxscore v2 data for {game_id} available!"))
},
warning = function(w) {
},
finally = {
}
)
return(df_list)
}
#' **Get NBA Stats API Boxscore Usage V2**
#' @name nba_boxscoreusagev2
NULL
#' @title
#' **Get NBA Stats API Boxscore Usage V2**
#' @rdname nba_boxscoreusagev2
#' @author Saiem Gilani
#' @param game_id Game ID
#' @param start_period start_period
#' @param end_period end_period
#' @param start_range start_range
#' @param end_range end_range
#' @param range_type range_type
#' @param ... Additional arguments passed to an underlying function like httr.
#' @return Returns a named list of data frames: sqlPlayersUsage, sqlTeamsUsage
#'
#' **sqlPlayersUsage**
#'
#'
#' |col_name |types |
#' |:-----------------|:---------|
#' |GAME_ID |character |
#' |TEAM_ID |character |
#' |TEAM_ABBREVIATION |character |
#' |TEAM_CITY |character |
#' |PLAYER_ID |character |
#' |PLAYER_NAME |character |
#' |NICKNAME |character |
#' |START_POSITION |character |
#' |COMMENT |character |
#' |MIN |character |
#' |USG_PCT |character |
#' |PCT_FGM |character |
#' |PCT_FGA |character |
#' |PCT_FG3M |character |
#' |PCT_FG3A |character |
#' |PCT_FTM |character |
#' |PCT_FTA |character |
#' |PCT_OREB |character |
#' |PCT_DREB |character |
#' |PCT_REB |character |
#' |PCT_AST |character |
#' |PCT_TOV |character |
#' |PCT_STL |character |
#' |PCT_BLK |character |
#' |PCT_BLKA |character |
#' |PCT_PF |character |
#' |PCT_PFD |character |
#' |PCT_PTS |character |
#'
#' **sqlTeamsUsage**
#'
#'
#' |col_name |types |
#' |:-----------------|:---------|
#' |GAME_ID |character |
#' |TEAM_ID |character |
#' |TEAM_NAME |character |
#' |TEAM_ABBREVIATION |character |
#' |TEAM_CITY |character |
#' |MIN |character |
#' |USG_PCT |character |
#' |PCT_FGM |character |
#' |PCT_FGA |character |
#' |PCT_FG3M |character |
#' |PCT_FG3A |character |
#' |PCT_FTM |character |
#' |PCT_FTA |character |
#' |PCT_OREB |character |
#' |PCT_DREB |character |
#' |PCT_REB |character |
#' |PCT_AST |character |
#' |PCT_TOV |character |
#' |PCT_STL |character |
#' |PCT_BLK |character |
#' |PCT_BLKA |character |
#' |PCT_PF |character |
#' |PCT_PFD |character |
#' |PCT_PTS |character |
#'
#' @importFrom jsonlite fromJSON toJSON
#' @importFrom dplyr filter select rename bind_cols bind_rows as_tibble
#' @import rvest
#' @export
#' @family NBA Boxscore Functions
#' @details
#' ```r
#' nba_boxscoreusagev2(game_id = "0022200021")
#' ```
nba_boxscoreusagev2 <- function(
game_id,
start_period = 0,
end_period = 14,
start_range = 0,
end_range = 0,
range_type = 0,
...){
version <- "boxscoreusagev2"
endpoint <- nba_endpoint(version)
full_url <- endpoint
params <- list(
EndPeriod = end_period,
EndRange = end_range,
GameID = pad_id(game_id),
RangeType = range_type,
StartPeriod = start_period,
StartRange = start_range
)
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 usage boxscore v2 data for {game_id} available!"))
},
warning = function(w) {
},
finally = {
}
)
return(df_list)
}
#' **Get NBA Stats API Boxscore Summary V2**
#' @name nba_boxscoresummaryv2
NULL
#' @title
#' **Get NBA Stats API Boxscore Summary V2**
#' @rdname nba_boxscoresummaryv2
#' @author Saiem Gilani
#' @param game_id Game ID
#' @param ... Additional arguments passed to an underlying function like httr.
#' @return Returns a named list of data frames: AvailableVideo, GameInfo, GameSummary,
#' InactivePlayers, LastMeeting, LineScore, Officials, OtherStats, SeasonSeries
#'
#' **GameSummary**
#'
#'
#' |col_name |types |
#' |:--------------------------------|:---------|
#' |GAME_DATE_EST |character |
#' |GAME_SEQUENCE |character |
#' |GAME_ID |character |
#' |GAME_STATUS_ID |character |
#' |GAME_STATUS_TEXT |character |
#' |GAMECODE |character |
#' |HOME_TEAM_ID |character |
#' |VISITOR_TEAM_ID |character |
#' |SEASON |character |
#' |LIVE_PERIOD |character |
#' |LIVE_PC_TIME |character |
#' |NATL_TV_BROADCASTER_ABBREVIATION |character |
#' |LIVE_PERIOD_TIME_BCAST |character |
#' |WH_STATUS |character |
#'
#' **OtherStats**
#'
#'
#' |col_name |types |
#' |:-----------------|:---------|
#' |LEAGUE_ID |character |
#' |TEAM_ID |character |
#' |TEAM_ABBREVIATION |character |
#' |TEAM_CITY |character |
#' |PTS_PAINT |character |
#' |PTS_2ND_CHANCE |character |
#' |PTS_FB |character |
#' |LARGEST_LEAD |character |
#' |LEAD_CHANGES |character |
#' |TIMES_TIED |character |
#' |TEAM_TURNOVERS |character |
#' |TOTAL_TURNOVERS |character |
#' |TEAM_REBOUNDS |character |
#' |PTS_OFF_TO |character |
#'
#' **Officials**
#'
#'
#' |col_name |types |
#' |:-----------|:---------|
#' |OFFICIAL_ID |character |
#' |FIRST_NAME |character |
#' |LAST_NAME |character |
#' |JERSEY_NUM |character |
#'
#' **InactivePlayers**
#'
#'
#' |col_name |types |
#' |:-----------------|:---------|
#' |PLAYER_ID |character |
#' |FIRST_NAME |character |
#' |LAST_NAME |character |
#' |JERSEY_NUM |character |
#' |TEAM_ID |character |
#' |TEAM_CITY |character |
#' |TEAM_NAME |character |
#' |TEAM_ABBREVIATION |character |
#'
#' **GameInfo**
#'
#'
#' |col_name |types |
#' |:----------|:---------|
#' |GAME_DATE |character |
#' |ATTENDANCE |character |
#' |GAME_TIME |character |
#'
#' **LineScore**
#'
#'
#' |col_name |types |
#' |:-----------------|:---------|
#' |GAME_DATE_EST |character |
#' |GAME_SEQUENCE |character |
#' |GAME_ID |character |
#' |TEAM_ID |character |
#' |TEAM_ABBREVIATION |character |
#' |TEAM_CITY_NAME |character |
#' |TEAM_NICKNAME |character |
#' |TEAM_WINS_LOSSES |character |
#' |PTS_QTR1 |character |
#' |PTS_QTR2 |character |
#' |PTS_QTR3 |character |
#' |PTS_QTR4 |character |
#' |PTS_OT1 |character |
#' |PTS_OT2 |character |
#' |PTS_OT3 |character |
#' |PTS_OT4 |character |
#' |PTS_OT5 |character |
#' |PTS_OT6 |character |
#' |PTS_OT7 |character |
#' |PTS_OT8 |character |
#' |PTS_OT9 |character |
#' |PTS_OT10 |character |
#' |PTS |character |
#'
#' **LastMeeting**
#'
#'
#' |col_name |types |
#' |:--------------------------------|:---------|
#' |GAME_ID |character |
#' |LAST_GAME_ID |character |
#' |LAST_GAME_DATE_EST |character |
#' |LAST_GAME_HOME_TEAM_ID |character |
#' |LAST_GAME_HOME_TEAM_CITY |character |
#' |LAST_GAME_HOME_TEAM_NAME |character |
#' |LAST_GAME_HOME_TEAM_ABBREVIATION |character |
#' |LAST_GAME_HOME_TEAM_POINTS |character |
#' |LAST_GAME_VISITOR_TEAM_ID |character |
#' |LAST_GAME_VISITOR_TEAM_CITY |character |
#' |LAST_GAME_VISITOR_TEAM_NAME |character |
#' |LAST_GAME_VISITOR_TEAM_CITY1 |character |
#' |LAST_GAME_VISITOR_TEAM_POINTS |character |
#'
#' **SeasonSeries**
#'
#'
#' |col_name |types |
#' |:----------------|:---------|
#' |GAME_ID |character |
#' |HOME_TEAM_ID |character |
#' |VISITOR_TEAM_ID |character |
#' |GAME_DATE_EST |character |
#' |HOME_TEAM_WINS |character |
#' |HOME_TEAM_LOSSES |character |
#' |SERIES_LEADER |character |
#'
#' **AvailableVideo**
#'
#'
#' |col_name |types |
#' |:--------------------|:---------|
#' |GAME_ID |character |
#' |VIDEO_AVAILABLE_FLAG |character |
#' |PT_AVAILABLE |character |
#' |PT_XYZ_AVAILABLE |character |
#' |WH_STATUS |character |
#' |HUSTLE_STATUS |character |
#' |HISTORICAL_STATUS |character |
#'
#' @importFrom jsonlite fromJSON toJSON
#' @importFrom dplyr filter select rename bind_cols bind_rows as_tibble
#' @import rvest
#' @export
#' @family NBA Boxscore Functions
#' @details
#' ```r
#' nba_boxscoresummaryv2(game_id = "0022200021")
#' ```
nba_boxscoresummaryv2 <- function(
game_id,
...){
version <- "boxscoresummaryv2"
endpoint <- nba_endpoint(version)
full_url <- endpoint
params <- list(
GameID = pad_id(game_id)
)
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 summary boxscore v2 data for {game_id} available!"))
},
warning = function(w) {
},
finally = {
}
)
return(df_list)
}
#' **Get NBA Stats API Boxscore Matchups**
#' @name nba_boxscorematchups
NULL
#' @title
#' **Get NBA Stats API Boxscore Matchups**
#' @rdname nba_boxscorematchups
#' @author Saiem Gilani
#' @param game_id Game ID
#' @param ... Additional arguments passed to an underlying function like httr.
#' @return Returns a named list of data frames: PlayerMatchupsStats
#' @importFrom jsonlite fromJSON toJSON
#' @importFrom dplyr filter select rename bind_cols bind_rows as_tibble
#' @import rvest
#' @export
#' @family NBA Boxscore Functions
#' @details
#' (Possibly Deprecated)
#' ```r
#' nba_boxscorematchups(game_id = "0022200021")
#' ```
nba_boxscorematchups <- function(
game_id,
...){
endpoint <- nba_endpoint('boxscorematchups')
full_url <- endpoint
params <- list(
GameID = pad_id(game_id)
)
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 boxscore data for {game_id} available!"))
},
warning = function(w) {
},
finally = {
}
)
return(df_list)
}
#' **Get NBA Stats API Boxscore Player Tracking V2**
#' @name nba_boxscoreplayertrackv2
NULL
#' @title
#' **Get NBA Stats API Boxscore Player Tracking V2**
#' @rdname nba_boxscoreplayertrackv2
#' @author Saiem Gilani
#' @param game_id Game ID
#' @param ... Additional arguments passed to an underlying function like httr.
#' @return Returns a named list of data frames: PlayerStats, TeamStats
#'
#' **PlayerStats**
#'
#'
#' |col_name |types |
#' |:-----------------|:---------|
#' |GAME_ID |character |
#' |TEAM_ID |character |
#' |TEAM_ABBREVIATION |character |
#' |TEAM_CITY |character |
#' |PLAYER_ID |character |
#' |PLAYER_NAME |character |
#' |START_POSITION |character |
#' |COMMENT |character |
#' |MIN |character |
#' |SPD |character |
#' |DIST |character |
#' |ORBC |character |
#' |DRBC |character |
#' |RBC |character |
#' |TCHS |character |
#' |SAST |character |
#' |FTAST |character |
#' |PASS |character |
#' |AST |character |
#' |CFGM |character |
#' |CFGA |character |
#' |CFG_PCT |character |
#' |UFGM |character |
#' |UFGA |character |
#' |UFG_PCT |character |
#' |FG_PCT |character |
#' |DFGM |character |
#' |DFGA |character |
#' |DFG_PCT |character |
#'
#' **TeamStats**
#'
#'
#' |col_name |types |
#' |:-----------------|:---------|
#' |GAME_ID |character |
#' |TEAM_ID |character |
#' |TEAM_NAME |character |
#' |TEAM_ABBREVIATION |character |
#' |TEAM_CITY |character |
#' |MIN |character |
#' |DIST |character |
#' |ORBC |character |
#' |DRBC |character |
#' |RBC |character |
#' |TCHS |character |
#' |SAST |character |
#' |FTAST |character |
#' |PASS |character |
#' |AST |character |
#' |CFGM |character |
#' |CFGA |character |
#' |CFG_PCT |character |
#' |UFGM |character |
#' |UFGA |character |
#' |UFG_PCT |character |
#' |FG_PCT |character |
#' |DFGM |character |
#' |DFGA |character |
#' |DFG_PCT |character |
#'
#' @importFrom jsonlite fromJSON toJSON
#' @importFrom dplyr filter select rename bind_cols bind_rows as_tibble
#' @import rvest
#' @export
#' @family NBA Boxscore Functions
#' @family NBA Player Tracking Functions
#' @details
#' ```r
#' nba_boxscoreplayertrackv2(game_id = "0022200021")
#' ```
nba_boxscoreplayertrackv2 <- function(
game_id,
...){
version <- "boxscoreplayertrackv2"
endpoint <- nba_endpoint(version)
full_url <- endpoint
params <- list(
GameID = pad_id(game_id)
)
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 player tracking boxscore v2 data for {game_id} available!"))
},
warning = function(w) {
},
finally = {
}
)
return(df_list)
}
#' **Get NBA Stats API Hustle Stats Boxscore**
#' @name nba_hustlestatsboxscore
NULL
#' @title
#' **Get NBA Stats API Hustle Stats Boxscore**
#' @rdname nba_hustlestatsboxscore
#' @author Saiem Gilani
#' @param game_id Game ID
#' @param ... Additional arguments passed to an underlying function like httr.
#' @return Returns a named list of data frames: HustleStatsAvailable, PlayerStats, TeamStats
#'
#' **HustleStatsAvailable**
#'
#'
#' |col_name |types |
#' |:-------------|:---------|
#' |GAME_ID |character |
#' |HUSTLE_STATUS |character |
#'
#' **PlayerStats**
#'
#'
#' |col_name |types |
#' |:-------------------------|:---------|
#' |GAME_ID |character |
#' |TEAM_ID |character |
#' |TEAM_ABBREVIATION |character |
#' |TEAM_CITY |character |
#' |PLAYER_ID |character |
#' |PLAYER_NAME |character |
#' |START_POSITION |character |
#' |COMMENT |character |
#' |MINUTES |character |
#' |PTS |character |
#' |CONTESTED_SHOTS |character |
#' |CONTESTED_SHOTS_2PT |character |
#' |CONTESTED_SHOTS_3PT |character |
#' |DEFLECTIONS |character |
#' |CHARGES_DRAWN |character |
#' |SCREEN_ASSISTS |character |
#' |SCREEN_AST_PTS |character |
#' |OFF_LOOSE_BALLS_RECOVERED |character |
#' |DEF_LOOSE_BALLS_RECOVERED |character |
#' |LOOSE_BALLS_RECOVERED |character |
#' |OFF_BOXOUTS |character |
#' |DEF_BOXOUTS |character |
#' |BOX_OUT_PLAYER_TEAM_REBS |character |
#' |BOX_OUT_PLAYER_REBS |character |
#' |BOX_OUTS |character |
#'
#' **TeamStats**
#'
#'
#' |col_name |types |
#' |:-------------------------|:---------|
#' |GAME_ID |character |
#' |TEAM_ID |character |
#' |TEAM_NAME |character |
#' |TEAM_ABBREVIATION |character |
#' |TEAM_CITY |character |
#' |MINUTES |character |
#' |PTS |character |
#' |CONTESTED_SHOTS |character |
#' |CONTESTED_SHOTS_2PT |character |
#' |CONTESTED_SHOTS_3PT |character |
#' |DEFLECTIONS |character |
#' |CHARGES_DRAWN |character |
#' |SCREEN_ASSISTS |character |
#' |SCREEN_AST_PTS |character |
#' |OFF_LOOSE_BALLS_RECOVERED |character |
#' |DEF_LOOSE_BALLS_RECOVERED |character |
#' |LOOSE_BALLS_RECOVERED |character |
#' |OFF_BOXOUTS |character |
#' |DEF_BOXOUTS |character |
#' |BOX_OUT_PLAYER_TEAM_REBS |character |
#' |BOX_OUT_PLAYER_REBS |character |
#' |BOX_OUTS |character |
#'
#' @importFrom jsonlite fromJSON toJSON
#' @importFrom dplyr filter select rename bind_cols bind_rows as_tibble
#' @import rvest
#' @export
#' @family NBA Boxscore Functions
#' @family NBA Hustle Functions
#' @details
#' ```r
#' nba_hustlestatsboxscore(game_id = "0022200021")
#' ```
nba_hustlestatsboxscore <- function(
game_id,
...){
version <- "hustlestatsboxscore"
endpoint <- nba_endpoint(version)
full_url <- endpoint
params <- list(
GameID = pad_id(game_id)
)
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 hustle stats boxscore data for {game_id} available!"))
},
warning = function(w) {
},
finally = {
}
)
return(df_list)
}
#' **Get NBA Stats API Boxscore Similarity Score**
#' @name nba_boxscoresimilarityscore
NULL
#' @title
#' **Get NBA Stats API Boxscore Similarity Score**
#' @rdname nba_boxscoresimilarityscore
#' @author Saiem Gilani
#' @param person_1_id person_1_id
#' @param person_1_league_id person_1_league_id
#' @param person_1_season person_1_season
#' @param person_1_season_type person_1_season_type
#' @param person_2_id person_2_id
#' @param person_2_league_id person_2_league_id
#' @param person_2_season person_2_season
#' @param person_2_season_type person_2_season_type
#' @param ... Additional arguments passed to an underlying function like httr.
#' @return Returns a named list of data frames: BoxScoreSimilarityScores
#' @importFrom jsonlite fromJSON toJSON
#' @importFrom dplyr filter select rename bind_cols bind_rows as_tibble
#' @import rvest
#' @export
#' @family NBA Boxscore Similarity Functions
#' @details
#' (Possibly Deprecated)
#' ```r
#' z <- nba_commonallplayers()$CommonAllPlayers
#' klay <- z %>% dplyr::filter(DISPLAY_FIRST_LAST == 'Klay Thompson')
#' book <- z %>% dplyr::filter(DISPLAY_FIRST_LAST == 'Devin Booker')
#' nba_boxscoresimilarityscore(person_1_id = klay$PERSON_ID,
#' person_1_league_id = '00',
#' person_1_season = year_to_season(most_recent_nba_season() - 1),
#' person_1_season_type = 'Regular Season',
#' person_2_id = book$PERSON_ID,
#' person_2_league_id = '00',
#' person_2_season = year_to_season(most_recent_nba_season() - 1),
#' person_2_season_type = 'Regular Season'
#' )
#' ```
nba_boxscoresimilarityscore <- function(
person_1_id = '202691',
person_1_league_id = '00',
person_1_season = most_recent_nba_season() - 3,
person_1_season_type = 'Regular Season',
person_2_id = '1626164',
person_2_league_id = '00',
person_2_season = most_recent_nba_season() - 3,
person_2_season_type = 'Regular Season',
...){
person_1_season_type <- gsub(' ', '+', person_1_season_type)
person_2_season_type <- gsub(' ', '+', person_2_season_type)
version <- "boxscoresimilarityscore"
endpoint <- nba_endpoint(version)
full_url <- endpoint
params <- list(
Person1Id = person_1_id,
Person1LeagueId = person_1_league_id,
Person1Season = person_1_season,
Person1SeasonType = person_1_season_type,
Person2Id = person_2_id,
Person2LeagueId = person_2_league_id,
Person2Season = person_2_season,
Person2SeasonType = person_2_season_type
)
tryCatch(
expr = {
resp <- request_with_proxy(url = full_url, params = params, ...)
df_list <- purrr::map(1:length(resp$resultSet$name), function(x){
data <- resp$resultSet$rowSet %>%
data.frame(stringsAsFactors = F) %>%
dplyr::as_tibble()
json_names <- resp$resultSet$headers
colnames(data) <- json_names
return(data)
})
names(df_list) <- resp$resultSet$name
},
error = function(e) {
message(glue::glue("{Sys.time()}: Invalid arguments or no boxscore similarity data for given parameters available!"))
},
warning = function(w) {
},
finally = {
}
)
return(df_list)
}
#' **Get NBA Stats API G-League Alum Boxscore Similarity Score**
#' @name nba_glalumboxscoresimilarityscore
NULL
#' @title
#' **Get NBA Stats API G-League Alum Boxscore Similarity Score**
#' @rdname nba_glalumboxscoresimilarityscore
#' @author Saiem Gilani
#' @param person_1_id person_1_id
#' @param person_1_league_id person_1_league_id
#' @param person_1_season person_1_season
#' @param person_1_season_type person_1_season_type
#' @param person_2_id person_2_id
#' @param person_2_league_id person_2_league_id
#' @param person_2_season person_2_season
#' @param person_2_season_type person_2_season_type
#' @param ... Additional arguments passed to an underlying function like httr.
#' @return Returns a named list of data frames: GLeagueAlumBoxScoreSimilarityScores
#' @importFrom jsonlite fromJSON toJSON
#' @importFrom dplyr filter select rename bind_cols bind_rows as_tibble
#' @import rvest
#' @export
#' @family NBA Boxscore Similarity Functions
#' @details
#' (Possibly Deprecated)
nba_glalumboxscoresimilarityscore <- function(
person_1_id,
person_1_league_id,
person_1_season,
person_1_season_type,
person_2_id,
person_2_league_id,
person_2_season,
person_2_season_type,
...){
person_1_season_type <- gsub(' ', '+', person_1_season_type)
person_2_season_type <- gsub(' ', '+', person_2_season_type)
version <- "glalumboxscoresimilarityscore"
endpoint <- nba_endpoint(version)
full_url <- endpoint
params <- list(
Person1Id = person_1_id,
Person1LeagueId = person_1_league_id,
Person1Season = person_1_season,
Person1SeasonType = person_1_season_type,
Person2Id = person_2_id,
Person2LeagueId = person_2_league_id,
Person2Season = person_2_season,
Person2SeasonType = person_2_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 G-League alum boxscore similarity data for given parameters available!"))
},
warning = function(w) {
},
finally = {
}
)
return(df_list)
}
#
# nba_boxscore <- function(game_id, version = "boxscoretraditionalv2"){
#
# if(version=="all"){
# endpoint_list <- c("boxscoretraditionalv2","boxscoreadvancedv2",
# "boxscorescoringv2", "boxscoremiscv2",
# "boxscoreusagev2", "boxscorefourfactorsv2",
# "hustlestatsboxscore","boxscoreplayertrackv2",
# "winprobabilitypbp", "boxscoredefensive",
# "boxscorematchups")
# endpoint <- nba_boxscore(game_id=game_id,version=endpoint_list[i])
# } else {
# endpoint <- nba_endpoint(version)
# }
#
# full_url <- paste0(endpoint,
# "?EndPeriod=0",
# "&EndRange=0",
# "&GameID=",pad_id(game_id),
# "&RangeType=0",
# "&StartPeriod=0",
# "&StartRange=0")
# resp <- full_url %>%
# .nba_headers()
#
# data <-
# resp$resultSets$rowSet[[1]] %>%
# data.frame(stringsAsFactors = F) %>%
# as_tibble()
#
# json_names <-
# resp$resultSets$headers[[1]]
# colnames(data) <- json_names
# return(data)
# }
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.