tests/testthat/test-cfb_metrics_espn_wp.R

In meysubb/cfbscrapR: A Scraping and Aggregating Interface to the CollegeFootballData API

context("CFB Metrics ESPN Win Probability")

x <- cfb_metrics_espn_wp(game_id = 401012356)

cols <- c('espn_game_id', 'play_id', 'seconds_left', 
          'home_win_percentage', 'away_win_percentage')

test_that("CFB Metrics ESPN Win Probability", {
  expect_equal(colnames(x), cols)
  expect_s3_class(x, "data.frame")
})