rcpp_charactervector_internal_type.cpp

#include <Rcpp.h>
using namespace Rcpp;

// [[Rcpp::export]]
StringVector check( StringVector x ) {
  Rcout << "The type of x is: " << ::TYPEOF( x ) << std::endl;
  Rcout << "The type of x(0) is: " << ::TYPEOF( x(0) ) << std::endl;
  Rcout << "The integer associated with STRSXPs is: " << STRSXP << std::endl;
  Rcout << "The integer associated with CHARSXPs is: " << CHARSXP << std::endl;
  Rcout << "Is x a string?: " << ::Rf_isString(x) << std::endl;
  Rcout << "Is x(0) a string?: " << ::Rf_isString(x(0)) << std::endl;
  return x;
}

/*** R
check( c("a", "b", "c") )
*/