web-dev-qa-db-ja.com

エラー時にループの次の値にスキップしてください

私は他のいくつかのSO tryCatchとcuzzinsについての質問、およびドキュメントを読みました：

しかし、私はまだ理解していません。

私はループを実行していますが、いくつかの種類のエラーのいずれかが発生した場合、nextにスキップします。

for (i in 1:39487) {

  # EXCEPTION HANDLING
  this.could.go.wrong <- tryCatch(
                           attemptsomething(),
                           error=function(e) next
                         )
  so.could.this <- tryCatch(
                     doesthisfail(),
                     error=function(e) next
                   )

  catch.all.errors <- function() { this.could.go.wrong; so.could.this; }
  catch.all.errors;


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

  }  #end for

（ところで、私が見つけることができるnextのドキュメントはありません）

これを実行すると、Rが鳴ります：

Error in value[[3L]](cond) : no loop for break/next, jumping to top level

ここで欠けている基本的なポイントは何ですか？ tryCatchは明らかにforループ内にあるので、なぜRがそれを知らないのですか？

rerror-handlingexception-handlingtry-catch
55
isomorphismes

tryCatchを使用する鍵は、オブジェクトを返すことを理解することです。 tryCatch内でエラーが発生した場合、このオブジェクトはerrorクラスから継承します。関数inheritを使用して、クラスの継承をテストできます。

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

編集：

引数error = function(e) eの意味は何ですか？これは私を困惑させました、そして、私はそれがドキュメントでうまく説明されるとは思わない。起こることは、この引数が、あなたがtryCatchingである式に由来するエラーメッセージをキャッチすることです。エラーをキャッチすると、tryCatchの値として返されます。ヘルプドキュメントでは、これは_calling handler_として記述されています。 error=function(e)内の引数eは、コードで発生したエラーメッセージです。

私はnextの使用が悪いことだった手続き型プログラミングの古い学校から来ました。したがって、私はあなたのコードを次のように書き直します。 （next内の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
_

関数nextは_?_ for`内に文書化されています。

メインの作業ルーチンをif内に置く代わりにそれを使用したい場合、コードは次のようになります。

_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
_
76
Andrie
rm(list=ls())
for (i in -3:3) {
  #ERROR HANDLING
  possibleError <- tryCatch({
    print(paste("Start Loop ", i ,sep=""))
    if(i==0){
      stop()
    }
  }
    ,
    error=function(e) {
      e
      print(paste("Oops! --> Error in Loop ",i,sep = ""))
    }
  )

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

  print(paste("  End Loop ",i,sep = ""))

}
5
ewittry

私が見た本当に詳細な説明はここにあります： http://mazamascience.com/WorkingWithData/?p=912

TryCatchがどのように機能するかを示す、このブログ投稿のコードクリップを次に示します。

#!/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))
4
mmann1123

Rのforループ内で関数を実行するときにforループから抜け出す が明確になっていないことの1つは、これです。

  • nextは関数内では機能しません。
  • シグナルまたはフラグを送信する必要があります（例：Voldemort = TRUE）関数内（私の場合はtryCatch）から外部へ。
  • （これは、ローカルのプライベート関数内のグローバルなパブリック変数を変更するようなものです）
  • 次に、関数の外側で、フラグが振られたかどうかを確認します（Voldemort == TRUE）。その場合は、関数の外でbreakまたはnextを呼び出します。
3
isomorphismes

他の答えは非常にわかりにくいと感じました。これは、エラーが発生した場合に次のループ反復に単純にスキップしたい人のための非常にシンプルな実装です

for (i in 1:10) {

  skip_to_next <- FALSE

  # Note that print(b) fails since b doesn't exist

  tryCatch(print(b), error = function(e) { skip_to_next <<- TRUE})

  if(skip_to_next) { next }     
}
1
user5783745