Question

假设我在C ++中有以下两个函数：

// [[Rcpp::export]]
SEXP foo() {

  int a = 1;

  Rcpp::XPtr<int> ptr(&a, true);

  return ptr;
}

// [[Rcpp::export]]
int bar(SEXP a){

  Rcpp::XPtr<int> x(a);
  int b = *x;

  return b;
}

我希望能够在R中调用类似下面的内容。当然，在这个示例中，我可以在int中将foo返回给R，但在我的原始代码中，a是一个有点复杂的数据结构，我不想返回只有指向这个的指针，所以它可以被另一个名为bar

的C ++函数重用

a <- foo()
bar(a)

在这个例子中，我预计bar(a)返回1而不是0.我该如何解决这个问题？

Answer 1

函数在a完成后，您的初始变量foo就会超出范围。相反，您需要首先初始化指针，分配它，然后用XPtr包装它。以下显示了如何执行此操作的示例。

// [[Rcpp::export]]
SEXP foo() {

  int *a = new int(1);

  Rcpp::XPtr<int> ptr(a);

  return ptr;
}

R代码

Rcpp::sourceCpp('test.cpp')

a <- foo()
bar(a)
[1] 1

将c ++对象作为指针传递给Rcpp中的另一个函数重用

1 个答案: