UTF8 CharacterVector

gistfile1.cpp

#include <Rcpp.h>
using namespace Rcpp;

// [[Rcpp::export]]
CharacterVector asUTF8(CharacterVector x) {
    const void *vmax = vmaxget();
    CharacterVector xUTF8(x.length());
    for (int i = 0; i<x.length(); i++) {
        const char* utf8 = Rf_translateCharUTF8(x[i]);
        xUTF8[i] = Rf_mkCharCE(utf8, CE_UTF8);
    }
    vmaxset(vmax);
    return xUTF8;
}

// [[Rcpp::export]]
std::string asUTF8String(CharacterVector x, int i) {
  
    if (i > x.length())
      stop("Invalid index specified");
  
    std::string strUTF8;
    const void *vmax = vmaxget();
    strUTF8 = std::string(Rf_translateCharUTF8(x[i-1]));
    vmaxset(vmax);
    return strUTF8;
}