Retrieve NBA teams using Stattleship API

nba_team_retrieval.R

## install and load the stattleshipR package
devtools::install_github("stattleship/stattleship-r")  
library(stattleshipR)

## get API token at playbook.stattleship.com
## set API token
set_token('YOUR_ACCESS_TOKEN')

## set up envt
options(stringsAsFactors=FALSE)

## set params
league <- "nba"  
sport <- "basketball"  
ep <- "teams"

## leave empty for all teams
## set season_id
q_body <- list(season_id="nba-2015-2016")

## get the data
teams <- ss_get_result(sport=sport, league=league, ep=ep, query=q_body, version=1, verbose=TRUE, walk=TRUE)

## bind the data together
tms <- lapply(teams, function(x) x$teams)  
nba_teams <- do.call('rbind', tms)