Comment écrire trycatch dans la R

Je veux écrire trycatch le code d'erreur dans le téléchargement à partir du web.

url <- c(
    "http://stat.ethz.ch/R-manual/R-devel/library/base/html/connections.html",
    "http://en.wikipedia.org/wiki/Xz")
y <- mapply(readLines, con=url)

Ces deux états exécuter avec succès. Ci-dessous, j'ai créer un non-existent web à l'adresse:

url <- c("xxxxx", "http://en.wikipedia.org/wiki/Xz")

url[1] n'existe pas. Comment écrit-on un trycatch boucle (function) de sorte que:

Lorsque l'URL est fausse, la sortie sera: "URL web est faux, ne peuvent pas obtenir".
Lorsque l'URL est incorrecte, le code ne s'arrête pas, mais continue à télécharger jusqu'à la fin de la liste des Url?

InformationsquelleAutor Dd Pp | 2012-08-30

506

Bien alors: bienvenue dans le monde R 😉

Ici, vous allez

Réglage du code
```
urls <- c(
    "http://stat.ethz.ch/R-manual/R-devel/library/base/html/connections.html",
    "http://en.wikipedia.org/wiki/Xz",
    "xxxxx"
)
readUrl <- function(url) {
    out <- tryCatch(
        {
            # Just to highlight: if you want to use more than one 
            # R expression in the "try" part then you'll have to 
            # use curly brackets.
            # 'tryCatch()' will return the last evaluated expression 
            # in case the "try" part was completed successfully

            message("This is the 'try' part")

            readLines(con=url, warn=FALSE) 
            # The return value of `readLines()` is the actual value 
            # that will be returned in case there is no condition 
            # (e.g. warning or error). 
            # You don't need to state the return value via `return()` as code 
            # in the "try" part is not wrapped insided a function (unlike that
            # for the condition handlers for warnings and error below)
        },
        error=function(cond) {
            message(paste("URL does not seem to exist:", url))
            message("Here's the original error message:")
            message(cond)
            # Choose a return value in case of error
            return(NA)
        },
        warning=function(cond) {
            message(paste("URL caused a warning:", url))
            message("Here's the original warning message:")
            message(cond)
            # Choose a return value in case of warning
            return(NULL)
        },
        finally={
        # NOTE:
        # Here goes everything that should be executed at the end,
        # regardless of success or error.
        # If you want more than one expression to be executed, then you 
        # need to wrap them in curly brackets ({...}); otherwise you could
        # just have written 'finally=<expression>' 
            message(paste("Processed URL:", url))
            message("Some other message at the end")
        }
    )    
    return(out)
}
```
L'application du code
```
> y <- lapply(urls, readUrl)
Processed URL: http://stat.ethz.ch/R-manual/R-devel/library/base/html/connections.html
Some other message at the end
Processed URL: http://en.wikipedia.org/wiki/Xz
Some other message at the end
URL does not seem to exist: xxxxx
Here's the original error message:
cannot open the connection
Processed URL: xxxxx
Some other message at the end
Warning message:
In file(con, "r") : cannot open file 'xxxxx': No such file or directory
```
De l'enquête de la sortie
```
> head(y[[1]])
[1] "<!DOCTYPE html PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\">"      
[2] "<html><head><title>R: Functions to Manipulate Connections</title>"      
[3] "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=utf-8\">"
[4] "<link rel=\"stylesheet\" type=\"text/css\" href=\"R.css\">"             
[5] "</head><body>"                                                          
[6] ""    

> length(y)
[1] 3

> y[[3]]
[1] NA
```
Remarques supplémentaires

tryCatch

tryCatch retourne la valeur associée à l'exécution de expr sauf si il y a une erreur ou un avertissement. Dans ce cas, les valeurs de retour (voir return(NA) ci-dessus) peut être spécifié en fournissant une fonction de gestionnaire (voir les arguments error et warning dans ?tryCatch). Ceux-ci peuvent être des fonctions qui existent déjà, mais vous pouvez également définir dans tryCatch() (comme je l'ai fait ci-dessus).

Les implications du choix des valeurs de retour des fonctions de gestionnaire d'

Comme nous l'avons précisé que NA doit être retourné en cas d'erreur, le troisième élément de la y est NA. Si nous aurions choisi NULL à la valeur de retour, la durée de y aurait juste été 2 au lieu de 3 comme lapply() aurez simplement à "ignorer" les valeurs de retour qui sont NULL. Notez également que si vous ne spécifiez pas de explicite valeur de retour via return(), les fonctions de gestionnaire sera de retour NULL (c'est à dire dans le cas d'une erreur ou d'une condition d'alarme).

"Indésirables" message d'avertissement

Comme warn=FALSE ne semble pas avoir d'effet, une autre façon de supprimer l'avertissement (qui dans ce cas n'est pas vraiment d'intérêt) est à utiliser
```
suppressWarnings(readLines(con=url))
```
au lieu de
```
readLines(con=url, warn=FALSE)
```
Plusieurs expressions

Notez que vous pouvez également placer plusieurs expressions dans le "réel expressions partie" (argument expr de tryCatch()) si vous les emballez dans des accolades (juste comme je l'ai illustré dans la finally partie).
- Étant donné que la première chaîne de votre paste fonctions se termine par un espace, pourquoi ne pas omettre l'espace et le sep=""?
- vrai 😉 je suis juste tellement l'habitude de se rassembler plus/plus compliqué chaînes ont été, je dois le contrôle des espaces via en train de sortir.
- Vous devez utiliser paste0 pour que!
- Ce n'est pas de base. Ce forfait est-il? Et merci!
- paste0() est dans la base. En interne, les deux paste() et paste0() appel do_paste dans coller.c. La seule différence est paste0() ne passe pas un sep argument.
- désolé, vrai pour la R-2.15.1. J'ai été l'exécution d'une version obsolète de R (2.14.1) et à l'époque il n'y avait pas une telle fonction. Très agréable, à mon humble avis qui aurait été le comportement par défaut de paste dès le début
- est out sera NULL si un warning est émis dans le tryCatch dans votre exemple?
- en fait, je pense que c'est une petite erreur dans mon code car il n'est pas out défini dans le cadre de la warning fonction. Juste en le regardant, je ne suis pas sûr de ce que R prendra comme valeur pour out via une portée lexicale. Je vais vérifier
- mise à jour de la réponse. Si vous ne fournissez pas rien explicitement, les fonctions de gestionnaire sera de retour NULL. De retour out dans le cas d'alerte n'a pas de sens pour moi anyomre, donc je l'ai changé pour return(NULL) juste pour illustrer. J'espère que c'est clair maintenant.
- ouais, merci. et pourriez-vous expliquer la dernière ligne return (out)trop? N'est-ce pas cette situation semblable à la return dans la fonction d'avertissement?
- Je me demandais pourquoi mon error bits a toujours été exécutée - accolades fixe!
- Comment puis-je afficher un message si l'essai de la partie a été achevée avec succès, s'il vous plaît ?
- rappelez-vous que la "essayez la partie" renvoie toujours la dernière object (actuellement readLines(con=url, warn=FALSE) qui est la chose réelle à ce qui pourrait aller mal). Donc, si vous voulez ajouter un message, vous auriez besoin de stocké le réel de retun de la valeur dans une variable: out <- readLines(con=url, warn=FALSE) suivie par message("Everything worked") suivie par out afin de faire de ce le dernier objet qui est en fait retourné
- Comment conserver des informations sur ce qui s'est passé? erreur = function(cond) { message(cond) } ne renvoie pas la même quantité d'informations qui s'affiche sans trycatch. Personne face à ce problème? Comment faire pour imprimer les informations de la ligne qui a provoqué l'erreur.
- Essayez conditionMessage (cond). C'est le message d'erreur réel comme une chaîne de caractères.
InformationsquelleAutor
59

R utilise des fonctions pour la mise en œuvre de bloc try-catch:

La syntaxe un peu ressemble à ceci:
```
result = tryCatch({
    expr
}, warning = function(warning_condition) {
    warning-handler-code
}, error = function(error_condition) {
    error-handler-code
}, finally={
    cleanup-code
})
```
Dans tryCatch() il y a deux "conditions" qui peuvent être traitées: les avertissements et les erreurs. La chose importante à comprendre lors de l'écriture de chaque bloc de code est l'état de l'exécution et de la portée.
@source
- Remplacer error-handler-code avec cat("web url is wrong, can't get")
- vous avez laissé un message accrocheur
InformationsquelleAutor heretolearn

Ici va un exemple simple:

# Do something, or tell me why it failed
my_update_function <- function(x){
    tryCatch(
        # This is what I want to do...
        {
        y = x * 2
        return(y)
        },
        # ... but if an error occurs, tell me what happened: 
        error=function(error_message) {
            message("This is my custom message.")
            message("And below is the error message from R:")
            message(error_message)
            return(NA)
        }
    )
}

Si vous aussi vous voulez capturer un "avertissement", il suffit d'ajouter warning= similaire à la error= partie.

Devrait-il y avoir des accolades autour de la expr partie, puisqu'il y a deux lignes au lieu d'une?
Merci! Après vérification, je ne vois pas la nécessité d'accolades
Merci pour la double vérification. Lorsque j'exécute le code, j'ai eu Error: unexpected ')' in " )" et Error: unexpected ')' in " )". L'ajout d'une paire d'accolades résout le problème.
Pour la plupart des cas, vous avez raison, merci! Il a été résolu.

InformationsquelleAutor Paul

21

Car je viens de perdre deux jours de ma vie à essayer de résoudre pour tryCatch pour un tri fonction, j'ai pensé que je devais partager ma sagesse (et ce qui est manquant). Pour info - tri est une fonction réelle de FinCal dans ce cas, où eu des erreurs dans quelques cas, sur un grand ensemble de données.
1. Configurer tryCatch dans le cadre d'une fonction. Par exemple:
```
irr2 <- function (x) {
  out <- tryCatch(irr(x), error = function(e) NULL)
  return(out)
}
```
2. Pour l'erreur (ou d'avertissement) pour travailler, vous avez besoin de créer une fonction. J'ai à l'origine de l'erreur de la partie juste écrit error = return(NULL) et TOUTES les valeurs revint null.
3. N'oubliez pas de créer un sous-sortie (comme mon "out") et à return(out).
- Pourquoi est-numéro 3-elle nécessaire?
InformationsquelleAutor James

tryCatch est un peu complexe de la structure syntaxique. Cependant, une fois que nous comprenons les 4 parties qui constituent une complète tryCatch appel comme indiqué ci-dessous, il devient facile à retenir:

expr: [Nécessaire] R code(s) à évaluer

erreur : [Facultatif] Ce qui doit s'exécuter si une erreur s'est produite lors de l'évaluation de l'codes expr

avertissement : [Facultatif] Ce qui doit s'exécuter si une alarme s'est produite lors de l'évaluation de l'codes expr

enfin : [Facultatif] Que doit exécuter juste avant de quitter le tryCatch appel, indépendamment de si expr a été exécuté avec succès, avec une erreur ou un avertissement

tryCatch(
    expr = {
        # Your code...
        # goes here...
        # ...
    },
    error = function(e){ 
        # (Optional)
        # Do this if an error is caught...
    },
    warning = function(w){
        # (Optional)
        # Do this if an warning is caught...
    },
    finally = {
        # (Optional)
        # Do this at the end before quitting the tryCatch structure...
    }
)

Ainsi, un jouet exemple, pour calculer le journal d'une valeur qui pourrait ressembler à:

log_calculator <- function(x){
    tryCatch(
        expr = {
            message(log(x))
            message("Successfully executed the log(x) call.")
        },
        error = function(e){
            message('Caught an error!')
            print(e)
        },
        warning = function(w){
            message('Caught an warning!')
            print(w)
        },
        finally = {
            message('All done, quitting.')
        }
    )    
}

Maintenant, l'exécution de trois cas:

Un cas valide

log_calculator(10)
# 2.30258509299405
# Successfully executed the log(x) call.
# All done, quitting.

Un "avertissement" cas

log_calculator(-10)
# Caught an warning!
# <simpleWarning in log(x): NaNs produced>
# All done, quitting.

Une "erreur" cas

log_calculator("log_me")
# Caught an error!
# <simpleError in log(x): non-numeric argument to mathematical function>
# All done, quitting.

J'ai écrit à propos de quelques cas d'utilisation que j'utilise régulièrement. Trouver plus de détails ici: https://rsangole.netlify.com/post/try-catch/

Espère que cela est utile.

Meilleur court explication que j'ai trouvé à ce jour, merci!

InformationsquelleAutor Rahul

Vous devez vous connecter pour publier un commentaire.

Réglage du code

L'application du code

De l'enquête de la sortie

Remarques supplémentaires