R/statcast_dev.R

In keberwein/gameday_dev: Tools to Gather Data from Major League Baseball Advanced Media (MLBAM)

library(jsonlite)
library(dplyr)
library(purrr)
# url with some information about project in Andalussia
url <- 'http://statsapi.mlb.com/api/v1/game/529572/playByPlay.json'


gids <- mlbgameday::game_ids
games <- select(gids, game_pk)
games1 <- games[1:10,]

games1[1]

base <- 'http://statsapi.mlb.com/api/v1/game/'


urlz <- list()
for(i in seq_along(games1)){
    elem <- paste0(base, games1[[i]], "/playByPlay.json")
    urlz[[i]] <- elem
}
    
statcast <- data.frame()
start = Sys.time()

for(p in seq_along(urlz)){
    cont = jsonlite::fromJSON(url, flatten = T)
    allplays = cont$allPlays
    playevents <- purrr::map_dfr(seq_along(allplays$playEvents), function(x) {
        out <- data.frame(allplays$playEvents[[x]])
        out$result.type <- allplays$result.type[[x]]
        out$result.event <- allplays$result.event[[x]]
        out$result.eventType <- allplays$result.eventType[[x]]
        out$result.description <- allplays$result.description[[x]][[1]]
        out$result.rbi <- allplays$result.rbi[[x]]
        out$result.awayScore <- allplays$result.awayScore[[x]]
        out$result.homeScore <- allplays$result.homeScore[[x]]
        out$about.atBatIndex <- allplays$about.atBatIndex[[x]]
        out$about.halfInning <- allplays$about.halfInning[[x]]
        out$about.inning <- allplays$about.inning[[x]]
        out$about.startTime <- allplays$about.startTime[[x]]
        out$about.endTime <- allplays$about.endTime[[x]]
        out$about.isComplete <- allplays$about.isComplete[[x]]
        out$about.isScoringPlay <- allplays$about.isScoringPlay[[x]]
        out$about.hasReview <- allplays$about.hasReview[[x]]
        out$about.hasOut <- allplays$about.hasOut[[x]]
        out$about.captivatingIndex <- allplays$about.captivatingIndex[[x]]
        out$matchup.batterId <- allplays$matchup.batter.id[[x]]
        out$matchup.batterFullName <- allplays$matchup.batter.fullName[[x]]
        out$matchup.batSideCode <- allplays$matchup.batSide.code[[x]]
        out$matchup.batSideDes <- allplays$matchup.batSide.description[[x]]
        out$matchup.pitcherId <- allplays$matchup.pitcher.id[[x]]
        out$matchup.pitcherFullName <- allplays$matchup.pitcher.fullName[[x]]
        out$matchup.pitchHandCode <- allplays$matchup.pitchHand.code[[x]]
        out$matchup.pitchHandDes <- allplays$matchup.pitchHand.description[[x]]
        out
    })
    # Dont think this is working... Looks like it binding the same game 10 times.
    statcast <- bind_rows(statcast, playevents)
}

print(Sys.time()-start)




########Dplyr version takes twice as long for a single game. Keep this around and test it for multiple games.
for(p in seq_along(allplays)){
    #print(cont$allPlays$result.event)
    playevents <- purrr::map_dfr(seq_along(allplays$playEvents), function(x) {
        out <- data.frame(allplays$playEvents[[x]]) %>%
            dplyr::mutate(result.type = allplays$result.type[[x]], result.event = allplays$result.event[[x]],
                          result.eventType = allplays$result.eventType[[x]], result.description = allplays$result.description[[x]][[1]],
                          result.rbi = allplays$result.rbi[[x]], result.awayScore = allplays$result.awayScore[[x]], 
                          result.homeScore = allplays$result.homeScore[[x]], about.atBatIndex = allplays$about.atBatIndex[[x]],
                          about.halfInning  = allplays$about.halfInning[[x]], about.inning = allplays$about.inning[[x]],
                          about.startTime = allplays$about.startTime[[x]], about.endTime = allplays$about.endTime[[x]],
                          about.isComplete = allplays$about.isComplete[[x]], about.isScoringPlay = allplays$about.isScoringPlay[[x]],
                          about.hasReview = allplays$about.hasReview[[x]], about.hasOut = allplays$about.hasOut[[x]],
                          about.captivatingIndex = allplays$about.captivatingIndex[[x]], matchup.batterId = allplays$matchup.batter.id[[x]],
                          matchup.batterFullName = allplays$matchup.batter.fullName[[x]], matchup.batSideCode = allplays$matchup.batSide.code[[x]],
                          matchup.batSideDes = allplays$matchup.batSide.description[[x]], matchup.pitcherId = allplays$matchup.pitcher.id[[x]],
                          matchup.pitcherFullName  = allplays$matchup.pitcher.fullName[[x]], matchup.pitchHandCode = allplays$matchup.pitchHand.code[[x]],
                          matchup.pitchHandDes = allplays$matchup.pitchHand.description[[x]])
        out
    }) 
}


z = filter(playevents, !is.na(hitData.location))