使用RCPP模块公开C++类

我正在尝试使用RCPP模块将C++类公开给R。我试图创建一个简单的示例来理解它是如何工作的。我有两个类Bar和Foo，它们存储在自己的cpp文件中，位于包的src文件夹中。Bar.cpp的代码如下：

#include "Bar.h"
#include "Foo.h"
#include <Rcpp.h>
using namespace Rcpp;

Bar::Bar(){x = 0;};

int Bar::getX(){return x;}

void Bar::setX(int num){x = num;}

int Bar::sumXY(){
  Foo f = Foo();
  f.setY(5);
  return x + f.getY();
}

RCPP_MODULE(bar_mod){
  class_<Bar>("Bar")
  .constructor()
  .method("getX", &Bar::getX)
  .method("setX", &Bar::setX)
  .method("sumXY", &Bar::sumXY)
  ;
}

其头文件的代码如下所示。

class Bar{
public:
  Bar();
  int getX();
  void setX(int num);
  int sumXY();
private:
  int x;
};

Foo.cpp的代码如下。

#include "Foo.h"
#include <Rcpp.h>
using namespace Rcpp;

Foo::Foo(){
  y = 0;
}

int Foo::getY(){return y;}

void Foo::setY(int num){y = num;}

RCPP_MODULE(foo_module){
  class_<Foo>("Foo")
  .constructor()
  .method("getY", &Foo::getY)
  .method("setY", &Foo::setY)
  ;
}

其头文件的代码如下所示。

class Foo{
public:
  Foo();
  int getY();
  void setY(int num);
private:
  int y;
};

Bar.cpp文件包括两个头文件(Bar.h和Foo.h)。Bar中的setxy()方法创建一个Foo对象并调用其方法(因此它使用自身文件之外的类和方法)。

我想从R中的这两个类创建对象，并调用它们的方法。我正在尝试使用以下代码在R中加载这些模块：

require(Rcpp)
loadModule("foo_mod", TRUE)
loadModule("bar_mod", TRUE)

foo_mod <- Module("foo_mod")
bar_mod <- Module("bar_mod")

foo <- new (Foo)
bar <- new (Bar)

但是，我收到以下错误：

.getClassesFromCache(Class)中出错：找不到对象‘foo’

我做错了什么？

---

解决方案

我认为您可能只是在命名上草率。尝试在宏RCPP_MODULE和加载器中更一致地使用标识符，即我将使用

RCPP_MODULE(bar)   // not bar_mod
//...
RCPP_MODULE(foo)   // not foo_modules

然后通过

加载(在包中，这一点很重要)

loadModule("foo", TRUE)
loadModule("bar", TRUE)

之后您可以执行以下操作(一旦您加载了包，这也是必须的)

z <- new(foo)

参见MyRcppAnnoy包。