une fonction comme le trycatch mais pour le temps d'execution

Bonjour,

Je voudrais savoir comment faire un équivalent du trycatch mais pour le temps, par exemple si ma fonction prend plus de 30min on annule et on passe à la ligne suivante.

bonjour , à tester

Code:

---

1 2	tryCatch({res <- R.utils::withTimeout({ta_fonction(tes_arguements)},timeout=1800)},TimeoutException=function(ex){message("ARRET" )})

---

Bonjour,

Excusez-moi d'avoir était long à répondre.

Je n'arrive pas à obtenir le message ARRET, j'obtiens une erreur.

Code:

---

1 2 3 4 5 6 7 8 9 10

tryCatch({res <- R.utils::withTimeout({expr = ta_fonction()}, timeout=2)}, TimeoutException=function(ex){message("ARRET")})   ta_fonction <- function(){ Sys.sleep(time = 4) }   Error in Sys.sleep(time = 4) : reached elapsed time limit

---

bonjour,
peut-être

Code:

---

1 2 3 4 5 6 7 8 9

ta_fonction <- function(){ Sys.sleep(time = 4) print("ok") }   tryCatch({res <- R.utils::withTimeout({expr = ta_fonction()}, timeout=2)}, error=function(ex){message("ARRET")})

---

Bonjour,
merci de votre aide.