Rcpp - Определить функцию С ++, которая принимает функцию R и многоточие аргумент

Question

У меня есть функцию bar R, который принимает другую функцию R foo, определяется следующим образом:

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

Вызов bar бы из форма:

bar(foo, 1,2,3) 

Теперь с foo, как определено выше, я хочу, чтобы создать версию C++ из bar. Вот что я пробовал:

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

Это явно не работает. Каким будет правильный способ определить эту функцию в C++?

Спасибо.

Answer 1

Это может быть проще, чтобы превратить ваше многоточие в список перед подачей его в Rcpp

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

И тогда ваша функция Rcpp может просто взять Rcpp::List вместо многоточия.

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

}