R/policy-wait.R

wait <- function(tokens, exception) {
    pause(exception$wait_time)
    request(tokens, policy = wait)
}

pause <- function(wait_time) {
    Sys.sleep(wait_time + .02)
}
tarakc02/ratelimitr documentation built on May 31, 2019, 3:55 a.m.