context("CFB Conference Ratings - Bill C.'s SP+")
x <- cfb_ratings_sp_conference(year = 2019)
y <- cfb_ratings_sp_conference(year = 2012, conference = 'SEC')
z <- cfb_ratings_sp_conference(year = 2016, conference = 'ACC')
cols <- c('year', '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 Conference 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")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.