tests/testthat/test-mlb_umpire_games.R

In baseballr: Acquiring and Analyzing Baseball Data

# 
# cols <- c(
#   "date",
#   "total_items",
#   "total_events",
#   "total_games",
#   "total_games_in_progress",
#   "game_pk",
#   "link",
#   "game_type",
#   "season",
#   "game_date",
#   "official_date",
#   "is_tie",
#   "game_number",
#   "public_facing",
#   "double_header",
#   "gameday_type",
#   "tiebreaker",
#   "calendar_event_id",
#   "season_display",
#   "day_night",
#   "scheduled_innings",
#   "reverse_home_away_status",
#   "games_in_series",
#   "series_game_number",
#   "series_description",
#   "record_source",
#   "if_necessary",
#   "if_necessary_description",
#   "status_abstract_game_state",
#   "status_coded_game_state",
#   "status_detailed_state",
#   "status_status_code",
#   "status_start_time_tbd",
#   "status_abstract_game_code",
#   "teams_away_score",
#   "teams_away_is_winner",
#   "teams_away_split_squad",
#   "teams_away_series_number",
#   "teams_away_league_record_wins",
#   "teams_away_league_record_losses",
#   "teams_away_league_record_pct",
#   "teams_away_team_id",
#   "teams_away_team_name",
#   "teams_away_team_link",
#   "teams_home_score",
#   "teams_home_is_winner",
#   "teams_home_split_squad",
#   "teams_home_series_number",
#   "teams_home_league_record_wins",
#   "teams_home_league_record_losses",
#   "teams_home_league_record_pct",
#   "teams_home_team_id",
#   "teams_home_team_name",
#   "teams_home_team_link",
#   "venue_id",
#   "venue_name",
#   "venue_link",
#   "content_link",
#   "inning_break_length",
#   "status_reason",
#   "description",
#   "reschedule_date",
#   "reschedule_game_date",
#   "rescheduled_from",
#   "rescheduled_from_date"
# )
# 
# test_that("MLB Umpire Games", {
#   skip_on_cran()
#   
#   x <- mlb_umpire_games(umpire_id = 596809, season = 2018)
#   
#   expect_equal(colnames(x), cols)
#   expect_s3_class(x, "data.frame")
# })