如何通过Rcpp包将函数从C ++传递给R以便在R中集成？

Question

我正尝试通过Rcpp

执行以下操作

在C ++中

#include<Rcpp.h>
using namespace Rcpp;
// [[Rcpp::export]]
double func(double x, double y) {
  return x*y;
}

在R：

g<-function(x){func(x,1)}
integrate(g,lower=0, upper=2)

错误消息返回为＆＃34; func（x，1）出错：期望单个值。＆＃34;似乎功能＆＃34; x * y＆＃34;是不是从C ++传递给R，它可以用于R中的集成。有人可以给我一些关于如何使它工作的想法吗？ （我知道这种集成可以直接在C ++中完成，但我必须在R中进行集成）。

提前感谢所有有用的评论！