Rcpp，使函数可以从 DLL 中用于 R

Question

C++ 新手，我想让在 DLL 中编译的函数在 R 中可用。

到目前为止，我通过在 VisualStudio 中遵循 these steps，然后使用 R 中的 dyn.load 加载创建的 dll，成功地为一个以 integer 作为输入并返回相同的基本函数做到了这一点。

但是，我的 C++ 函数需要处理 R data.frame 对象，我不确定如何实现。我从the Rcpp gallery 看到Rcpp 可能包含R 和c++ 数据类型之间的某种转换，包括data.frame 对象，但我不知道我是否可以使用Rcpp 生成一个dll，然后我可以将其包含在其中R 使用dyn.load。

从this answer by Dirk Eddelbuettel 看来，使用Rcpp 生成“动态库”似乎是可能的，但是，当我尝试使用rcpp.package.skeleton() 生成带有源.cpp 文件的包时，我找不到任何dll。我想要一个 dll 的函数来自the Rcpp gallery

#include <Rcpp.h>
using namespace Rcpp;
// [[Rcpp::export]]
DataFrame modifyDataFrame(DataFrame df) {
  // access the columns
  IntegerVector a = df["a"];
  CharacterVector b = df["b"];

  // make some changes
  a[2] = 42;
  b[1] = "foo";       
  // return a new data frame
  return DataFrame::create(_["a"]= a, _["b"]= b);
}

我尝试将该代码粘贴到 VisualStudio 中以尝试生成该 DLL，但是我遇到了我非常期待的错误“找不到 Rcpp.h”。

然后我在 RStudio 中按照以下步骤操作：

1. 创建新项目/包
2. 包含这个 cpp 源文件作为这个包的源文件
3. include rcpp 并输入Rcpp.package.skeleton("mypackage") 到目前为止，包文件夹中没有DLL
4. 尝试通过转到构建/安装并重新启动在 RStudio 中构建包，但随后我收到一条错误消息“构建 R 包需要安装其他构建工具，您要安装它们吗？”但是我已经安装了 RbuildTools 3.4，当我在 RStudio 中单击“是”时，没有任何反应。

PS：很高兴听到其他方法，但如果可能，应该使用 DLL 格式。非常感谢任何信息，因为我基本上不知道 Rcpp 或 C++ 是如何工作的

Answer 1

您需要弄清楚为什么您的设置会受到影响。这意味着很容易而且很容易。观看：

R> Rcpp::cppFunction('DataFrame modDF(DataFrame df) { IntegerVector a = df["a"]; CharacterVector b = df["b"]; a[2] = 42; b[1] = "foo"; return DataFrame::create(Named("a")=a, Named("b")=b); } ')                  
R> df <- data.frame(a=1:3, b=letters[24:26])                                                                                                                                                                       
R> df                                                                                                                                                                                                              
  a b                                                                                                                                                                                                              
1 1 x                                                                                                                                                                                                              
2 2 y                                                                                                                                                                                                              
3 3 z                                                                                                                                                                                                              
R> modDF(df)                                                                                                                                                                                                       
   a   b                                                                                                                                                                                                           
1  1   x                                                                                                                                                                                                           
2  2 foo                                                                                                                                                                                                           
3 42   z                                                                                                                                                                                                           
R>      

现在，我显然不建议用这种方式写一篇很长的单行。 你已经在正确的轨道上设置一个包。但是你需要弄清楚是什么阻碍了你的工具。

作为 PS，上面的单行具有更好的缩进：

R> Rcpp::cppFunction('DataFrame modDF(DataFrame df) { \
      IntegerVector a = df["a"]; \
      CharacterVector b = df["b"]; \
      a[2] = 42;  \
      b[1] = "foo"; \ 
      return DataFrame::create(Named("a")=a, Named("b")=b); \
    } ')                  

Answer 2

以下似乎有效：

1. 来自 R，运行 Rcpp.package.skeleton("dfcpp4", cpp_files="modifyDataFrame.cpp")。为了使modifyDataFrame 函数可以从dll 使用dyn.load 使用，第二个参数是必需的。
2. 从命令行运行R CMD build dfcpp4
3. 从命令行运行R CMD check dfcpp4 --no-manual。
4. dll 文件现在存在于 src-x64 文件夹中

我现在可以使用

调用此函数

dyn.load("dfcpp4/src-x64/dfcpp4.dll")
df <- data.frame(a = c(1, 2, 3),
                 b = c("x", "y", "z"))
.Call("_dfcpp4_modifyDataFrame", df)
   a   b
1  1   x
2  2 foo
3 42   z

我不明白为什么在这种情况下应该使用.Call 而不是.C...