Rcpp:从 Rcpp 中的包调用 C 函数

Question

我想用 Rcpp 编写一个 C++ 函数，它使用 hypred 包中的 C 函数，它在 CRAN here 上.

我读了using C function from other package in Rcpp ，但不明白这是否适用于我，如果适用，该怎么办。

所需函数位于源文件 /src/hypredRoutines.c 中，名为 meiosisFUNAllChr。

到目前为止，我根据这个 SO 问题做了什么 here是:

1. 我将函数 meiosisFUNAllChr 与其余代码分开，并将其放在一个名为 meiosisFUNAllChr.c 的新文件中。

2. 我创建了一个名为 meiosisFUNAllChr.h 的头文件，其中包含:

   #ifndef MEIOSISFUNALLCHR_H
   #define MEIOSISFUNALLCHR_H
   void meiosisFUNallChr (...);
   #endif 
   

3. 编译它

   gcc -c -o meiosisFUNAllChr.o meiosisFUNAllChr.c
   

4. 创建了一个虚拟的 c++ 函数

   #include <Rcpp.h>
   using namespace Rcpp;
   
   extern "C" {
    #include "meiosisFUNallChr.h"
   }
   
   // [[Rcpp::export]]
   int timesTwo(int x) {
    return x * 2;
   }
   

此时用sourceCpp编译是不行的。你能告诉我如何让它工作吗？

非常感谢!

编辑

用 sourceCpp 编译给我:

meiosisFUNallChr.h: file or directory not found

Answer 1

hypred 注册了它的两个函数，在 R 级别你可以像这样得到你想要的那个:

xp <- getDLLRegisteredRoutines( getLoadedDLLs()[["hypred"]] )[[".C"]][["meiosisFUNallChr"]]$address

我相信您可以像这样在 C++ 中访问函数指针:

DL_FUNC meiosisFUNallChr = reinterpret_cast<DL_FUNC>( R_ExternalPtrAddr(xp) ) ;

但是你最好与他们实现的包作者协商 this scheme如果您可以证明您确实需要直接调用 C 函数。