使用 Rcpp 公开构造函数，该构造函数将指向对象的指针作为参数

Question

我有以下非常简单的代码，它定义了一个 B 类，该 B 类将一个指向 A 类对象的指针作为参数。

如果我将它编译为独立的 C++，代码可以完美运行，但我无法使用 Rcpp 公开 B 类。我一定在接近结尾的.constructor<A>() 行中做错了。尝试了 &、* 等的所有组合，但没有任何效果。经过几个小时的尝试，我迷路了。欢迎任何想法。

#include <Rcpp.h>

using namespace Rcpp;

class A {
public:
  A(int val_) { val = val_; }
  int val;
};

class B {
public:
  B(A& ptr_) { ptr = &ptr_; }
  int getval() { return (this->ptr->val); }
  A *ptr;
};

RCPP_MODULE(module_cpp) {
    using namespace Rcpp;

    class_<A>("A")
    .constructor<int>()
    .field("val", &A::val)
    ;

    class_<B>("B")
    .constructor<A>()
    ;
}

Answer 1

让我们试着固执一点：B 的构造函数期望引用 A，因此我们应该将其公开，即 .constructor<A&>()。这样做我得到错误

invalid user-defined conversion from ‘SEXP’ {aka ‘SEXPREC*’} to ‘A&’

基本上我们想要创建可在 R 中调用的东西（B 的构造函数），但我们只能使用 SEXP 作为参数的类型。目前尚不清楚如何在SEXP 和A& 之间进行转换。这种转换将是 Rcpp::as 的任务（以及相反的 Rcpp::wrap），这在 Rcpp 扩展小插图中有所介绍。对于 Rcpp 模块，我们可以使用RCPP_EXPOSED_AS 和朋友提供的快捷方式，c.f. Rcpp-modules 小插图中的第 2.2.11 节。

这是一个添加了验证码的完整示例：

#include <Rcpp.h>

using namespace Rcpp;

class A {
public:
    A(int val_) { val = val_; }
    int val;
};

class B {
public:
    B(A& ptr_) { ptr = &ptr_; }
    int getval() { return (this->ptr->val); }
    A *ptr;
};

RCPP_EXPOSED_AS(A);

RCPP_MODULE(module_cpp) {
    using namespace Rcpp;

    class_<A>("A")
        .constructor<int>()
        .field("val", &A::val)
    ;

    class_<B>("B")
        .constructor<A&>()
        .method("getVal", &B::getval)
    ;
}

/***R
a <- new(A, 42)
b <- new(B, a)
b$getVal()
*/ 

输出：

> Rcpp::sourceCpp('61898230.cpp')

> a <- new(A, 42)

> b <- new(B, a)

> b$getVal()
[1] 42