在R6类中使用rcpp函数

Question

在开发包时，有没有办法在R6类中使用Rcpp函数？示例:我在包的/src文件夹中有一个add.cpp，如下所示

#include <Rcpp.h>
using namespace Rcpp;

//
//' Add two numbers 
//'
//' @param x An integer.
//' @param y An integer
// [[Rcpp::export]]
int add(int x, int y) {
  return x + y;
}

我希望在名为Numbers的R6类中使用Rcpp add函数作为公共函数，该类位于包的/R文件夹中的Numbers.R文件中

Numbers <- R6class(
"Number",
private = list(
a =6,
b=10
),
public = list(
# How to use add function from add.cpp file using private$a and private$b as inputs 
) 
)

Answer 1

您可以简单地调用该函数。我是不是遗漏了什么？

Numbers <- R6::R6Class(
  "Number",
  private = list(
    a = 6,
    b = 10
  ),
  public = list(
    add_ab = function() {
      add(private$a, private$b)
    }
  ) 
)
# Example
num <- Numbers$new()
num$add_ab()