带有c的R包(没有Rcpp)

我试图用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崩溃