どう書く？org : 例外処理

original page : http://ja.doukaku.org/245/

例外処理の適当なサンプルを書いてください。

但し、言語によって例外処理がサポートされている場合はそれを利用してください。

#8763

original page : http://ja.doukaku.org/comment/8763/

RにはJavaライクな例外処理が実装されています。

> tryCatch(expr(1), error=e.handler, finally=f.handler())
[1] "finished"

> tryCatch(expr(0), error=e.handler, finally=f.handler())
[1] "not error"
[1] "finished"

expr <- function(n=1){
  if(n==1){
    stop(simpleError("Exception"))
  }
  print("not error")
}
e.handler <- function(e) e
f.handler <- function() print("finished")

tryCatch(expr(1), error=e.handler, finally=f.handler())
tryCatch(expr(0), error=e.handler, finally=f.handler())