as<char> specialization

Author: romainfrancois

ChangeLog

@@ -2,12 +2,13 @@
 
         * R/Attributes.R: Don't search the inline package as a fallback when loading plugins for the the Rcpp::plugins attribute
 
-2013-09-16  Romain Francois <romain@r-enthusiasts.com>
+2013-09-18  Romain Francois <romain@r-enthusiasts.com>
 
         * vignettes/Rcpp-package.Rnw: Updating the vignette. Setting attributes to TRUE
         by default. 
         * R/Rcpp.package.skeleton.R: Setting attributes to TRUE by default. This is
         what we should encourage people to use. 
+        * include/Rcpp/as.h: add as<char> specialization
 
 2013-09-17  JJ Allaire  <jj@rstudio.org>
 

TODO

@@ -10,9 +10,6 @@ Current active misfeatures
     o   DataFrame::create(Named("a")=b, Named("b")=b) fails with
         NumericVectors
 
-    o   Single char variables do not seem to covered correctly by as<>()
-        and wrap() (cf http://stackoverflow.com/questions/16535899/)
-
 Documentation
 
     o	Finish the quickref vignette

inst/include/Rcpp/as.h

@@ -145,6 +145,10 @@ namespace Rcpp{
         return internal::as<T>( m_sexp, typename traits::r_type_traits<T>::r_category() ) ;
     }
 
+    template <> inline char as<char>( SEXP m_sexp ){
+        return internal::check_single_string(m_sexp)[0] ;    
+    }
+    
     template <typename T> 
     inline typename traits::remove_const_and_reference<T>::type bare_as( SEXP m_sexp ){
         return as< typename traits::remove_const_and_reference<T>::type >( m_sexp ) ;