R环境的C扩展的简易示例

1. 被R调用的C函数必须返回void，要使用返回值，需要通过参数传递返回值指针
2. 所有传递给C函数的参数都是指针
3. 需要包含头文件R.h

1. C代码，hello.c

#include <R.h>

void hello(const char **msg) {
    Rprintf("msg from R: %s", *msg);
}

1. 编译，生成hello.so

R CMD SHLIB hello.c

1. 进入R环境，调用加载so并调用函数

> dyn.load('hello.so')
> .C("hello", as.character("hello world"))
msg from R: hello world[[1]]
[1] "hello world"

这个例子是带返回值的。

1. C代码

#include <R.h>

void plus(const int *a, const int *b, int *result) {
    *result = *a + *b;
}

1. 在R中调用

> dyn.load('hello.so')
> .C("plus", as.integer(1), as.integer(2), as.integer(0))[[3]]
[1] 3

注意，这里传参的时候，第3个返回值的参数也需要传。.C函数返回一个列表，列表的每个项保存参数的值。这里，使用的是第3个，也就是result。

• Writing R Extensions, http://cran.r-project.org/doc/manuals/R-exts.pdf