tests/testthat/test-mlb_game_info.R

In baseballr: Acquiring and Analyzing Baseball Data

cols <- c(
  "game_date", "game_pk", "venue_name", "venue_id",
  "temperature", "other_weather", "wind",
  "attendance", "start_time", "elapsed_time",
  "game_id", "game_type", "home_sport_code",
  "official_scorer", "date", "status_ind",
  "home_league_id", "gameday_sw"
)

test_that("MLB Game Info", {
  skip_on_cran()
  
  x <- mlb_game_info(game_pk = 566001)
  
  expect_equal(colnames(x), cols)
  expect_s3_class(x, "data.frame")
})