Discussion :

[pitchu]

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.

[xavier-Pierre]

bonjour , à tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[pitchu]

Bonjour,

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[xavier-Pierre]

bonjour,
peut-être

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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")})

[pitchu]

Bonjour,
merci de votre aide.