when debugging, abort with error on cast when incompatible with STRSXP

Jack O. Wasey · Jack O. Wasey · commit 6cf0bf3a35db · 2018-07-19T23:53:18.000-04:00
diff --git a/inst/include/Rcpp/r_cast.h b/inst/include/Rcpp/r_cast.h
@@ -123,7 +123,12 @@ namespace Rcpp {
                 return Rf_ScalarString( PRINTNAME( x ) );
             default:
                 const char* fmt = "Not compatible with STRSXP: [type=%s].";
+#ifndef NDEBUG
+                REprintf(fmt, Rf_type2char(TYPEOF(x)));
+                abort();
+#else
                 throw ::Rcpp::not_compatible(fmt, Rf_type2char(TYPEOF(x)));
+#endif
             }
             return R_NilValue; /* -Wall */
         }

Original file line number	Diff line number	Diff line change
`@@ -123,7 +123,12 @@ namespace Rcpp {`
`123`	`123`	`return Rf_ScalarString( PRINTNAME( x ) );`
`124`	`124`	`default:`
`125`	`125`	`const char* fmt = "Not compatible with STRSXP: [type=%s].";`
	`126`	`+#ifndef NDEBUG`
	`127`	`+ REprintf(fmt, Rf_type2char(TYPEOF(x)));`
	`128`	`+ abort();`
	`129`	`+#else`
`126`	`130`	`throw ::Rcpp::not_compatible(fmt, Rf_type2char(TYPEOF(x)));`
	`131`	`+#endif`
`127`	`132`	`}`
`128`	`133`	`return R_NilValue; /* -Wall */`
`129`	`134`	`}`