使用Rcpp和外部C ++库构建R包时的未定义引用

问题描述 投票:0回答:1

我正在尝试为自己使用创建一个R包,即使用Rcpp,其C ++代码包含Levmar库。我在Windows上工作。

当我使用CMake构建它并使用Visual Studio运行它时,C ++代码工作正常。但是,当我将此代码放入我的R包并尝试构建它时,我收到以下错误:

levmar_example_r.o:levmar_example_r.cpp :(。text + 0x281):对`dlevmar_der'的未定义引用

(dlevmar_der在levmar.h中声明,它包含在我的R包中,见下文)

我已经阅读了很多关于如何使用外部库(如thisthis)构建R包的SO帖子,但它并没有帮助我解决我的问题。

我的包的结构:

bin/
  |- levmar.lib
inst/
  |- include/
      |- levmar.h
man/
R/
src/
  |- Makevars
  |- Makevars.win
  |- levmar_example_r.cpp
  |- RcppExports.cpp
src-i386/
DESCRIPTION
NAMESPACE

Makevars / Makevars.win的内容

PKG_LIBS = -L../bin -llevmar
PKG_CPPFLAGS = -I../inst/include 

C ++代码(levmar_example_r.cpp)

#include <iostream>
#include <levmar.h>
#include <math.h>
#include <Rcpp.h>

void fun(double *p, double *x, int m, int n, void *data_){
  double a = p[0];
  double b = p[1];

  double *data = (double *) data_;

  for(int i = 0; i < n; i++){
      x[i] = log(a*data[i]+b);
  }
}

void jacFun(double *p, double *jac, int m, int n, void *data_){
  double a = p[0]; 
  double b = p[1];

  double *data = (double *) data_;

  int k, l;
  for(l=k=0; l < n; l++){
    jac[k++] = data[l]/(a*data[l]+b);
    jac[k++] = 1/(a*data[l]+b);
  }

}

// [[Rcpp::export]]
void test_levmar(){
  int m = 2; // # of parameters
  int n = 40; // # of observations

  double a = 1.0;
  double b = 2.0;

  double data[] = {0.119047619047619, 0.238095238095238,    0.357142857142857, 0.476190476190476,   0.595238095238095, 0.714285714285714, 1.07142857142857, 1.42857142857143,
    0.119047619047619   ,0.238095238095238, 0.357142857142857, 0.476190476190476, 0.595238095238095, 0.714285714285714  ,1.07142857142857, 1.42857142857143 ,
    0.119047619047619,  0.238095238095238,  0.357142857142857,  0.476190476190476,  0.595238095238095,  0.714285714285714,  1.07142857142857,   1.42857142857143,
    0.119047619047619,  0.238095238095238,  0.357142857142857,  0.476190476190476   ,0.595238095238095, 0.714285714285714,  1.07142857142857,   1.42857142857143,
    0.119047619047619,  0.238095238095238   ,0.357142857142857, 0.476190476190476,  0.595238095238095,  0.714285714285714,  1.07142857142857,   1.42857142857143};

  double popti[2];
  popti[0] = a; popti[1] = b;

  double x[40];
  fun(popti, x, m, n, (void *) data);

  // algorithm parameters
  double opts[LM_OPTS_SZ], info[LM_INFO_SZ];
  opts[0]=LM_INIT_MU;
  // stopping thresholds for
  opts[1]=1E-10;       // ||J^T e||_inf
  opts[2]=1E-10;       // ||Dp||_2
  opts[3]=1E-10;       // ||e||_2
  opts[4]= LM_DIFF_DELTA; // finite difference if used

  double p[2];
  p[0] = 3.0; p[1] = 1.0;

  dlevmar_der(fun,jacFun,p,x,m,n,100,opts,info,NULL,NULL,(void *) data);

  std::cout << "Optimum found:" << std::scientific << std::setprecision(8)<< "\t"<< p[0]<< "\t" << p[1]<< std::endl;
 }

我还尝试将levmar库的所有头文件放在inst / include文件夹中,将所有.c文件放在src / levmar文件夹中,然后删除

PKG_LIBS = -L../bin -llevmar

在Makevars / Makevars.win中添加

-I src/levmar

到PKG_CPPFLAGS,但它也没有成功。

你对我该做什么有什么想法吗?

如果我不够清楚,请不要犹豫要求精确

c++ rcpp r-package
1个回答
2
投票

SODD让我变得更好。我已经构建了一个非常粗糙的包来编译levmar代码并从中创建一个初始R包:https://github.com/rstub/levmaR。重点:

  • src子目录中的源文件不会自动编译。人们必须以某种方式添加它们,例如 CXX_STD = CXX11 PKG_LIBS=-L. -llevmar $(LAPACK_LIBS) $(BLAS_LIBS) $(FLIBS) PKG_CPPFLAGS=-I./levmar/ -DSTRICT_R_HEADERS all: $(SHLIB) $(SHLIB): liblevmar.a LIBOBJS = levmar/lm.o levmar/Axb.o levmar/misc.o levmar/lmlec.o levmar/lmbc.o \ levmar/lmblec.o levmar/lmbleic.o liblevmar.a: $(LIBOBJS) $(AR) rcs liblevmar.a $(LIBOBJS)
  • 默认情况下,levmar尝试构建单精度和双精度函数并尝试使用LAPACK。 R的默认构建仅包括双精度LAPACK和BLAS。我禁用了单精度构建。
  • levmar库实际上是纯C.所以我怀疑你的问题是由VC和gcc之间的不同C ++ ABI引起的问题可能不正确。很可能VC和gcc之间存在一些关于静态库布局的不兼容性。

现在唯一可用的功能是你的test_levmar()。在Linux和Windows上测试(通过Appveyor和rhub)。

© www.soinside.com 2019 - 2024. All rights reserved.