tests/testthat/test-cfb_player_info.R

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

context("CFB Player Info")

x <- cfb_player_info(search_term = 'James', position = 'DB', team = 'Florida State', year = 2017)

y <- cfb_player_info(search_term = 'Lawrence', team = "Clemson")

w <- cfb_player_info(search_term = 'Duggan')

cols <- c("athlete_id","team","name","first_name","last_name",
          "weight","height","jersey","position",
          "home_town","team_color","team_color_secondary")

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