Merge pull request #882 from jackwasey/abortstrsxp

eddelbuettel · web-flow · commit e0f04a808265 · 2018-07-20T07:00:21.000-05:00
when debugging, abort with error on cast when incompatible with STRSXP
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`	`}`