중첩 된 tryCatch가 오류를 catch하지 않습니까?

Question

나는 기능이 있습니다.

buggy <- function(...) { 
    tryCatch({ 
     itWorked <- FALSE 
     stop("I don't like green eggs and ham!") 
     itWorked <- TRUE 
    }, finally = { 
     if (itWorked) 
      return("I do, Sam I am") 
     else 
      return("I do not like them, Sam I am!") 
    }) 
} 

기본적으로 buggy가 나 (itWorked에 의해 결정 성공하지 못할 수있는 몇 가지 계산을하려고를 finally 절은 단지 계산이 뭔가를 작동하지 않은 경우에도 있는지 확인합니다 . (이 경우, "I do not like them, Sam I am!"에서) 반환됩니다

를이 예상대로 작동합니다

> buggy() 
Error in tryCatchList(expr, classes, parentenv, handlers) : 
    I don't like green eggs and ham! 
[1] "I do not like them, Sam I am!" 

이 지금은오류를 수신 할:

buggy에 오류가 주변 tryCatch에 오류를 발생하지 그러나

tryCatch(buggy(), 
      error=function(e) message('too bad! there was an error')) 

왜

이

'too bad! there was an error' 
[1] "I do not like them, Sam I am!" 

사람이 말해 줄 수 :

> tryCatch(buggy(), 
+   error=function(e) message('too bad! there was an error')) 
[1] "I do not like them, Sam I am!" 

나는이 말을 기대 이 작동하지 않습니다? buggy에서 오류를 어떻게 든 '제기'해야합니까?

Answer 1

외부 tryCatch()는 다음 호출하지 않는 것을 당신에게 정확히 같은 이유로 그 error 인수에 저장된 메시지를 제공하지 않습니다

tryCatch("I do not like them, Sam I am!", 
    error=function(e) message('too bad! there was an error')) 
# [1] "I do not like them, Sam I am!" 

두 줄까지 error 인수의 메시지

것 buggy()이 오류를 반환 한 경우에만 호출됩니다. 그러나 대신 (그것의 tryCatch() 내부의 작업 덕분에), buggy() 그냥 문자 벡터를 반환하고 tryCatch() 아무것도에 '캐치'가 없습니다 :

value <- buggy() 
value 
# [1] "I do not like them, Sam I am!" 

# And, to belabor the point: 
identical(buggy(), "I do not like them, Sam I am!") 
# [1] TRUE