fix LogicalVector construction from bool

Author: kevinushey

ChangeLog

@@ -1,3 +1,10 @@
+2014-09-13  Kevin Ushey  <kevinushey@gmail.com>
+
+        * inst/include/Rcpp/vector/Vector.h: Allow logical vectors to be created
+        from bools
+        * inst/unitTests/runit.Vector.R: Idem
+        * inst/unitTests/cpp/Vector.cpp: Idem
+
 2014-09-13  Dirk Eddelbuettel  <edd@debian.org>
 
         * inst/skeleton/Rcpp_modules_examples.Rd: Added to document modules examples

inst/include/Rcpp/vector/Vector.h

@@ -119,6 +119,12 @@ class Vector :
         }
     }
 
+    template <typename T = typename Rcpp::traits::if_<RTYPE == LGLSXP, bool, void>::type>
+    Vector(bool value) {
+        Storage::set__(Rf_allocVector(RTYPE, 1));
+        fill(value);
+    }
+
     template <typename U>
     Vector( const Dimension& dims, const U& u) {
         RCPP_DEBUG_2( "Vector<%d>( const Dimension& (%d), const U& )", RTYPE, dims.size() )

inst/unitTests/cpp/Vector.cpp

@@ -750,3 +750,14 @@ List list_sexp_assign(SEXP x) {
     L = x;
     return L;
 }
+
+// [[Rcpp::export]]
+bool logical_vector_from_bool() {
+    return true;
+}
+
+// [[Rcpp::export]]
+LogicalVector logical_vector_from_bool_assign() {
+    LogicalVector result = true;
+    return result;
+}

inst/unitTests/runit.Vector.R

@@ -665,6 +665,14 @@ if (.runThisTest) {
         other <- list_sexp_assign(l)
         checkIdentical(l, other)
     }
+
+    test.logical.vector.from.bool <- function() {
+        checkIdentical(logical_vector_from_bool(), TRUE)
+    }
+
+    test.logical.vector.from.bool.assign <- function() {
+        checkIdentical(logical_vector_from_bool_assign(), TRUE)
+    }
 
 }