Arrêter mon script lorsqu'une erreur apparait

Bonjour,

Je voudrais arrêter mon script lorsqu'une erreur apparait. J'utilise un tryCatch({...}) pour capturer l'erreur puis j'utilise la fonction stop() pour arrêter mon script, je mets en place cela mais j'obtiens en sortie Error in value[[3L]](cond) : avec les boutons show traceback et return with debug. Comment puis-je faire pour n'avoir que le message ?

Pour lancer mon code je fais:

Code:

---

source("script.R")

---

script.R

Code:

---

1 2 3 4 5 6 7 8 9

tryCatch({ library(genere_une_erreur) }, error = function(e) { # traceback() stop(e$message) })   print("no error")

---

Pièce jointe 487674

Bonjour pitchu

Une piste:

Code:

---

1 2 3 4 5 6 7 8

tryCatch( { library(genere_une_erreur) } , error = function(e) { # traceback() e$message })

---

Bonjour,

Excusez-moi j'ai oublié de préciser comment je lançais mon code (j'ai édité mon post pour le rajouté), je fais

Code:

---

source("script.R")

---

(Quand j'utilise votre code en l'appelant avec source() j'ai la même chose qui apparait.)

une autre piste:

Code:

---

1 2 3 4 5 6 7 8

tryCatch( { library(genere_une_erreur) } , error = function(e) { # traceback() return(e$message) })

---

Bonjour,

il semblerait que le problème vienne du fait que je fasse source() , quand je lance mon script source(script.R) j'obtiens un autre message Error in eval(ei, envir) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

loadLib <- tryCatch( { library(genere_une_erreur) #library(base) T } , error = function(e) { return(e$message) })     if(!is.logical(loadLib)){stop((loadLib)) } else{cat("Tous les packages ont été chargé")}

---

Code:

---

1 2 3

> source("scripts/stop.R") Error in eval(ei, envir) : aucun package nommé ‘genere_une_erreur’ n'est trouvé

---