r - 在Rcpp中用省略号传递许多参数(...)

Question

我正在尝试使用...在rcpp函数中传递参数，但是它不起作用。如何正确做到这一点？

NumericVector function(SEXP xR, ...){
    NumericVector x(xR);
    int lenx = x.size();
    NumericVector ret(lenx);
    for(int i=0; i < lenx; i++){
        if(x[i]<0){
            ret[i] = 0;
        }else if(x[i]>1){
            ret[i] = 1;
        }else{  
            ret[i] = anotherfunction(x[i], ...);
        }       
    }
    return ret; 
}

在当前版本中，我收到此错误: expected primary-expression before '...' token

Answer 1

Rcpp11具有Dots和NamedDots类的可变数量参数的概念。您将执行以下操作:

#include <Rcpp11>

List force_dots( const Dots& dots ){
    List out(n) ;
    for( int i=0; i<n; i++){
        out[i] = Rcpp_eval( dots.promise(i), dots.environment(i)) ;    
    }
    return out ;
}

// [[export]]  
List dots_example(NumericVector x, Dots dots){
    int n = dots.size() ;
    List args = force_dots(dots) ;
    return args ;
}

/*** R
    dots_example(1:10, "e" )
    # [[1]]
    # [1] "e"
*/

在此文件上使用 attributes::sourceCpp时，您会得到带有省略号的R函数:

> dots_example
function(x, ...){
  res <- .Call( "sourceCpp_dots_example" , x, environment())
  res
}

这仅部分回答了这个问题，即如何将R中可变数量的参数传递给C++。

调用 do.call函数时，您还需要与R的 another_function类似的东西。现在，您必须手动进行操作，直到我们找到实现有用的 do_call的方法为止