tests/testthat/test-nba_teams.R

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

test_that("NBA Teams", {
  skip_on_cran()
  skip_on_ci()

  x <- nba_teams()

  cols_x1 <- c(
    "league_id",
    "season_id",
    "team_id",
    "team_city",
    "team_name",
    "team_slug",
    "conference",
    "division",
    "team_abbreviation",
    "team_name_full",
    "season",
    "espn_team_id",
    "abbreviation",
    "display_name",
    "mascot",
    "nickname",
    "team",
    "color",
    "alternate_color",
    "logo",
    "logo_dark",
    "logos_href_3",
    "logos_href_4",
    "nba_logo_svg"
  )


  expect_equal(sort(colnames(x)), sort(cols_x1))
  expect_s3_class(x, "data.frame")

  Sys.sleep(3)

})