2

我最近从 amazon 下载了 2013 Rcpp 书,以了解如何更好地将 C++ 与我的 R 代码一起使用,我正在尝试使用第一个斐波那契递归函数和包装器的第一个编译示例,看看我是否能做到。我在 Ubuntu 上使用最新的 R。

首先是我的 C++:

    /* Cpp based recurive function */
int fibonacci(const int x){
  if(x == 0) return(0);
  if(x == 1) return(1);
  return(fibonacci(x - 1) + fibonacci(x - 2));
}


/* Wrapper */
extern "C" SEXP fibWrapper(SEXP xs) {
  int x = Rcpp::as<int>(xs);
  int fib = fibonacci(x);
  return(Rcpp::wrap(fib));
}

然后我启动 sh 并输入:

PKG_CXXFLAGS=`Rscript -e 'Rcpp:::CxxFlags()'`
PKG_LIBS=`Rscript -e 'Rcpp:::LdFlags()'`
R CMD SHLIB Fibonacci.cpp

但我得到:

g++ -I/usr/share/R/include -DNDEBUG      -fpic  -O3 -pipe  -g  -c Fibonacci.cpp -o Fibonacci.o
Fibbonacci.cpp:10:12: error: 'SEXP' does not name a type
make: *** [Fibonacci.o] Error 1

我想也许我需要在我的 C++ 代码中包含指令,所以我再做一次,但这次#include<Rcpp.h>在 C++ 文件的顶部,并在 sh 中再次执行相同的命令,但仍然没有乐趣:

g++ -I/usr/share/R/include -DNDEBUG      -fpic  -O3 -pipe  -g  -c Fibonacci.cpp -o Fibonacci.o
Fibonacci.cpp:1:18: fatal error: Rcpp.h: No such file or directory
compilation terminated.
make: *** [Fibbonacci.o] Error 1

我做错了什么?如果我查询我在 sh 中设置的值:

$PKG_CXXFLAGS
sh: 9: -I/local/yrq12edu/R/x86_64-pc-linux-gnu-library/3.0/Rcpp/include: not found
$PKG_LIBS
sh: 10: -L/local/yrq12edu/R/x86_64-pc-linux-gnu-library/3.0/Rcpp/lib: not found

但我认为找不到消息只是因为 -L 标志,因为如果我 cd 到目录,文件就在那里。

谢谢,本。

4

2 回答 2

4

你似乎忽略了一个重要的细节。当你这样做

PKG_CXXFLAGS=`Rscript -e 'Rcpp:::CxxFlags()'`
PKG_LIBS=`Rscript -e 'Rcpp:::LdFlags()'`
R CMD SHLIB Fibonacci.cpp

前两个的结果应该分配并导出到 shell。您在这里所做的“分配和忘记”。

清单 2.1 中显示了这一点(或者可能是电子书放弃了它——我没有电子书),你错过的是非常重要的尾部反斜杠,它使所有内容都变成一行:

PKG_CXXFLAGS=`Rscript -e 'Rcpp:::CxxFlags()'` \
PKG_LIBS=`Rscript -e 'Rcpp:::LdFlags()'`  \
R CMD SHLIB Fibonacci.cpp

现在分配发生在与调用 R(shell 脚本本身)相同的执行中,它具有值并将它们传递给 g++ 的调用。

您可以从接下来的两行中看出我完全引用了具有所有必需的 -I 和 -L 部分的结果命令。因此(编译和链接步骤)都经过多行。

所以这本书是正确的,如果按照所示的方式完成所有这些工作。内联(在本章后面讨论)和属性(也在同一章后面讨论)基本上都为你做PKG_CXXFLAGSandPKG_LIBS赋值。

编辑:另外,您的测试是错误的。你的意思可能是这个

$ PKG_CXXFLAGS=`Rscript -e 'Rcpp:::CxxFlags()'`
$ echo $PKG_CXXFLAGS
-I/usr/local/lib/R/site-library/Rcpp/include
$ 

你不能只是“调用”一个 shell 变量,因此你得到了“未找到”的答案。

编辑 2:无论如何,您尝试的示例实际上只是为了激发第 2.4 节中的其余讨论,其中详细说明了如何费力、容易出错……这是——导致第 2.5 和 2.6 节关于内联和属性。两者都好得多;使用那些。

于 2013-10-02T20:51:14.223 回答
1

你是如何安装 R 的?看起来您缺少 R 标头。也许您需要安装r-base-dev软件包

关于代码,您不需要包装器。你可以把它放在一个.cpp文件中:

#include <Rcpp.h>
using namespace Rcpp ;

// [[Rcpp::export]]
int fibonacci(const int x){
  if(x == 0) return(0);
  if(x == 1) return(1);
  return(fibonacci(x - 1) + fibonacci(x - 2));
}

只是sourceCpp这个文件:

> sourceCpp( "fib.cpp" )
> fibonacci(6)
[1] 8
于 2013-10-02T17:42:31.140 回答