org.simantics.r.scl/src/org/simantics/r/scl/TestRServe.java

   1 package org.simantics.r.scl;\r
   2 \r
   3 import java.util.Arrays;\r
   4 \r
   5 import org.rosuda.REngine.REXP;\r
   6 import org.rosuda.REngine.REXPMismatchException;\r
   7 import org.rosuda.REngine.REngineException;\r
   8 import org.rosuda.REngine.Rserve.RConnection;\r
   9 import org.rosuda.REngine.Rserve.RSession;\r
  10 \r
  11 public class TestRServe {\r
  12 \r
  13     public static void main(String[] args) throws REXPMismatchException, REngineException {\r
  14         RSession session;\r
  15         {\r
  16             RConnection c = new RConnection("130.188.198.138");\r
  17             c.login("simupedia", "simupedia");\r
  18             c.assign("a", new double[] {13});\r
  19             c.assign("b", new double[] {12});\r
  20             REXP x =  c.eval("ls()");\r
  21             System.out.println(Arrays.toString(x.asStrings()));\r
  22             session = c.detach();\r
  23         }\r
  24         \r
  25         {\r
  26             RConnection c = session.attach();\r
  27             c.login("simupedia", "simupedia");\r
  28             c.assign("c", new double[] {13});\r
  29             c.assign("d", new double[] {12});\r
  30             REXP x =  c.eval("ls()");\r
  31             System.out.println(Arrays.toString(x.asStrings()));\r
  32             c.close();\r
  33         }\r
  34     }\r
  35     \r
  36 }\r