Utilisation tryCatch passer à la valeur suivante de la boucle sur l'erreur?

La clé de l'utilisation tryCatch est se rendre compte qu'elle renvoie un objet. Si il y a une erreur à l'intérieur de la tryCatch alors cet objet va hériter de la classe error. Vous pouvez tester l'héritage de classe avec la fonction inherit.

x <- tryCatch(stop("Error"), error = function(e) e)
class(x)
"simpleError" "error"       "condition"  

Edit:

Quel est le sens de l'argument error = function(e) e? Ceci m'a dérouté, et je ne pense pas que c'est bien expliqué dans la documentation. Ce qui se passe, c'est que cet argument des captures de tous les messages d'erreur qui proviennent de l'expression qui vous sont tryCatching. Si une erreur est traitée, elle est retournée en tant que valeur de tryCatch. Dans la documentation d'aide de ce qui est décrit comme un calling handler. L'argument e à l'intérieur de error=function(e) est le message d'erreur provenant de votre code.

Je suis de la vieille école de la programmation procédurale, où à l'aide de next était une mauvaise chose. Donc, je voudrais réécrire votre code quelque chose comme ça. (Note que j'ai enlevé le next déclaration à l'intérieur de la tryCatch.):

for (i in 1:39487) {
  #ERROR HANDLING
  possibleError <- tryCatch(
      thing(),
      error=function(e) e
  )

  if(!inherits(possibleError, "error")){
    #REAL WORK
    useful(i); fun(i); good(i);
  }

}  #end for

La fonction next est documenté à l'intérieur de ?pour`.

Si vous souhaitez utiliser à la place d'avoir votre principal travail de routine à l'intérieur d'un if, votre code devrait ressembler à quelque chose comme ceci:

for (i in 1:39487) {
  #ERROR HANDLING
  possibleError <- tryCatch(
      thing(),
      error=function(e) e
  )

  if(inherits(possibleError, "error")) next

  #REAL WORK
  useful(i); fun(i); good(i);

}  #end for

La seule vraie explication détaillée que j'ai vu peut être trouvé ici: http://mazamascience.com/WorkingWithData/?p=912

Voici un clip de code à partir de ce post de blog montrant comment tryCatch œuvres

#!/usr/bin/env Rscript
# tryCatch.r -- experiments with tryCatch
# Get any arguments
arguments <- commandArgs(trailingOnly=TRUE)
a <- arguments[1]
# Define a division function that can issue warnings and errors
myDivide <- function(d, a) {
if (a == 'warning') {
return_value <- 'myDivide warning result'
warning("myDivide warning message")
} else if (a == 'error') {
return_value <- 'myDivide error result'
stop("myDivide error message")
} else {
return_value = d / as.numeric(a)
}
return(return_value)
}
# Evalute the desired series of expressions inside of tryCatch
result <- tryCatch({
b <- 2
c <- b^2
d <- c+2
if (a == 'suppress-warnings') {
e <- suppressWarnings(myDivide(d,a))
} else {
e <- myDivide(d,a) # 6/a
}
f <- e + 100
}, warning = function(war) {
# warning handler picks up where error was generated
print(paste("MY_WARNING:  ",war))
b <- "changing 'b' inside the warning handler has no effect"
e <- myDivide(d,0.1) # =60
f <- e + 100
return(f)
}, error = function(err) {
# warning handler picks up where error was generated
print(paste("MY_ERROR:  ",err))
b <- "changing 'b' inside the error handler has no effect"
e <- myDivide(d,0.01) # =600
f <- e + 100
return(f)
}, finally = {
print(paste("a =",a))
print(paste("b =",b))
print(paste("c =",c))
print(paste("d =",d))
# NOTE:  Finally is evaluated in the context of of the inital
# NOTE:  tryCatch block and 'e' will not exist if a warning
# NOTE:  or error occurred.
#print(paste("e =",e))
}) # END tryCatch
print(paste("result =",result))

J'ai trouvé d'autres réponses très déroutant. Ici est extrêmement simple de mise en œuvre pour tous ceux qui veulent simplement passer à la prochaine itération de boucle dans le cas d'une erreur

for (i in 1:10) {
tryCatch(print(b), error = function(e) { print("hi"); skip_to_next <<- TRUE})
if(skip_to_next) { next }     
}