tests/testthat/test-cfb_team_talent.R

context("CFB Team Talent")

x <- cfb_team_talent(year = 2019)

cols <- c("year","school","talent")

test_that("CFB Team Talent", {
  expect_equal(nrow(x), 231)
  expect_equal(ncol(x), 3)
  expect_equal(colnames(x), cols)
  expect_s3_class(x, "data.frame")
})
meysubb/cfbscrapR documentation built on Dec. 15, 2020, 11:26 p.m.