tests/testthat/test-cfbd_game_info.R

In cfbfastR: Access College Football Play by Play Data

cols <- c(
  "game_id", "season", "week", "season_type", "start_date",
  "start_time_tbd", "neutral_site", "conference_game",
  "attendance", "venue_id", "venue",
  "home_id", "home_team", "home_conference",
  "home_points", "home_post_win_prob",
  "home_pregame_elo",
  "home_postgame_elo",
  "away_id", "away_team", "away_conference",
  "away_points", "away_post_win_prob",
  "away_pregame_elo",
  "away_postgame_elo", "excitement_index",
  "highlights","notes"
)

test_that("CFB Game Info", {
  skip_on_cran()
  x <- cfbd_game_info(2019, week = 1, conference = "ACC")

  y <- cfbd_game_info(2018, week = 4, conference = "Ind")
  expect_equal(colnames(x), cols)
  expect_equal(colnames(y), cols)
  expect_s3_class(x, "data.frame")
  expect_s3_class(y, "data.frame")
})