Workaround for #126

Author: kevinushey

ChangeLog

@@ -1,6 +1,11 @@
+2014-03-09  Kevin Ushey <[email protected]>
+
+    * inst/include/Rcpp/vector/const_string_proxy.h: Workaround for issue
+    with constructing proxies from CHARSXPs
+
 2014-03-08  Kevin Ushey <[email protected]>
 
-    * inst/include/Rcpp/proxy/proxy.h: Make sure proxys know about the
+    * inst/include/Rcpp/proxy/proxy.h: Make sure proxies know about the
     const char* wrap shortcut
 
 2014-03-08  Dirk Eddelbuettel  <[email protected]>

inst/include/Rcpp/vector/const_string_proxy.h

@@ -41,6 +41,11 @@ namespace internal{
 		 * @param index index 
 		 */
 		const_string_proxy( VECTOR& v, int index_ ) : parent(&v), index(index_){}
+        
+        const_string_proxy(SEXP x): parent(0), index(0) {
+            Vector<RTYPE> tmp(x);
+            parent = &tmp;
+        }
 
 		const_string_proxy( const const_string_proxy& other ) : 
 			parent(other.parent), index(other.index){} ;