r - 将 char* 转换为 SEXP

Question

我需要将已知长度的 const char* 转换为 Rcpp::RawVector 以返回到 R.

Rcpp::wrap 适用于许多类型，但似乎不适用于 char *。

Answer 1

library(Rcpp)
library(inline)

ƒ <- rcpp(body='
const char* text = "this is some text";
Rcpp::RawVector rv(strlen(text));
for(unsigned int i=0; i<strlen(text); i++) { rv[i] = text[i]; }
return(rv);
')

ƒ()
##  [1] 74 68 69 73 20 69 73 20 73 6f 6d 65 20 74 65 78 74

rawToChar(ƒ())
## [1] "this is some text"

更新

@nrussell的method更好:

#include <Rcpp.h>
#include <cstring>

// [[Rcpp::export]]
Rcpp::RawVector to_raw(const char* str) {
    Rcpp::RawVector res(str, str + std::strlen(str));
    return res;
}