tests/testthat/test-standings.R

In nflseedR: Functions to Efficiently Simulate and Evaluate NFL Seasons

test_that("standings works", {
  g <- try(nflreadr::load_schedules(2008:2023), silent = TRUE)
  skip_if(inherits(g, "try-error"))

  standings <- nflseedR::nfl_standings(g, ranks = "DRAFT", verbosity = "NONE") |>
    data.table::setDF()
  expect_snapshot_value(standings, style = "json2", variant = "standings")
})