context("CFB Metrics PPA Games")
x <- cfb_metrics_ppa_players_games(year = 2019, week = 4, team = 'TCU')
y <- cfb_metrics_ppa_players_games(year = 2019, team = 'Alabama', week = 11)
cols <- c("season","week","name","position","team","opponent","avg_PPA_all",
"avg_PPA_pass", "avg_PPA_rush")
test_that("CFB Metrics PPA Games", {
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.