tests/testthat/test-cfb_stats_season_player.R

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

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