tests/testthat/test-cfb_stats_game_advanced.R

In meysubb/cfbscrapR: A Scraping and Aggregating Interface to the CollegeFootballData API

context("CFB Stats Game - Advanced")

x <- cfb_stats_game_advanced(year = 2018, week = 12, team = 'Texas A&M')

y <- cfb_stats_game_advanced(2019, team = 'LSU')

z <- cfb_stats_game_advanced(2013, team = "Florida State")

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", {
  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")
})