Question

当将R与Java与RCaller集成时，我永远不会找回在脚本中创建的任何变量。似乎有一个基本的误解RCaller的工作原理。是不是可以从Java解析环境中的所有变量？怎么样？

@Test
    public void test() {
        RCaller caller = new RCaller();
        RCode code = new RCode();
        caller.setRscriptExecutable("/usr/bin/Rscript");
        caller.runAndReturnResult("source('~/git/conjoint_it/src/main/r/a.R')");
        System.out.println(caller.getParser().getNames());

    }

a.R：

...

m3 <- mlogit(choice ~ 0 + seat + cargo + eng 
             + as.numeric(as.character(price)), 
             data = cbc.mlogit)
su = summary(m3)
m3 #last line

这只返回[可见]

Answer 1

您可以使用RCaller处理环境中定义的所有变量。现在我们假设您使用全局环境（这是一个特殊的顶级环境，您可以在其中从refclass或函数声明变量）。

package org.expr.rcaller;

import java.util.ArrayList;
import org.expr.rcaller.Globals;
import org.expr.rcaller.RCaller;
import org.expr.rcaller.RCode;
import org.junit.Test;
import org.junit.Assert;

public class HandlingAllVariablesTest {

private final static double delta = 1.0 / 1000.0;

@Test
public void GetAllVariablesInEnvironmentTest() {
    RCaller caller = new RCaller();
    Globals.detect_current_rscript();
    caller.setRscriptExecutable(Globals.Rscript_current);

    RCode code = new RCode();

    code.addDouble("x", 5.65);
    code.addDouble("y", 8.96);
    code.addRCode("result <- as.list(.GlobalEnv)");

    caller.setRCode(code);

    caller.runAndReturnResult("result");

    ArrayList<String> names = caller.getParser().getNames();
    System.out.println("Names : " + names);

    System.out.println("x is " + caller.getParser().getAsDoubleArray("x")[0]);
    System.out.println("y is " + caller.getParser().getAsDoubleArray("y")[0]);

    Assert.assertEquals(caller.getParser().getAsDoubleArray("x")[0], 5.65, delta);
    Assert.assertEquals(caller.getParser().getAsDoubleArray("y")[0], 8.96, delta);
}}

这样的结果：

名称：[x，y]

x是5.65

y是8.96

这是关键点

code.addRCode（＆＃34;结果＆lt; - as.list（.GlobalEnv）＆＃34;）;

所以我们定义一个变量来捕获全局环境中定义的所有变量。 as.list（）函数将环境对象转换为列表。第二个重点是通过

将此变量转移到java中

caller.runAndReturnResult（＆＃34;导致＆＃34）;

您可以访问blog page和web page，查看有关捕获特定变量而非环境的更多示例。

Answer 2

进口：

import com.github.rcaller.rStuff.RCaller;
import com.github.rcaller.rStuff.RCode;

Java代码：

RCaller caller = new RCaller();
RCode code = new RCode();
caller.setRscriptExecutable("C:\\Program Files\\R\\R-4.0.2\\bin\\Rscript.exe");
caller.setRCode(code);
code.clear();
caller.cleanRCode();

//Methods to parse variables to the Rscript
code.addInt("mydata1", 5);
code.addDoubleArray("mydata2", new double[]{1, 2, 3, 4, 5});
code.addRCode("mydata3 <- 'Data'");

//Calling the Rscript
code.addRCode("source('./src/test.r')");

//Reciving Values from the Rscript through the result variable
caller.runAndReturnResult("result");
int data = caller.getParser().getAsIntArray("data")[0];
double mean = caller.getParser().getAsDoubleArray("mean")[0];
String text = caller.getParser().getAsStringArray("text")[0];

System.out.println(data);
System.out.println(mean);
System.out.println(text);

test.r：

result1 <- mydata1 * 2
result2 <- mean(mydata2)
result3 <- paste("Result3", mydata3, sep=" ")

result <- list(data=result1, mean=result2, text=result3)

输出：

10
3.0
Result3 Data

Rcaller没有回馈变量

2 个答案: