RCPP - Definieren einer C++ Funktion, die eine R-Funktion und ein Auslassungszeichen Argument nimmt

Question

I ein R-Funktion bar haben, die eine andere R-Funktion foo, definiert wie folgt möglich:

foo <- function(x,y) x + y 
bar <- function(foo, z, ...) z + foo(...) 

Ein Aufruf von bar würde der sein, Form:

bar(foo, 1,2,3) 

Jetzt mit foo wie oben definiert, ich möchte eine C++ Version von bar erstellen. Hier ist, was ich versucht habe:

library(Rcpp) 
cppFunction(
' 
    double bar(Function foo, double z, ...) { 
    return z + foo(...); 
} 
') 

Dies funktioniert eindeutig nicht. Was wäre der richtige Weg, um diese Funktion in C++ zu definieren?

Danke.

Answer 1

Es könnte einfacher sein, Ihre Auslassungszeichen in eine Liste zu machen, bevor es zu RCPP

bar <- function(foo, z, ...) { 
    args <- list(...) 
    bar_internal(foo, z, args) 
} 

Und dann RCPP Funktion kann einfach nehmen eine Rcpp::List statt Ellipsen Fütterung.

double bar_internal(Function foo, double z, List args){ 

}