Abort on R type error if debugging (#860)

* Abort on R type error if debugging

* elif should be else

* use R function to write to stderr

Author: jackwasey

ChangeLog

@@ -11,6 +11,9 @@
 
 	* inst/include/Rcpp/api/meat/Rcpp_eval.h: Evaluate in base env
 
+2018-06-05  Jack Wasey <jack@jackwasey.com>
+        * inst/include/Rcpp/r_cast.h: Error and abort if debugging
+
 2018-06-02  Lionel Henry  <lionel@rstudio.com>
 
         * inst/unitTests/runit.interface.R: New test for the case where

inst/include/Rcpp/r_cast.h

@@ -67,9 +67,16 @@ namespace Rcpp {
             default:
                 const char* fmt = "Not compatible with requested type: "
                                   "[type=%s; target=%s].";
+#ifndef NDEBUG
+                REprintf(fmt,
+                         Rf_type2char(TYPEOF(x)),
+                         Rf_type2char(RTYPE));
+                abort();
+#else
                 throw ::Rcpp::not_compatible(fmt,
                                              Rf_type2char(TYPEOF(x)),
                                              Rf_type2char(RTYPE));
+#endif
             }							// #nocov end
             return R_NilValue; /* -Wall */
         }