make wait_until testable

gesistsa · Nov 16, 2022 · 6678df4 · 6678df4
1 parent d998f2f
commit 6678df4
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/utils.R b/R/utils.R
@@ -140,9 +140,9 @@ sayif <- function(verbose, ...) {
 }
 
 # inspired by rtweet
-wait_until <- function(until,verbose = TRUE){
+wait_until <- function(until, from = Sys.time(), verbose = TRUE){
   until <- as.numeric(until)
-  seconds <- ceiling(until - unclass(Sys.time()))
+  seconds <- ceiling(until - unclass(from))
   if(seconds>0){
     sayif(verbose,"Rate limit exceeded, waiting for ",seconds," seconds")
     Sys.sleep(seconds)