context("CFB Season Player Stats")
x <- cfb_stats_season_player(2018, conference = 'Ind')
y <- cfb_stats_season_player(2019, team = "Florida State", category = 'passing')
z <- cfb_stats_season_player(2018, team = "Florida State")
cols <- c("team", "conference", "athlete_id", "player", "category",
"passing_completions", "passing_att", "passing_pct", "passing_yds",
"passing_td", "passing_int", "passing_ypa",
"rushing_car", "rushing_yds", "rushing_td", "rushing_ypc", "rushing_long",
"receiving_rec","receiving_yds","receiving_td", "receiving_ypr", "receiving_long",
"fumbles_fum", "fumbles_rec", "fumbles_lost",
"defensive_solo", "defensive_tot", "defensive_tfl", "defensive_sacks",
"defensive_qb_hur", "interceptions_int", "interceptions_yds",
"interceptions_avg", "interceptions_td", "defensive_pd", "defensive_td",
"kicking_fgm", "kicking_fga", "kicking_pct",
"kicking_xpa", "kicking_xpm", "kicking_pts", "kicking_long",
"kick_returns_no", "kick_returns_yds", "kick_returns_avg",
"kick_returns_td", "kick_returns_long",
"punting_no", "punting_yds", "punting_ypp",
"punting_long", "punting_in_20", "punting_tb",
"punt_returns_no", "punt_returns_yds", "punt_returns_avg",
"punt_returns_td", "punt_returns_long")
test_that("CFB Season Player Stats", {
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.