tests/testthat/test-mlb_game_context_metrics.R

In baseballr: Acquiring and Analyzing Baseball Data

cols <- c(
  "game_pk", "link", "game_type",
  "season", "game_date", "official_date",
  "status_abstract_game_state", "status_coded_game_state", 
  "status_detailed_state", "status_status_code", "status_start_time_tbd",
  "status_abstract_game_code", "teams_away_league_record_wins",
  "teams_away_league_record_losses", "teams_away_league_record_pct", 
  "teams_away_score", "teams_away_team_id", "teams_away_team_name",
  "teams_away_team_link", "teams_away_is_winner", 
  "teams_away_probable_pitcher_id",
  "teams_away_probable_pitcher_full_name", 
  "teams_away_probable_pitcher_link", 
  "teams_away_split_squad", "teams_away_series_number",
  "teams_home_league_record_wins",
  "teams_home_league_record_losses",
  "teams_home_league_record_pct", "teams_home_score",
  "teams_home_team_id", "teams_home_team_name", 
  "teams_home_team_link", "teams_home_is_winner",
  "teams_home_probable_pitcher_id", 
  "teams_home_probable_pitcher_full_name", 
  "teams_home_probable_pitcher_link", 
  "teams_home_split_squad", "teams_home_series_number",
  "venue_id", "venue_name", "venue_link", "link_1", "is_tie",
  "game_number", "public_facing", "double_header", "gameday_type", 
  "tiebreaker", "calendar_event_id", "season_display", "day_night", 
  "scheduled_innings", "reverse_home_away_status", 
  "inning_break_length", "games_in_series", "series_game_number", 
  "series_description", "record_source", "if_necessary", 
  "if_necessary_description",
  "game_id", "home_win_probability", "away_win_probability"
)

test_that("MLB Game Context Metrics", {
  skip_on_cran()
  
  x <- mlb_game_context_metrics(game_pk = 531060, timecode = "20180803_182458")
  
  expect_equal(colnames(x), cols)
  expect_s3_class(x, "data.frame")
})