tests/testthat/test-cfb_drives.R

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

context("CFB Drives")

x <- cfb_drives(2018, week = 1, team = "TCU")

y <- cfb_drives(2018, team = "Texas A&M", defense_conference = 'SEC')

cols <- c("offense", "offense_conference", "defense", "defense_conference", 
          "game_id", "drive_id", "drive_number", "scoring", "start_period", "start_yardline", 
          "start_yards_to_goal", "end_period", "end_yardline", "end_yards_to_goal", "plays",
          "yards", "drive_result", "time_minutes_start",  "time_seconds_start",  
          "time_minutes_end",     "time_seconds_end", "time_minutes_elapsed", 
          "time_seconds_elapsed")

test_that("CFB Drives", {
  expect_equal(colnames(x), cols)
  expect_equal(colnames(y), cols)
  expect_s3_class(x, "data.frame")
  expect_s3_class(y, "data.frame")
})