Rcpp find unique character vectors

Question

I am learning Rcpp from Hadley Wickham\'s Advance R: http://adv-r.had.co.nz/Rcpp.html.

There is one exercise to implement R function unique() in Rcpp using an unordered_s