NMdata (version 0.2.3)

tryCatchAll: Catch errors, warnings, messages

Description

Catch errors, warnings, messages

Usage

tryCatchAll(expr, message = FALSE, warning = TRUE, error = TRUE)

Arguments

expr

The expression to catch errors, warnings, messages from

message

Catch messages? Default is `FALSE`.

warning

Catch warnings? Default is `TRUE`.

error

Catch errors? Default is `TRUE`.

Examples

testfun <- function(x) {
    message("Starting function")
    if (x == 0) warning("x is zero")
    if (x < 0) stop("x is negative")
    message("Ending function")
    x
}

## use the class of the result to test whether anything was
## caught.
res1 <- NMdata:::tryCatchAll(testfun(1))  
res1
inherits(res1,"tryCatchAll")
res1b <- NMdata:::tryCatchAll(testfun(1),message=FALSE)  
res1b
inherits(res1b,"tryCatchAll")

res2 <- NMdata:::tryCatchAll(testfun(0))  
res2
inherits(res2,"tryCatchAll")

res3 <- NMdata:::tryCatchAll(testfun(-1)) 
res3
inherits(res3,"tryCatchAll")