tests/testthat/test-mlb_schedule.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", "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", "status_abstract_game_state",
  "status_coded_game_state", "status_detailed_state",
  "status_status_code", "status_start_time_tbd", 
  "status_reason", "status_abstract_game_code", 
  "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_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", "is_tie",
  "description", "teams_away_score", "teams_away_is_winner",
  "teams_home_score", "teams_home_is_winner", "reschedule_date", 
  "reschedule_game_date", "rescheduled_from", "rescheduled_from_date",
  "resume_date", "resume_game_date",
  "resumed_from", "resumed_from_date", "events"
)

test_that("MLB Schedule", {
  skip_on_cran()
  
  x <- mlb_schedule(season = "2019")
  
  expect_equal(colnames(x), cols)
  expect_s3_class(x, "data.frame")
})