tests/testthat/test-nba_commonteamyears.R

In hoopR: Access Men's Basketball Play by Play Data

test_that("NBA Common Team Years", {
  skip_on_cran()
  skip_on_ci()
  skip_nba_stats_test()

  x <- nba_commonteamyears(league_id = "00")

  cols_team_years <- c(
    "LEAGUE_ID",
    "TEAM_ID",
    "MIN_YEAR",
    "MAX_YEAR",
    "ABBREVIATION"
  )
  expect_in(sort(cols_team_years), sort(colnames(x$TeamYears)))
  expect_s3_class(x$TeamYears, "data.frame")
  expect_gt(nrow(x$TeamYears), 0)

  Sys.sleep(3)
})