tests/testthat/test-mlb_pbp_diff.R

In baseballr: Acquiring and Analyzing Baseball Data

cols <- c(
 "game_pk",
 "game_date",
 "index",
 "startTime",
 "endTime",
 "isPitch",
 "type",
 "playId",
 "pitchNumber",
 "details.description",
 "details.event",
 "details.awayScore",
 "details.homeScore",
 "details.isScoringPlay",
 "details.hasReview",
 "details.code",
 "details.ballColor",
 "details.isInPlay",
 "details.isStrike",
 "details.isBall",
 "details.call.code",
 "details.call.description",
 "count.balls.start",
 "count.strikes.start",
 "count.outs.start",
 "player.id",
 "player.link",
 "pitchData.strikeZoneTop",
 "pitchData.strikeZoneBottom",
 "details.fromCatcher",
 "pitchData.coordinates.x",
 "pitchData.coordinates.y",
 "hitData.trajectory",
 "hitData.hardness",
 "hitData.location",
 "hitData.coordinates.coordX",
 "hitData.coordinates.coordY",
 "actionPlayId",
 "details.eventType",
 "details.runnerGoing",
 "position.code",
 "position.name",
 "position.type",
 "position.abbreviation",
 "battingOrder",
 "atBatIndex",
 "result.type",
 "result.event",
 "result.eventType",
 "result.description",
 "result.rbi",
 "result.awayScore",
 "result.homeScore",
 "about.atBatIndex",
 "about.halfInning",
 "about.inning",
 "about.startTime",
 "about.endTime",
 "about.isComplete",
 "about.isScoringPlay",
 "about.hasReview",
 "about.hasOut",
 "about.captivatingIndex",
 "count.balls.end",
 "count.strikes.end",
 "count.outs.end",
 "matchup.batter.id",
 "matchup.batter.fullName",
 "matchup.batter.link",
 "matchup.batSide.code",
 "matchup.batSide.description",
 "matchup.pitcher.id",
 "matchup.pitcher.fullName",
 "matchup.pitcher.link",
 "matchup.pitchHand.code",
 "matchup.pitchHand.description",
 "matchup.splits.batter",
 "matchup.splits.pitcher",
 "matchup.splits.menOnBase",
 "batted.ball.result",
 "home_team",
 "home_level_id",
 "home_level_name",
 "home_parentOrg_id",
 "home_parentOrg_name",
 "home_league_id",
 "home_league_name",
 "away_team",
 "away_level_id",
 "away_level_name",
 "away_parentOrg_id",
 "away_parentOrg_name",
 "away_league_id",
 "away_league_name",
 "batting_team",
 "fielding_team",
 "last.pitch.of.ab",
 "pfxId",
 "details.trailColor",
 "details.type.code",
 "details.type.description",
 "pitchData.startSpeed",
 "pitchData.endSpeed",
 "pitchData.zone",
 "pitchData.typeConfidence",
 "pitchData.plateTime",
 "pitchData.extension",
 "pitchData.coordinates.aY",
 "pitchData.coordinates.aZ",
 "pitchData.coordinates.pfxX",
 "pitchData.coordinates.pfxZ",
 "pitchData.coordinates.pX",
 "pitchData.coordinates.pZ",
 "pitchData.coordinates.vX0",
 "pitchData.coordinates.vY0",
 "pitchData.coordinates.vZ0",
 "pitchData.coordinates.x0",
 "pitchData.coordinates.y0",
 "pitchData.coordinates.z0",
 "pitchData.coordinates.aX",
 "pitchData.breaks.breakAngle",
 "pitchData.breaks.breakLength",
 "pitchData.breaks.breakY",
 "pitchData.breaks.spinRate",
 "pitchData.breaks.spinDirection",
 "hitData.launchSpeed",
 "hitData.launchAngle",
 "hitData.totalDistance",
 "injuryType",
 "umpire.id",
 "umpire.link",
 "details.isOut",
 "details.disengagementNum",
 "result.isOut",
 "about.isTopInning",
 "matchup.postOnFirst.id",
 "matchup.postOnFirst.fullName",
 "matchup.postOnFirst.link" 
)

test_that("MLB Play-by-Play Diff", {
  skip_on_cran()
  
  x <- mlb_pbp_diff(game_pk = 632970, 
                    start_timecode = "20210808_231704", 
                    end_timecode = "20210808_233711")
  
  expect_equal(colnames(x), cols)
  expect_s3_class(x, "data.frame")
})