rcpp - 如何在 Rcpp 的函数参数中将默认值设置为 Rcpp::Function？

Question

我想将函数参数中的默认值设置为 Rcpp::Function 参数。

只是简单的赋值，Rcpp::Function func = mean ， 不可能。它返回错误:no viable conversion from '<overloaded function type>' to 'Rcpp::Function' (aka 'Function_Impl<PreserveStorage>')
或者，我尝试过这样的事情:Rcpp::Function func = Function("mean") ，但同样，它不起作用。它返回警告消息:Unable to parse C++ default value 'Function("mean")' for argument func of function .

例如，我有自己的函数，最大称为 maxC :

// [[Rcpp::export]]
double maxC(NumericVector x) {
  double max;
  max = *std::max_element(x.begin(), x.end());

  return max;
}

现在，我想将它( maxC )用作另一个函数的默认参数，例如:

// [[Rcpp::export]]
double aggregate(NumericVector x, Rcpp::Function func = maxC) {
  double agg;
  agg = Rcpp::as<double>(func(x));

  return agg;   
}

但它不起作用。有什么建议？谢谢你。

Answer 1

我不相信您可以通过这种方式设置默认功能...可以实现的最佳功能是将功能设置为NULL值，然后让代码稍后执行适当的默认值。例如...

#include <Rcpp.h>

// [[Rcpp::export]]
Rcpp::NumericVector func_defaults(Rcpp::NumericVector x,
                                  Rcpp::Nullable<Rcpp::Function> f = R_NilValue) {

  if (f.isNotNull()) {
    Rcpp::NumericVector res = Rcpp::as<Rcpp::Function>(f)(x);
    return res;
  }

  Rcpp::Environment global_funcs = Rcpp::Environment::global_env();
  Rcpp::Function mean_r = global_funcs["mean"];
  return mean_r(x);
}

测试:

func_defaults(c(2.5,3,1))
# [1] 2.166667
func_defaults(c(2.5,3,1), mean)
# [1] 2.166667
func_defaults(c(2.5,3,1), median)
# [1] 2.5