Rcpp - 在sourceCpp引用的文件中使用多个C++函数？

Question

我希望这不是太明显,因为我整天搜索并找不到答案.

说我有以下R文件:

library(Rcpp)
sourceCpp("cfile.cpp")

giveOutput(c(1,2,3))

它编译以下C++文件:

#include <Rcpp>
using namespace Rcpp;
// [[Rcpp::export]]

NumericVector plusTwo(NumericVector x){
  NumericVector out = x + 2.0;

  return out;
}

NumericVector giveOutput(NumericVector a){

NumericVector b = plusTwo(a);
return b;
}

无论我尝试什么,Rcpp预处理器都plusTwo()可用,而giveOutput()不是.我能够找到的文档说这是一个应该创建一个包的点,但是在阅读了包后,它看起来比我需要的要复杂一个数量级.

如果没有明确定义plusTwo()内部giveOutput(),我该怎么办？

Answer 1

您应该在要导出的每个函数前面使用export属性.所以通过纠正你的文件

#include <Rcpp.h>

using namespace Rcpp;

// [[Rcpp::export]]
NumericVector plusTwo(NumericVector x){
  NumericVector out = x + 2.0;
  return out;
}

// [[Rcpp::export]]
NumericVector giveOutput(NumericVector a){
  NumericVector b = plusTwo(a);
  return b;
}

我得到了理想的行为:

R> sourceCpp("/tmp/patrick.cpp")
R> giveOutput(1:3)
[1] 3 4 5
R> plusTwo(1:3)
[1] 3 4 5
R> 

哦,创建一个包就像调用一样简单Rcpp.package.skeleton()(但请阅读其帮助页面,特别是attributes参数).我知道至少有一个CRAN软件包开始了你如何从这里开始并明确地通过Rcpp.package.skeleton()...