added omitted is__simple<Rcomplex>. needed for tidyverse/dplyr#933

Author: romainfrancois

ChangeLog

@@ -1,3 +1,7 @@
+2014-04-14  Romain Francois  <[email protected]>
+
+        * inst/include/Rcpp/api/meat/is.h: added is__simple<Rcomplex>
+
 2015-04-12  Dirk Eddelbuettel  <[email protected]>
 
         * vignettes/Rcpp-FAQ.Rnw: Also load Rcpp to make cppFunction visible

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

@@ -45,6 +45,9 @@ namespace Rcpp {
     template <> inline bool is__simple<String>(SEXP x) {
         return is_atomic(x) && TYPEOF(x) == STRSXP;
     }
+    template <> inline bool is__simple<Rcomplex>(SEXP x) {
+        return is_atomic(x) && TYPEOF(x) == CPLXSXP;
+    }
     template <> inline bool is__simple<CharacterVector>(SEXP x) {
         return TYPEOF(x) == STRSXP;
     }