Rserve， java调用R源文件

Rserve安装和加载：

　　install.packages("Rserve")

　　library("Rserve")

　　Rserve()

 

java调用：

　　REngine.jar, RserveEngine.jar

这两个包在安装目录的R\R-3.1.0\library\Rserve\java目录下

 

调用自己写的R函数：

　　例如code.R里R代码如下：

ff <- function(x) {
  x+
};

gg <- function(x) {
  ff(x)
}

　　直接加载R文件：

String fileName=”F:\\java\\Rtest\\src\\customerCurn1.R”;
c.assign(“fileName”, fileName);
c.eval(“source(fileName)”);

java测试代码：

　　

package com.xy;

import org.rosuda.REngine.REXP;
import org.rosuda.REngine.REXPMismatchException;
import org.rosuda.REngine.Rserve.RConnection;
import org.rosuda.REngine.Rserve.RserveException;

public class Demo1 {

    public static void main(String[] args) throws RserveException, REXPMismatchException {
        Demo1 demo = new Demo1();
        demo.callRserve();
    }

    public void callRserve() throws RserveException, REXPMismatchException {
        RConnection c = new RConnection("127.0.0.1");

        String fileName="D:\\java-workspace\\Rserve\\src\\main\\resources\\code.R";
        c.assign("fileName", fileName);
        REXP rexp = c.eval("source(fileName)");
        int res = c.eval("gg(2)").asInteger();

        REXP x = c.eval("R.version.string");
        System.out.println(x.asString());//打印变量x

        double[] arr = c.eval("rnorm(10)").asDoubles();
        for (double a : arr) {//循环打印变量arr
            System.out.print(a + ",");
        }

        c.close();
    }
}