在 Rinternals.h 中使用 R_tryEval 或 R_tryEvalSilent
#include <Rdefines.h>
SEXP foo(SEXP fun, SEXP env)
{
int err = 0;
R_tryEval(fun, env, &err);
if (err)
Rprintf("error occurred\n");
return R_NilValue;
}
with
> .Call("foo", quote(stop("oops")), .GlobalEnv)
Error: oops
error occurred
NULL
这是一个更完整的示例,检索最后一个错误
#include <Rdefines.h>
SEXP silent(SEXP fun, SEXP env, SEXP errmsg)
{
int err = 0;
SEXP result = PROTECT(R_tryEvalSilent(fun, env, &err));
if (err) {
SEXP msg = PROTECT(R_tryEvalSilent(errmsg, env, &err));
if (!err)
Rprintf("error occurred: %s",
CHAR(STRING_ELT(msg, 0)));
else
Rprintf("(unknown) error occurred");
UNPROTECT(1);
result = R_NilValue;
}
UNPROTECT(1);
return result;
}
used as
.Call("silent", quote(stop("oops")), .GlobalEnv, quote(geterrmessage()))
在 R 级别留下尽可能多的代码(例如,条件错误处理)可能很有意义,可以通过包装要评估的函数或提供自定义错误处理函数来代替geterrmessage()
.