오류/경고 발생시 tryCatch에서 함수 실행

Question

오류/경고 발생시 다른 기능을 실행하려는 tryCatch 함수를 사용하고 있습니다. 이 다른 함수는 일부 인수에 따라 다르며 어떤 이유로 인해 tryCatch은 오류 및 경고 함수 일 때 tryCatch을 인식하지 못합니다. 여기 저도 같은 문제에 직면하고있어 단순화 된 기능입니다 :

essai <- function(x){ 
y <- 2 
result <- tryCatch({ 
    sqrt(x*y) 
} , warning = function(cond,x,y) { 
    message(cond) 
    sqrt(abs(x*y)) 
} , error = function(cond,x,y) { 
    message(cond) 
    sqrt(abs(x*y)) 
} , finally = { 
    message("done") 
}) 
} 

nbs <- c(1,2,3,-1,-2) 
lapply(nbs, essai) 

그러나 나는 여기 Error in value[[3L]](cond) : argument "x" is missing, with no default를라는 오류 메시지가 있습니다. R은 실패한 함수에서 사용 된 x와 y를 재사용해야한다는 것을 이해하지 못합니다. 이유는 무엇입니까?

Answer 1

error 및 warning은 하나의 인수를 취합니다. 이 잘 작동 : 인수의

essai <- function(x, cond = 'problem'){ 
    y <- 2 
    result <- tryCatch({ 
    sqrt(x*y) 
    } , warning = function(w) { 
    message(cond) 
    sqrt(abs(x*y)) 
    } , error = function(e) { 
    message(cond) 
    sqrt(abs(x*y)) 
    } , finally = { 
    message("done") 
    }) 
} 

나머지는 당신의 essai 기능에 지정 될 수 있으며, 경고 및 오류에서 모두 사용할 수 있습니다.

nbs <- c(1,2,3,-1,-2) 
lapply(nbs, essai) 
#done 
#done 
#done 
#problem 
#done 
#problem 
#done 
# [[1]] 
# [1] 1.414214 
# 
# [[2]] 
# [1] 2 
# 
# [[3]] 
# [1] 2.44949 
# 
# [[4]] 
# [1] 1.414214 
# 
# [[5]] 
# [1] 2