第 4 章 将Rcpp嵌入R代码

三种方式可以让你在R代码中写Rcpp代码，即使用sourceCpp()， cppFunction()， evalCpp()函数.

4.1 sourceCpp()

不同于3.2中需要加载外部的Rcpp文件，你可以直接在R中，写Rcpp代码，并且将其保存为一个字符串对象，然后利用sourceCpp()加载这个对象。

src <-
"#include <Rcpp.h>
using namespace Rcpp;
// [[Rcpp::export]]
double rcpp_sum(NumericVector v){
  double sum = 0;
  for(int i=0; i<v.length(); ++i){
    sum += v[i];
  }
  return(sum);
}"
sourceCpp(code = src)
rcpp_sum(1:10)

4.2 cppFunction()

cppFunction()提供了一种更加便利的方式来构建单一的Rcpp函数(采用sourceCpp的方式可以写多个Rcpp函数被R调用)。使用cppFunction()时，可以忽略#include <Rcpp.h> 和 using namespase Rcpp;。

src <-
  "double rcpp_sum(NumericVector v){
    double sum = 0;
    for(int i=0; i<v.length(); ++i){
      sum += v[i];
    }
    return(sum);
  }
  "
Rcpp::cppFunction(src)
rcpp_sum(1:10)

4.3 evalCpp()

可以使用evalCpp()直接执行单个的C++声明。

# Showing maximum value of double.
evalCpp('std::numeric_limits<double>::max()')