# \donttest{
# Calculate standings
s <- nflreadr::load_schedules(2024) |>
nflseedR::nfl_standings(ranks = "DRAFT")
# Create table
tbl1 <- nfl_standings_prettify(s, grp_by = "conf", order_by = "conf_rank")
tbl2 <- nfl_standings_prettify(s, grp_by = "nfl", order_by = "draft_rank")
# The output of tbl1 and tbl2 is given in the above images.
# }
Run the code above in your browser using DataLab