打通R语言与C/C＋＋语言的通道

1. R语言扩展

R语言拥有大量的第三方扩展包，特别是一些统计功能相关的扩展包，非常的方便实用。但也存在着一些需要性能优化的问题，这时，有着效率著称的C/C++就可以提供大显身手的舞台。

1.2 C语言调用

R语言可以调用C语言编写的代码。C代码事先需要编译，编译后的代码以库的形式（windos *.dll, linux *.o）提供。调用时，R需要先使用函数dyn.load()加载该库，加载成功后，通过.C()函数来调用所需要的C函数。

---

1.2.1 例子

下面使用一个小例子来详细说明这个过程。

• 首先编写包含一个简单的C函数plusone的文件c_fun.c

//c函数没有返回类型
void plusone(int* x)
{
  *x=*x+1;
}

• 编译
  在R命令行执行以下命令：

system("R CMD SHLIB c_fun.c")

命令执行成功后，将会生成c_fun.so和c_fun.dll两个库文件。提示：执行命令前需要安装Rtools。

• 加载库文件
  在R命令行执行以下命令：

dyn.load("c_fun.dll")

命令执行成功后，c_fun.dll库中的函数都已加载到内存，可以被R调用。

• 调用

cfun <- function(a)
  .C("plusone",
     as.integer(a))
cfun(67)

将会输出结果68。至此，R语言调用C代码的过程结束。

• 释放库
  当库文件c_fun.dll中的函数不再需要调用时，可以显式的使用dyn.unload()函数来释放库文件。

dyn.unload("c_fun.dll")

---

1.2.2 注意事项

• C语言的函数不能有返回值类型
• R语言与C语言的数据类型对应关系如下：

R语言	C语言
logical	int *
integer	int *
double	double *
complex	Rcomplex *
character	char **
raw	unsigned char *

---

1.3 C++调用