tests/testthat/test-cfbd_stats_game_advanced.R

In saiemgilani/cfbfastR: Access College Football Play by Play Data

cols <- c(
  "game_id", "week", "team", "opponent", "off_plays", "off_drives",
  "off_ppa", "off_total_ppa", "off_success_rate", "off_explosiveness",
  "off_power_success", "off_stuff_rate", "off_line_yds", "off_line_yds_total",
  "off_second_lvl_yds", "off_second_lvl_yds_total", "off_open_field_yds",
  "off_open_field_yds_total", "off_standard_downs_ppa",
  "off_standard_downs_success_rate", "off_standard_downs_explosiveness",
  "off_passing_downs_ppa", "off_passing_downs_success_rate",
  "off_passing_downs_explosiveness", "off_rushing_plays_ppa",
  "off_rushing_plays_total_ppa", "off_rushing_plays_success_rate",
  "off_rushing_plays_explosiveness", "off_passing_plays_ppa",
  "off_passing_plays_total_ppa", "off_passing_plays_success_rate",
  "off_passing_plays_explosiveness", "def_plays", "def_drives",
  "def_ppa", "def_total_ppa", "def_success_rate", "def_explosiveness",
  "def_power_success", "def_stuff_rate", "def_line_yds", "def_line_yds_total",
  "def_second_lvl_yds", "def_second_lvl_yds_total", "def_open_field_yds",
  "def_open_field_yds_total", "def_standard_downs_ppa",
  "def_standard_downs_success_rate", "def_standard_downs_explosiveness",
  "def_passing_downs_ppa", "def_passing_downs_success_rate",
  "def_passing_downs_explosiveness", "def_rushing_plays_ppa",
  "def_rushing_plays_total_ppa", "def_rushing_plays_success_rate",
  "def_rushing_plays_explosiveness", "def_passing_plays_ppa",
  "def_passing_plays_total_ppa", "def_passing_plays_success_rate",
  "def_passing_plays_explosiveness"
)

test_that("CFB Stats Game - Advanced", {

  skip_on_cran()
  x <- cfbd_stats_game_advanced(year = 2018, week = 12, team = "Texas A&M")

  y <- cfbd_stats_game_advanced(2019, team = "LSU")

  z <- cfbd_stats_game_advanced(2013, team = "Florida State")
  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")
})