Add a setTimeout mechanism about crrri HOT 3 CLOSED

devtools::load_all()
timeout2 <- function(promise, delay) {
  promise <- promises::as.promise(promise)
  promises::promise_race(
    timeout(delay),
    promise
  )
}

chrome <- Chrome$new()
client <- chrome$connect()

Page <- client$Page

Page$enable() %...>% {
  Page$navigate(url = "https://www.r-project.org/")
  Page$loadEventFired()
} %...>% { 
  Page$printToPDF() 
} %...>% { 
  .$data %>% jsonlite::base64_dec() %>% writeBin("r_project.pdf") 
} %...!% {
  cat(c("An error has occured:\n", .$message, "\n")) 
} %>%
  timeout2(delay = 1)

chrome$close()