add asBool2

git-svn-id: https://svn.r-project.org/R/trunk@87841 00db46b3-68df-0310-9c12-caf00c1e9a41

Author: ripley

src/include/Defn.h

@@ -104,6 +104,7 @@ Rcomplex Rf_ComplexFromReal(double, int*);
 #undef CALLED_FROM_DEFN_H
 
 Rboolean Rf_asRbool(SEXP x,SEXP call);
+bool Rf_asBool2(SEXP x,SEXP call);
 
 
 /* UUID identifying the internals version -- packages using compiled
@@ -1730,6 +1731,7 @@ int R_NaN_is_R_NA(double);
 void R_RestoreHashCount(SEXP rho);
 
 # define allocCharsxp		Rf_allocCharsxp
+# define asBool2	       	Rf_asBool2
 # define asRbool		Rf_asRbool
 # define asVecSize		Rf_asVecSize
 # define asXLength		Rf_asXLength

src/main/coerce.c

@@ -1824,7 +1824,7 @@ int asLogical(SEXP x)
     return asLogical2(x, /* checking = */ 0, R_NilValue);
 }
 
-// private version
+// private versions
 Rboolean asRbool(SEXP x, SEXP call)
 {
     int ans = asLogical2(x, 1, call);
@@ -1833,6 +1833,14 @@ Rboolean asRbool(SEXP x, SEXP call)
     return (Rboolean) ans;
 }
 
+bool asBool2(SEXP x, SEXP call)
+{
+    int ans = asLogical2(x, 1, call);
+    if (ans == NA_LOGICAL)
+	errorcall(call, _("NA in coercion to Rboolean"));
+    return (bool) ans;
+}
+
 // public version
 Rboolean asRboolean(SEXP x)
 {