tests/testthat/test-cfb_stats_season_team.R

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

context("CFB Team Season Stats")

x <- cfb_stats_season_team(year=2018, conference = 'B12', start_week = 1, end_week = 8)

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

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

cols <- c("games", "time_of_poss_total", "time_of_poss_pg", "pass_comps", 
          "pass_atts", "completion_pct", "net_pass_yds", "pass_ypa", "pass_ypr", 
          "pass_TDs", "interceptions", "int_pct", "rush_atts", "rush_yds", 
          "rush_TDs", "rush_ypc", "total_yds", "fumbles_lost", "turnovers", 
          "turnovers_pg", "first_downs", "third_downs", "third_down_convs", 
          "third_conv_rate", "fourth_down_convs", "fourth_downs", 
          "fourth_conv_rate", "penalties", "penalty_yds", "penalties_pg", 
          "penalty_yds_pg", "yards_per_penalty", "kick_returns", "kick_return_yds", 
          "kick_return_TDs", "kick_return_avg", "punt_returns", "punt_return_yds",
          "punt_return_TDs", "punt_return_avg", "passes_intercepted", 
          "passes_intercepted_yds", "passes_intercepted_TDs")

test_that("CFB Team Season 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")
})