rajshah4 / nba_sportvu Goto Github PK

Contributors

Stargazers

Forkers

rouseguy mdbconsulting martijnde bradjtilley limingdeng guopupaul erhan-cene riders994 jasonjjchen yoranl ldc8wrui yankev mikejacktzen meterpao justinzhang416 tdy bahitoss armindoguerra mc79hockey kenrichmatt jmiao18 salrue skinman26 sf585978 nemochina2008 trademark152 codeabhious will512 pauldevos nliced noutland novaxlong fagan2888 syedfa mcleblanc711 karimi-ali simontron01 daniel-turner tommolittle

get_pbp <- function(gameid){
  #Grabs the play by play data from the NBA site
  URL1 <- paste("http://stats.nba.com/stats/playbyplayv2?EndPeriod=10&EndRange=55800&GameID=",gameid,"&RangeType=2&StartPeriod=1&StartRange=0",sep = "")
  the.data.file<-fromJSON(URL1)
  test <-the.data.file$resultSets$rowSet
  test2 <- test[[1]]
  test3 <- data.frame(test2)
  coltest <- the.data.file$resultSets$headers
  colnames(test3) <- coltest[[1]]
  return (test3)}

get_pbp <- function(gameid){
  #Grabs the play by play data from the NBA site
  URL1 <- paste("http://stats.nba.com/stats/playbyplayv2?EndPeriod=10&EndRange=55800&GameID=",gameid,"&RangeType=2&StartPeriod=1&StartRange=0",sep = "")
  curl_download(URL1, "nba.json")
  the.data.file<-fromJSON("nba.json")
  test <-the.data.file$resultSets$rowSet
  test2 <- test[[1]]
  test3 <- data.frame(test2)
  coltest <- the.data.file$resultSets$headers
  colnames(test3) <- coltest[[1]]
  return (test3)
  }