handling proxy = const proxy operator for CharacterVector. added test for bug found while working on RcppArmadillo

Author: romainfrancois

inst/include/Rcpp/vector/const_string_proxy.h

@@ -152,6 +152,13 @@ namespace internal{
 		return x + static_cast<const char*>(y) ;
 	}
 
+	
+	template <int RTYPE>
+	string_proxy<RTYPE>& string_proxy<RTYPE>::operator=(const const_string_proxy<RTYPE>& other){
+       set( other.get() ) ;
+       return *this ;
+    }
+		
 
 }
 

inst/include/Rcpp/vector/string_proxy.h

@@ -57,6 +57,8 @@ namespace internal{
 			return *this ;
 		}
 
+		string_proxy& operator=( const const_string_proxy<RTYPE>& other) ;
+		
 		string_proxy& operator=( const String& s) ;
 
 		/**

inst/unitTests/cpp/Vector.cpp

@@ -729,3 +729,11 @@ std::string character_vector_const_proxy(const CharacterVector& str){
     return cstr ;
 }
 
+// [[Rcpp::export]]
+CharacterVector CharacterVector_test_const_proxy(const CharacterVector x){
+    CharacterVector out( x.size() ) ;
+    for( int i=0; i<x.size(); i++){
+        out[i] = x[i] ;    
+    }
+    return out ;
+}

inst/unitTests/runit.Vector.R

@@ -654,5 +654,9 @@ if (.runThisTest) {
         checkEquals( res, "fooo", msg = "CharacterVector const proxy. #32" )
     }
 
+    test.CharacterVector.test.const.proxy <- function(){
+        res <- CharacterVector_test_const_proxy( letters )
+        checkEquals( res, letters )
+    }
 }