在 Rcpp 函数中使用无缝 R

Question

我想我之前已经看到您可以编写一个 Rcpp 函数并在其中使用 R 代码。我只是再也找不到 link 并且使用 google 根本没有帮助。您能否提供一个示例或 link 来解释如何操作？

Answer 1

关键是底部的/*** R ... */表达式，参见'Rcpp Attributes'小插图。

所以对于代码

#include <Rcpp.h>

// [[Rcpp::export]]
void reallyWorks() {
  Rcpp::Rcout << "Oh, wow, it works" << std::endl;
}

/*** R
reallyWorks()
*/

我们直接从 sourceCpp():

得到预期的行为

> sourceCpp("/tmp/soQ.cpp")

> reallyWorks()
Oh, wow, it works
>

Using seamless R in Rcpp function