Merge pull request #194 from luckyrandom/feature/logical-vector-from-bool

alternate LogicalVector construction from bool

Author: kevinushey

inst/include/Rcpp/traits/is_bool.h

@@ -0,0 +1,24 @@
+#ifndef Rcpp__traits__is_bool__h
+#define Rcpp__traits__is_bool__h
+
+namespace Rcpp{ namespace traits {
+
+template<typename>
+struct is_bool
+    : public false_type { };
+
+template<>
+struct is_bool<bool>
+    : public true_type { };
+
+template<>
+struct is_bool<const bool>
+    : public true_type { };
+
+template<>
+struct is_bool<volatile bool>
+    : public true_type { };
+
+}}
+
+#endif

inst/include/Rcpp/traits/traits.h

@@ -60,6 +60,7 @@ struct int2type { enum { value = I }; };
 #include <Rcpp/traits/is_finite.h>
 #include <Rcpp/traits/is_infinite.h>
 #include <Rcpp/traits/is_nan.h>
+#include <Rcpp/traits/is_bool.h>
 #include <Rcpp/traits/if_.h>
 #include <Rcpp/traits/get_na.h>
 #include <Rcpp/traits/is_trivial.h>

inst/include/Rcpp/vector/Vector.h

@@ -120,8 +120,11 @@ class Vector :
     }
 
     // Enable construction from bool for LogicalVectors
-    template <int T = RTYPE>
-    Vector(bool value, typename Rcpp::traits::enable_if<T == LGLSXP, void>::type* = 0) {
+    // SFINAE only work for template. Add template class T and then restict T to
+    // bool.
+    template <typename T>
+    Vector(T value,
+           typename Rcpp::traits::enable_if<traits::is_bool<T>::value && RTYPE == LGLSXP, void>::type* = 0) {
         Storage::set__(Rf_allocVector(RTYPE, 1));
         fill(value);
     }