8

我正在尝试从我的 rcpp 代码报告错误。我正在使用exception (const char *message_, const char *file, int line)来自http://dirk.eddelbuettel.com/code/rcpp/html/classRcpp_1_1exception.html的构造函数。为了隔离问题，我写了以下内容bar.cpp：

#include <Rcpp.h>

RcppExport SEXP bar( SEXP x){
        throw(Rcpp::exception("My Error Message","bar.cpp",4));
        return x ;
}

当我在 R 中运行它时，这就是我得到的：

> dyn.load("bar.so")
> is.loaded("bar")
[1] TRUE
> .Call("bar",12)
Error: SET_VECTOR_ELT() can only be applied to a 'list', not a 'NULL'
>
4

2 回答 2

6

你可以

  • 使用内联包，它将try/catch块放入它为您生成的函数中（通过使用两个简单的宏）

  • 或者按照我博客上的一堆示例或Rcpp包的示例/部分中所示手动执行，

但是做你的事情（即：在 try/catch 块之外抛出）永远行不通。

作为额外的奖励，这是一个完整的示例（基本上已经存在于单元测试中）：

R> library(inline)
R> f <- cxxfunction(signature(), plugin="Rcpp", body='
+    throw std::range_error("boom");
+    return R_NilValue;
+ ')
R> f()
Error in f() : boom
R>

同样，在这里为您cxxfunction()放置一个try/catch()块，您可以查看是否打开verbose：

R> f <- cxxfunction(signature(), plugin="Rcpp", body='
+    throw std::range_error("boom");
+    return R_NilValue;
+ ', verbose=TRUE)
 >> setting environment variables:
PKG_LIBS =  -L/usr/local/lib/R/site-library/Rcpp/lib \
            -lRcpp -Wl,-rpath,/usr/local/lib/R/site-library/Rcpp/lib

 >> LinkingTo : Rcpp
CLINK_CPPFLAGS =  -I"/usr/local/lib/R/site-library/Rcpp/include"

 >> Program source :

   1 :
   2 : // includes from the plugin
   3 :
   4 : #include <Rcpp.h>
   5 :
   6 :
   7 : #ifndef BEGIN_RCPP
   8 : #define BEGIN_RCPP
   9 : #endif
  10 :
  11 : #ifndef END_RCPP
  12 : #define END_RCPP
  13 : #endif
  14 :
  15 : using namespace Rcpp;
  16 :
  17 :
  18 :
  19 : // user includes
  20 :
  21 :
  22 : // declarations
  23 : extern "C" {
  24 : SEXP file4cc53282( ) ;
  25 : }
  26 :
  27 : // definition
  28 :
  29 : SEXP file4cc53282(  ){
  30 : BEGIN_RCPP
  31 :
  32 :    throw std::range_error("boom");
  33 :    return R_NilValue;
  34 :
  35 : END_RCPP
  36 : }
  37 :
  38 :
Compilation argument:
 /usr/lib/R/bin/R CMD SHLIB file4cc53282.cpp 2> file4cc53282.cpp.err.txt
ccache g++-4.6 -I/usr/share/R/include   \
   -I"/usr/local/lib/R/site-library/Rcpp/include"   \
   -fpic  -g0 -O3 -Wall -pipe -Wno-unused -pedantic -c file4cc53282.cpp \
   -o file4cc53282.o
g++ -shared -o file4cc53282.so file4cc53282.o \
   -L/usr/local/lib/R/site-library/Rcpp/lib \
   -lRcpp -Wl,-rpath,/usr/local/lib/R/site-library/Rcpp/lib \
   -L/usr/lib/R/lib -lR
R>

BEGIN_RCPP并在此处添加您需要的END_CPP魔法。

请务必将您的问题移至 rcpp-devel。

于 2011-12-08T22:48:19.667 回答
4

只需将您的代码包装在BEGIN_RCPP/中END_RCPP：

RcppExport SEXP bar( SEXP x){
BEGIN_RCPP

        throw(Rcpp::exception("My Error Message","bar.cpp",4));
        return x ;

END_RCPP
}

请注意，您也可以抛出正常的 std 异常：

throw std::invalid_argument("'x' is too short");
于 2011-12-08T22:54:18.547 回答