Discussion :

[pitchu]

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 :

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

source("script.R")

script.R

Code :

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

1
2
3
4
5
6
7
8
9
 
tryCatch({
  library(genere_une_erreur)
}, error = function(e) {
  # traceback()
  stop(e$message)
})
 
print("no error")

[Puppet_Master]

Bonjour pitchu

Une piste:

Code :

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

1
2
3
4
5
6
7
8
tryCatch(
{
    library(genere_une_erreur)
}
, error = function(e) {
    # traceback()
    e$message
})

[pitchu]

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 :

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

source("script.R")

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

[Puppet_Master]

une autre piste:

Code :

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

1
2
3
4
5
6
7
8
tryCatch(
{
    library(genere_une_erreur)
}
, error = function(e) {
    # traceback()
    return(e$message)
})

[pitchu]

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 :

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

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 :

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

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