create a timeout promise

RLesur · Nov 23, 2018 · 1e27a31 · 1e27a31
1 parent 8c9c395
commit 1e27a31
Show file tree

Hide file tree

Showing 2 changed files with 30 additions and 0 deletions.
diff --git a/R/wait.R b/R/wait.R
@@ -28,3 +28,16 @@ wait <- function(promise, delay = 0) {promises::then(
     }
   )
 }
+
+
+#' Set a timeout
+#'
+#' @param delay Number of seconds before rejecting the promise.
+#'
+#' @return A promise that if rejected after a delay of `delay` seconds.
+#' @export
+timeout <- function(delay = 0) {
+  promises::promise(function(resolve, reject) {
+    later::later(~ reject(paste("The delay of", delay, "seconds expired.\n")), delay)
+  })
+}
diff --git a/man/timeout.Rd b/man/timeout.Rd