context("CFB Betting Lines")
x <- cfb_betting_lines(year = 2018,
week = 12,
team = 'Florida State')
y <- cfb_betting_lines(year = 2018,
week = 13,
team = "Texas A&M",
conference = 'SEC',
line_provider = 'numberfire')
cols <- c("game_id", "season", "season_type", "week",
"home_team", "home_conference", "home_score",
"away_team", "away_conference", "away_score",
"provider","spread", "formatted_spread", "over_under")
test_that("CFB Betting Lines", {
expect_equal(nrow(x), 4)
expect_equal(nrow(y), 1)
expect_equal(colnames(x), cols)
expect_equal(colnames(y), cols)
expect_s3_class(x, "data.frame")
expect_s3_class(y, "data.frame")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.