applied patch by Thomas Tse to provide missing is<T>() for Character(Vector|Matrix)

Author: eddelbuettel

ChangeLog

@@ -1,3 +1,10 @@
+2013-10-01  Dirk Eddelbuettel  <edd@debian.org>
+
+	* inst/include/Rcpp/api/meat/is.h: Applied patch by Thomas Tse to
+	provide missing Character(Vector|Matrix)
+
+        * DESCRIPTION: Bump to development release 0.10.5.1
+
 2013-09-28  Dirk Eddelbuettel  <edd@debian.org>
 
         * DESCRIPTION: Release 0.10.5

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: Rcpp
 Title: Seamless R and C++ Integration
-Version: 0.10.5
+Version: 0.10.5.1
 Date: $Date$
 Author: Dirk Eddelbuettel and Romain Francois, with contributions 
  by Douglas Bates, John Chambers and JJ Allaire

inst/NEWS.Rd

@@ -2,6 +2,17 @@
 \title{News for Package 'Rcpp'}
 \newcommand{\cpkg}{\href{http://CRAN.R-project.org/package=#1}{\pkg{#1}}}
 
+\section{Changes in Rcpp version 0.10.5.1 (2013-10-01)}{
+  \itemize{
+    \item Changes in Rcpp API:
+    \itemize{
+      \item Two missing \code{is<>()} templates for
+      \code{CharacterVector} and \code{CharacterMatrix} have been added
+      thanks to Thomas Tse.  
+    }
+  }
+}
+
 \section{Changes in Rcpp version 0.10.5 (2013-09-28)}{
   \itemize{
     \item Changes in R code:

inst/THANKS

@@ -25,6 +25,7 @@ Dominick Samperi        for starting what is now in the RcppClassic package
 Oleg Sklyar             for the incredibly cool inline package
 Alexey Stukalov         for a support enabling Intel Compiler 12.0 support
 Luke Tierney            for helpful discussions on R internals
+Thomas Tse              for a patch filling in two missing is<T>() instances
 Simon Urbanek           for help on OS X build issues and with R internals
 Ken Williams            for additional OS X testing
 Jelmer Ypma             for contributing the Rcout iostreams class patch

inst/include/Rcpp/api/meat/is.h

@@ -50,7 +50,12 @@ namespace internal{
     template <> inline bool is__simple<String>( SEXP x ){
         return is_atomic(x) && TYPEOF(x) == STRSXP ;
     }
-    
+    template <> inline bool is__simple<CharacterVector>(SEXP x) {
+        return TYPEOF(x) == STRSXP;
+    }
+    template <> inline bool is__simple<CharacterMatrix>(SEXP x) {
+        return TYPEOF(x) == STRSXP && is_matrix(x);
+    }
     template <> inline bool is__simple<RObject>( SEXP x ){
         return true ;
     }