Rcpp:将 SEXP 转换为 float / double

Question

SEXP callFunction1(List network, List words, Function testWordContinuity){
  SEXP res = testWordContinuity(network, words);
  return res;
}

for(int i=0; i<(n_epochs); i++){
  NumericVector outputMatchTracker = history["output.match.tracker"];
  outputMatchTracker[i] = callFunction1(network, words, testWordContinuity);
}

R 中的 testWordContinuity 函数调用 R 中的另一个返回单个数值变量的函数

我对 res 所做的一切就是使用 for 循环替换向量中的值。 for 循环开始后的第一行是将 outputMatchTracker 分配给一个零向量 (history["output.match.tracker"])，这样我就可以遍历这些零。

错误:“Cannot convert 'SEXP' to 'Rcpp::traits::storage_type<14>::type {aka double}' in assignment”出现在上面 for 循环的最后一行。

有没有办法将 res 从 SEXP 转换为 float 或 double？

我意识到这里有人问过类似的问题: Rcpp cannot convert ‘SEXP {aka SEXPREC*}’ to ‘double’ in initialization但是这个问题是通过使用 Rcpp 糖函数而不是 R 函数来解决的，以避免将 SEXP 转换为 double 。

如果没有办法将 SEXP 转换为 float 或 double，除了在 Rcpp 中编写 R 函数之外，是否有通用的方法来解决这个问题？

如有必要，很乐意提供更多信息，

谢谢。

编辑:

最小可重现示例:

在 Rcpp 中:

// [[Rcpp::export]]
SEXP callFunction(Function func){
  SEXP res = func();
  return(res);
}

// [[Rcpp::export]]
NumericVector func1(Function func){
  for(int i=0; i<10; i++){
    NumericVector vect(10);
    vect[i] = callFunction(func);
  }
  return(vect);
}

获取此代码后，将出现上述指定的错误。

Answer 1

我相信您应该使用 REAL 宏，它返回一个指向 double 数组开头的指针。参见 https://cran.r-project.org/doc/manuals/r-release/R-exts.html#Attributes举个例子。