带有c的R包(没有Rcpp)

2023年4月3日 366次阅读

我试图用c而不使用Rcpp来构建一个R包(我知道Rcpp工作得非常好).我已经阅读了几个R包教程,并简要阅读了写R扩展.下面的示例1)正在工作,但示例2)崩溃R.我想知道为什么会发生这种情况(是否有任何先决条件为R等编写函数……？).

例1

在.cpp文件中

extern "C" {

  SEXP add(SEXP a, SEXP b) {

    SEXP result = PROTECT(allocVector(REALSXP, 1));

    REAL(result)[0] = asReal(a) + asReal(b);

    UNPROTECT(1);

    return result;

  }

}

打电话给R：

.Call("add", 3.0, 2.0).

这个例子有效.

例2

在.cpp文件中：

extern "C" {

  void RHello() {

    Rprintf("Hello.\n");

    R_FlushConsole();
    R_ProcessEvents();

  }

}

打电话给R：

.Call("RHello").

这会导致R崩溃

最佳答案 在第二种情况下(void返回值)函数的签名是错误的,它需要返回一个SEXP对象.即使那只是R_NilValue.

我希望你有充分的理由不使用Rcpp.

点赞