Мы знаем, что в Rcpp следует избегать вызова Rf_error(), поскольку он включает в себя longjmp над деструкторами С++ в стеке. Вот почему мы скорее бросаем исключения С++ в код Rcpp (например, throw Rcpp::exception("...") или через функцию stop("...")).
Однако предупреждения R также могут привести к вызову Rf_error() (это зависит от опции warn). Таким образом, вызов Rf_warning() также опасен.
Rcpp::sourceCpp(code = '
#include <Rcpp.h>
using namespace Rcpp;
class Test {
public:
Test() { Rcout << "start\\n"; }
~Test() { Rcout << "end\\n"; }
};
// [[Rcpp::export]]
void test() {
Test t;
Rf_warning("test");
}
')
options(warn=10)
test()
## start
## Error in test() : (converted from warning) test
Мы видим, что деструктор не был вызван (нет сообщения "end" ).
Как создать предупреждение R на С++ - деструктор-дружественный способ?
Одно из решений, которые я придумал, включает вызов функции R warning из Rcpp:
// [[Rcpp::export]]
void test() {
Test t;
Function warning("warning");
warning("test"); // here R errors are caught and transformed to C++ exceptions
}
который дает правильное поведение, если warn>2:
start
end
Error in eval(expr, envir, enclos) : (converted from warning) test
Интересно, имеет ли кто-нибудь лучшую идею для этого.
Я бы рекомендовал вместо этого использовать stop() (который является оберткой вокруг try/catch):
С небольшим изменением кода:
#include <Rcpp.h>
using namespace Rcpp;
class Test {
public:
Test() { Rcout << "start\n"; }
~Test() { Rcout << "end\n"; }
};
// [[Rcpp::export]]
void test() {
Test t;
Rf_warning("test");
}
// [[Rcpp::export]]
void test2() {
Test t;
stop("test2");
}
/*** R
options(warn=10)
#test()
test2()
*/
Я получаю желаемое поведение:
R> sourceCpp("/tmp/throw.cpp")
R> options(warn=10)
R> #test()
R> test2()
start
end
Error in eval(expr, envir, enclos) (from srcConn#3) : test2
R>
Проблема longjmp известна, но вы не выигрываете, избегая механизмов, которые мы должны раскручивать.