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) })