tests/testthat/test-mlb_seasons.R

In baseballr: Acquiring and Analyzing Baseball Data

cols <- c(
  "season_id",
  "has_wildcard",
  "pre_season_start_date",
  "pre_season_end_date",
  "season_start_date",
  "spring_start_date",
  "spring_end_date",
  "regular_season_start_date",
  "last_date1st_half",
  "all_star_date",
  "first_date2nd_half",
  "regular_season_end_date",
  "post_season_start_date",
  "post_season_end_date",
  "season_end_date",
  "offseason_start_date",
  "off_season_end_date",
  "season_level_gameday_type",
  "game_level_gameday_type",
  "qualifier_plate_appearances",
  "qualifier_outs_pitched"
)

test_that("MLB Seasons", {
  skip_on_cran()
  
  x <- mlb_seasons(sport_id = 1)
  
  expect_equal(colnames(x), cols)
  expect_s3_class(x, "data.frame")
})