tests/testthat/test-cfb_play_types.R

context("CFB Play Types")

x <- cfb_play_types()

cols <- c("play_type_id","text","abbreviation")

test_that("CFB Play Types", {
  expect_equal(nrow(x), 47)
  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.