tests/testthat/test-espn_nba_standings.R

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

test_that("ESPN - Get NBA Standings", {
  skip_on_cran()
  x <- espn_nba_standings(year = 2021)

  cols <- c(
    "team_id",
    "team",
    "avgpointsagainst",
    "avgpointsfor",
    "clincher",
    "differential",
    "divisionwinpercent",
    "gamesbehind",
    "leaguewinpercent",
    "losses",
    "playoffseed",
    "pointdifferential",
    "streak",
    "winpercent",
    "wins",
    "leaguestandings",
    "home",
    "road",
    "vsdiv",
    "vsconf",
    "lasttengames"
  )
  expect_equal(colnames(x), cols)
  expect_s3_class(x, "data.frame")

})