[[Rcpp::export]]
| 450 | |
| 451 | // [[Rcpp::export]] |
| 452 | std::string character_STRSXP_( SEXP vec ){ |
| 453 | CharacterVector x(vec) ; |
| 454 | std::string st = "" ; |
| 455 | for( int i=0; i<x.size(); i++) { |
| 456 | st += x[i] ; |
| 457 | } |
| 458 | return st ; |
| 459 | } |
| 460 | |
| 461 | // [[Rcpp::export]] |
| 462 | CharacterVector character_plusequals(){ |