| 394 | |
| 395 | |
| 396 | inline void forward_exception_to_r(const std::exception& ex){ |
| 397 | SEXP stop_sym = Rf_install( "stop" ) ; |
| 398 | Rcpp::Shield<SEXP> condition( exception_to_r_condition(ex) ); |
| 399 | Rcpp::Shield<SEXP> expr( Rf_lang2( stop_sym , condition ) ) ; |
| 400 | Rf_eval( expr, R_GlobalEnv ) ; |
| 401 | } |
| 402 | |
| 403 | inline void forward_rcpp_exception_to_r(const Rcpp::exception& ex) { |
| 404 | SEXP stop_sym = Rf_install( "stop" ) ; |
no test coverage detected