c - 是否有可能在 C 中为 Rf_eval R 捕获错误？

Question

我需要在 C 中捕获 Rf_eval 中的错误。这可能吗？

一些示例函数

SEXP foo(SEXP x, SEXP env) {
   SEXP res;
   PROTECT(res = Rf_eval(x, env));
   UNPROTECT(1); 
   return res;
}

我尝试了 Rcpp 和 Rcpp11 中的 Rcpp_eval，但它们都不适合我的情况，我需要调用 Rf_eval 直接。是否可以直接在 C 中捕获错误？如果是怎么办？

Answer 1

在 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;
}

与

> .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;
}

用作

.Call("silent", quote(stop("oops")), .GlobalEnv, quote(geterrmessage()))

在 R 级别保留尽可能多的代码(例如，条件错误处理)可能很有意义，方法是包装要评估的函数或提供自定义错误处理函数而不是 geterrmessage ()。