# \donttest{
# Change some options for better output
old <- options(list(digits = 3, tibble.print_min = 64))
library(dplyr, warn.conflicts = FALSE)
try({#to avoid CRAN test problems
nflseedR::load_sharpe_games() |>
dplyr::filter(season %in% 2019:2020) |>
dplyr::select(sim = season, game_type, week, away_team, home_team, result) |>
nflseedR::compute_division_ranks() |>
purrr::pluck("standings")
})
# Restore old options
options(old)
# }
Run the code above in your browser using DataLab