context("CFB Conferences")
x <- cfb_conferences()
cols <- c("conference_id","name","long_name","abbreviation")
test_that("CFB Conferences", {
expect_equal(nrow(x), 34)
expect_equal(ncol(x), 4)
expect_equal(colnames(x), cols)
expect_error(cfb_conferences('SEC'))
expect_s3_class(x, "data.frame")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.