add on switch

Author: Enchufa2

inst/include/Rcpp/macros/mask.h

@@ -21,15 +21,15 @@
 #define Rcpp_macros_mask_h
 
 #ifndef RCPP_NO_MASK_RF_ERROR
-/** cannot emit a message, no warning yet
+#ifdef RCPP_MASK_RF_ERROR
 #define Rf_error(...) \
     _Pragma("GCC warning \"Use of Rf_error() instead of Rcpp::stop(). Calls \
 to Rf_error() in C++ contexts are unsafe: consider using Rcpp::stop() instead, \
 or define RCPP_NO_MASK_RF_ERROR if this is a false positive. More info:\n\
  - https://github.com/RcppCore/Rcpp/issues/1247\n\
  - https://github.com/RcppCore/Rcpp/pull/1402\"") \
     Rf_error(__VA_ARGS__)
-**/
+#endif
 #endif
 
 #endif

test.cpp

@@ -0,0 +1,18 @@
+#include <Rcpp.h>
+using namespace Rcpp;
+
+struct A {
+    A() { Rprintf("A()\n"); }
+    ~A() { Rprintf("~A()\n"); }
+};
+
+// [[Rcpp::export]]
+void uhoh() {
+    A a;
+    Rprintf("Before error\n");
+    :: Rf_error("%s: %d", "asdf", 3);
+}
+
+/*** R
+uhoh()
+*/