div - Cómo generar una advertencia R de forma segura en Rcpp

sidebarpanel shiny

Question

Sabemos que llamar a Rf_error() debe evitarse en Rcpp, ya que implica un longjmp sobre los destructores de C ++ en la pila. Esta es la razón por la que preferimos lanzar excepciones C ++ en el código Rcpp (como throw Rcpp::exception("...") o mediante la función de stop("...") ).

Sin embargo, las advertencias R también pueden resultar en una llamada a Rf_error() (este comportamiento depende de la opción de warn ). Por lo tanto, una llamada a Rf_warning() también es arriesgada.

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

Vemos que no se ha llamado al destructor (no hay un mensaje de "fin").

¿Cómo generar una advertencia de R en una forma C ++, de una manera amigable para el destructor?

Answer 1

Recomendaría usar stop() (que es un envoltorio alrededor de try/catch ) en su lugar:

Con su código ligeramente modificado:

#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()
*/

Me sale el comportamiento deseado:

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> 

El problema de longjmp es conocido, pero no gana al evitar los mecanismos que tenemos para desenrollar objetos.

Answer 2

Una de las soluciones que encontré involucra llamar a la función de warning de R desde Rcpp:

// [[Rcpp::export]]
void test() {
   Test t;
   Function warning("warning");
   warning("test"); // here R errors are caught and transformed to C++ exceptions
}

que da el comportamiento correcto si warn>2 :

start
end
Error in eval(expr, envir, enclos) : (converted from warning) test

Me pregunto si alguien tiene una mejor idea para eso.