swh:1:snp:a4c99a50dc49f82b591f268001b320f8c3ca0041
Tip revision: 698183c35adc80e5e08cb2ef09ed13dc3c445a97 authored by John M Chambers on 12 June 2014, 00:00:00 UTC
version 1.0-6
version 1.0-6
Tip revision: 698183c
muststop.R
muststop <- function(expr, silent = TRUE) {
tryExpr <- substitute(tryCatch(expr, error=function(cond)cond))
value <- eval.parent(tryExpr)
if(inherits(value, "error")) {
if(!silent)
message("muststop reports: ", value)
invisible(value)
}
else
stop(gettextf("The expression %s should have thrown an error, but instead returned an object of class \"%s\"",
deparse(substitute(expr))[[1]], class(value)))
}