Merge pull request #882 from jackwasey/abortstrsxp

when debugging, abort with error on cast when incompatible with STRSXP
RcppCore · Jul 20, 2018 · e0f04a8 · e0f04a8
2 parents 2d4eb21 + 6cf0bf3
commit e0f04a8
Showing 1 changed file with 5 additions and 0 deletions.
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 */
         }