tests/testthat/test-espn_mbb_standings.R

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

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

  cols <- c(
    "team_id",
    "team",
    "avgpointsagainst",
    "avgpointsfor",
    "gamesbehind",
    "leaguewinpercent",
    "losses",
    "playoffseed",
    "pointdifferential",
    "pointsagainst",
    "pointsfor",
    "streak",
    "winpercent",
    "wins",
    "total",
    "home_avgpointsagainst",
    "home_avgpointsfor",
    "home_gamesbehind",
    "home_leaguewinpercent",
    "home_losses",
    "home_playoffseed",
    "home_pointdifferential",
    "home_pointsagainst",
    "home_pointsfor",
    "home_streak",
    "home_winpercent",
    "home_wins",
    "home",
    "road_avgpointsagainst",
    "road_avgpointsfor",
    "road_gamesbehind",
    "road_leaguewinpercent",
    "road_losses",
    "road_playoffseed",
    "road_pointdifferential",
    "road_pointsagainst",
    "road_pointsfor",
    "road_streak",
    "road_winpercent",
    "road_wins",
    "road",
    "vsaprankedteams_avgpointsagainst",
    "vsaprankedteams_avgpointsfor",
    "vsaprankedteams_gamesbehind",
    "vsaprankedteams_leaguewinpercent",
    "vsaprankedteams_losses",
    "vsaprankedteams_playoffseed",
    "vsaprankedteams_pointdifferential",
    "vsaprankedteams_pointsagainst",
    "vsaprankedteams_pointsfor",
    "vsaprankedteams_streak",
    "vsaprankedteams_winpercent",
    "vsaprankedteams_wins",
    "vsaprankedteams",
    "vsusarankedteams_avgpointsagainst",
    "vsusarankedteams_avgpointsfor",
    "vsusarankedteams_gamesbehind",
    "vsusarankedteams_leaguewinpercent",
    "vsusarankedteams_losses",
    "vsusarankedteams_playoffseed",
    "vsusarankedteams_pointdifferential",
    "vsusarankedteams_pointsagainst",
    "vsusarankedteams_pointsfor",
    "vsusarankedteams_streak",
    "vsusarankedteams_winpercent",
    "vsusarankedteams_wins",
    "vsusarankedteams",
    "vsconf_avgpointsagainst",
    "vsconf_avgpointsfor",
    "vsconf_gamesbehind",
    "vsconf_leaguewinpercent",
    "vsconf_losses",
    "vsconf_playoffseed",
    "vsconf_pointdifferential",
    "vsconf_pointsagainst",
    "vsconf_pointsfor",
    "vsconf_streak",
    "vsconf_winpercent",
    "vsconf_wins",
    "vsconf"
  )
  expect_equal(colnames(x), cols)
  expect_s3_class(x, "data.frame")

})