tests/testthat/test-kp_hca.R

In saiemgilani/kenpomR: Access Men's Basketball Play by Play Data

test_that("KP - Get home court advantage", {
  skip_on_cran()
  skip_on_ci()
  skip_kenpom_test()

  x <- kp_hca()

  cols <- c(
    "team",
    "conf",
    "hca",
    "hca_rk",
    "pf",
    "pf_rk",
    "pts",
    "pts_rk",
    "nst",
    "nst_rk",
    "blk",
    "blk_rk",
    "elev",
    "elev_rk"
  )


  expect_equal(colnames(x), cols)
  expect_s3_class(x, "data.frame")

  Sys.sleep(3)

})