This function does not modify the original rate-limited function, instead it returns a new function with the same rate limits (but no memory of prior function calls).
A rate-limited function or group of functions
1 2 3 4 5 6 7 8 9 10 11
f <- function() NULL f_lim <- limit_rate(f, rate(n = 1, period = .1)) f_lim() ## the next call to f_lim will trigger the rate limit f_lim2 <- reset(f_lim) ## but f_lim2 has a fresh start ## f_lim2 behaves as though no calls have been made system.time(f_lim2()) ## while f_lim is still constrained system.time(f_lim())
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.