Wrap dispatch for character arrays

Author: kevinushey

inst/include/Rcpp/internal/wrap.h

@@ -744,6 +744,11 @@ inline SEXP wrap_dispatch( const T& object, ::Rcpp::traits::wrap_type_primitive_
 	return primitive_wrap( object ) ;
 }
 
+template <typename T>
+inline SEXP wrap_dispatch( const T& object, ::Rcpp::traits::wrap_type_char_array ) {
+  return Rf_mkString(object);
+}
+
 template <typename T>
 inline SEXP wrap_dispatch( const T& object, ::Rcpp::traits::wrap_type_module_object_pointer_tag ){
 	return Rcpp::internal::make_new_object< typename T::object_type >( object.ptr ) ;	

inst/include/Rcpp/traits/wrap_type_traits.h

@@ -51,6 +51,11 @@ struct wrap_type_module_object_tag{} ;
  */
 struct wrap_type_enum_tag{} ;
 
+/**
+ * character arrays
+ */
+struct wrap_type_char_array{} ;
+
 /**
  * Type trait that helps the dispatch of wrap to the proper method
  *
@@ -62,6 +67,8 @@ struct wrap_type_enum_tag{} ;
  */
 template <typename T> struct wrap_type_traits { typedef wrap_type_unknown_tag wrap_category; } ;
 
+template <std::size_t N> struct wrap_type_traits<char[N]> { typedef wrap_type_char_array wrap_category; } ;
+template <std::size_t N> struct wrap_type_traits<const char[N]> { typedef wrap_type_char_array wrap_category; } ;
 /**
  * Total specialization for primitive types
  */