R/sleep.R

In mkearney/rtweet.download: Automate Large Downloads with 'rtweet'

nap_wait <- function(s) {
  pb <- progress::progress_bar$new(
    format = crayon::blue("Waiting on rate limit [:bar] :eta"),
    total = 500, clear = TRUE, width = 60)
  pb$tick(0)
  for (i in seq_len(500)) {
    Sys.sleep(s / 500)
    pb$tick()
  }
  invisible(TRUE)
}

nap_retry <- function(s) {
  pb <- progress::progress_bar$new(
    format = crayon::blue("Waiting to retry [:bar] :eta"),
    total = 500, clear = TRUE, width = 60)
  pb$tick(0)
  for (i in seq_len(500)) {
    Sys.sleep(s / 500)
    pb$tick()
  }
  invisible(TRUE)
}