c - C数组到Rcpp NumericVector

Question

我正在使用C数组，因此需要在代码中的某些时候将它们转换为Rcpp::NumericVector。我尝试了以下代码，但引发了错误(无法从double [5]转换为'SEXP'类型)。从C数组转换为NumericVector的正确方法是什么？

library(Rcpp)
cppFunction(
'
NumericVector fun() {
  double data[5] = {1.0, 2.0. 1.0, 2.0, 1.0};
  return as<NumericVector>(data);
}
')

Answer 1

我知道有两种方法可以做到:

1:范围构造函数

cppFunction('
    NumericVector fun() {
        double data[5] = {1.0,2.0,1.0,2.0,1.0};
        return NumericVector(data,data+sizeof(data)/sizeof(*data));
    }
');
fun();
## [1] 1 2 1 2 1

2:构建一个STL vector ，包装在SEXP中，最后包装在NumericVector中

cppFunction('
    NumericVector fun() {
        double data[5] = {1.0,2.0,1.0,2.0,1.0};
        return as<NumericVector>(wrap(std::vector<double>(data,data+sizeof(data)/sizeof(*data))));
    }
');
fun();
## [1] 1 2 1 2 1