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

#include <Rcpp.h>
using namespace Rcpp;

// 定义一个使用Rcpp::Function作为参数的函数
// 并设置默认值为Rcpp::Function::getDefault()
NumericVector myFunction(NumericVector x, Rcpp::Function f = Rcpp::Function::getDefault()) {
  // 检查是否传入了函数参数
  if (f != R_NilValue) {
    // 调用传入的函数
    f(x);
  }
  
  // 执行其他操作
  NumericVector result = x * 2;
  return result;
}

// [[Rcpp::export]]
NumericVector testFunction(NumericVector x) {
  // 调用myFunction，并传入一个自定义的函数作为参数
  NumericVector result = myFunction(x, [](NumericVector x) {
    Rcout << "Custom function called!" << std::endl;
    // 在这里可以执行自定义的函数逻辑
  });
  
  return result;
}