NBAr

Version 2.1.2 update:

solving wrong conversions from double to int for per, pie, ast_tov, ast_ratio, _freq, frequency, pct, spd, dist, _rating columns (hope I havent missed anything)
printing error messages instead of returning NULLs
fix for get_schedule and get_playbyplay2 as they stopped returning data (api change)
built on R version 4.0.4

Version 2.1.1

Fixed problem with wide open shots in shooting dashboard
Added dont_run to examples as it took long time to check build :)
Built finally on version 4.0.2

Coming up next:

better try_catch messages for all functions, not just lazy Null returning
automated_test scripts

Version 2.0!

Hey, welcome back after long break! I decided to face the horror of reviewing my old code and make some large refresh of the package. List of changes:

NBA API now requires non-empty referrer header to provide data, so going from readr::read_lines to httr::GET was very much needed. This discovery was made by Pawel Kapuscinski
95% of dependent functions is based on tidyverse packages
functions_and_argument_names_are_finally_in_snake_case !!!
Followed best practices about package dependencies (no requires!)
Added verbose argument to every function to print out the url
Provided proper data types changes to columns and arguments (no more dreary "2017")
game_id is now integer and doesn't require 00 before proper id
get_hustle is old get_hustle_boxscore (I find boxscores much easier to use)
playtypes and tracking are now working flawlessly due to referral trick

Overview

How to track NBA data in R

Download data from NBA.com API

General

If you are NBA, R and data analytics junkie, this is a package for you! Might be not the most useful tool nor the most exciting, but NBAr contains set of wrapper functions for downloading and simple processing of data from http://stats.nba.com API.

Make your NBA analysis faster and more automated by downloading data straight to your machine !

Installation

if (!require("devtools"))
  install.packages("devtools")
devtools::install_github("PatrickChodowski/NBAr")

Functions

Functions below allow you do easily download data about games, players, teams, statistics and advanced measures from NBA.com. You will find boxscores, play-by-play, shotchart, schedule, player Bios, Sport-VU tracking data, playtypes and much much more!

get_all_tracking
get_boxscore
get_defense
get_general
get_hustle
get_lineups
get_matchups
get_news
get_on_off
get_playbyplay
get_playbyplay2
get_player_movement
get_playerbio
get_players
get_playtype
get_rotowire_status
get_schedule
get_shooting
get_shooting_dashboard
get_shotchart
get_team_boxscore
get_tracking

Example


library(NBAr)
library(tidyverse)
#devtools::install_github("PatrickChodowski/NBAr")

season <- 2018
gamelist<- c(21800001:21800003)
game_id = 21800001

#########################
### Boxscores:
#########################

 traditional <- map(gamelist, ~get_boxscore(.,boxscore_type = 'traditional')) %>% compact() %>%  bind_rows()

#########################
### Matchups 
#########################

 matchup <- get_matchups(game_id)

#########################
### Play by play:
#########################

 pbp2 <- map(gamelist, ~get_playbyplay2(.)) %>% compact() %>%  bind_rows()

#########################
### Lineups:
#########################

 lineups <- get_lineups(season,5,'Base')
 bulls_lineups <- get_lineups(season,5,'Base', team_id = 1610612741)

#########################
### On/Off court:
#########################

 onoff_bulls <- get_on_off(season,1610612741)

#########################
### Players list
#########################

 players <- get_players(season)
 player_bio <- get_playerbio(season)

  

#########################
### Shotcharts
#########################

 shots_abrines <- get_shotchart(203518, season)

#########################
### Schedule
#########################

 schedule <- get_schedule(season)


#########################
### Tracking data
#########################

  tracking = get_tracking(season, 'Team', measure_type = 'Defense')


#########################
### Playtype data
#########################

  playtype <- get_playtype(season, 'T',  'Postup')


#########################
### Defense data
#########################

  defense <- get_defense(season, 'Team', 'Overall')

#########################
### General data
#########################

  general <- get_general(season, type = 'Team', 'Base')


#########################
### Hustle data
#########################

  hustle <- get_hustle(21800001)

#########################
### Shooting data
#########################

  shooting <- get_shooting(season, 'Team', "By+Zone", "Base")

PatrickChodowski / NBAr