View source: R/utils_progressively.R
progressively | R Documentation |
This function helps add progress-reporting to any function - given function f()
and progressor p()
,
it will return a new function that calls f()
and then (on exiting) will call p()
after every iteration.
This is inspired by purrr's safely
, quietly
, and possibly
function decorators.
progressively(f, p = NULL)
f |
a function to add progressor functionality to. |
p |
a function such as one created by |
a function that does the same as f
but it calls p()
after iteration.
https://nflreadr.nflverse.com/articles/exporting_nflreadr.html for vignette on exporting nflreadr in packages
try({ # prevents cran errors
urls <- rep("https://github.com/nflverse/nflverse-data/releases/download/test/combines.csv",3)
lapply(urls, progressively(read.csv, ~cli::cli_progress_step('Loading...')))
read_rosters <- function(urls){
p <- progressr::progressor(along = urls)
lapply(urls, progressively(read.csv, p))
}
progressr::with_progress(read_rosters())
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.