## ----eval = FALSE-------------------------------------------------------------
#  #' @inherit nflreadr::load_nextgen_stats
#  #' @export
#  # Need to add own examples if the function name is different
#  #' @examples
#  #' load_ng_stats(2020)
#  load_ng_stats <- nflreadr::load_nextgen_stats

## ----eval = FALSE-------------------------------------------------------------
#  load_rosters <- function(seasons = 1999:2020){
#  
#    # Create a progressor function inside your function that knows how many "steps" there will be
#    p <- progressr::progressor(steps = length(seasons))
#  
#    # Form the URLs to pass into rds_from_url
#    urls <- paste0(
#      "https://github.com/nflverse/nflverse-rosters/",
#      "raw/master/data/seasons/roster_",
#      seasons,
#      ".rds")
#  
#    # Use `progressively()` to wrap the existing function rds_from_url and
#    # call the `p()` progressor function as a signal immediately after each iteration
#  
#    out <- purrr::map_dfr(urls, progressively(rds_from_url,p))
#  
#    return(out)
#  }

## ----eval = FALSE-------------------------------------------------------------
#  progressr::with_progress(load_rosters(2010:2020))