tests/testthat/test-cfb_ratings_sp.R

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

context("CFB Ratings - Bill C.'s SP+")

x <- cfb_ratings_sp(year = 2019)

y <- cfb_ratings_sp(team = 'Texas A&M')

z <- cfb_ratings_sp(year = 2019, team = 'LSU')

cols <- c('year','team',
          'conference','rating','second_order_wins', 'sos',
          'offense_rating','offense_success', 'offense_explosiveness',
          'offense_rushing','offense_passing','offense_standard_downs',
          'offense_passing_downs','offense_run_rate',
          'offense_pace','defense_rating','defense_success','defense_explosiveness',
          'defense_rushing','defense_passing','defense_standard_downs',
          'defense_passing_downs','defense_havoc_total','defense_havoc_front_seven',
          'defense_havoc_db','special_teams_rating')

test_that("CFB Ratings - Bill C.'s SP+", {
  expect_equal(colnames(x), cols)
  expect_equal(colnames(y), cols)
  expect_equal(colnames(z), cols)
  expect_s3_class(x, "data.frame")
  expect_s3_class(y, "data.frame")
  expect_s3_class(z, "data.frame")
})