So generieren Sie eine R-Warnung sicher in Rcpp

Question

Wir wissen, dass Aufruf in Rcpp Rf_error() vermieden werden sollte, da es eine longjmp über C++ - Destruktoren auf dem Stapel enthält. Deshalb werfen wir C++ - Exceptions lieber in Rcpp-Code (wie throw Rcpp::exception("...") oder über die stop("...")-Funktion).

R-Warnungen können jedoch auch zu einem Aufruf von Rf_error() führen (dieses Verhalten hängt von der Option warn ab). So ist ein Anruf zu Rf_warning() auch riskant.

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 

Wir sehen, dass der Destruktor aufgerufen wurde nicht (es gibt keine „Ende“ -Meldung).

Wie generiert man eine R-Warnung in einer C++ - Destruktor-freundlichen Weise?

Answer 1

Eine der Lösungen, kam ich mit beinhaltet bis die warning Funktion von RCPP der R Aufruf:

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

, die das richtige Verhalten, wenn warn>2 gibt:

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

Ich frage mich, ob jemand eine bessere hat Idee dafür.

Answer 2

Ich würde empfehlen, stop() mit (was ein Wrapper um try/catch ist) statt:

mit Ihrem Code leicht geändert:

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

ich das gewünschte Verhalten:

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> 

Die longjmp Problem ist bekannt, aber Sie gewinnen nicht, indem Sie die Mechanismen vermeiden, die wir Objekte abwickeln müssen.