package org.simantics.r.scl;

import java.util.Arrays;

import org.rosuda.REngine.REXP;
import org.rosuda.REngine.REXPMismatchException;
import org.rosuda.REngine.REngineException;
import org.rosuda.REngine.Rserve.RConnection;
import org.rosuda.REngine.Rserve.RSession;

public class TestRServe {

    public static void main(String[] args) throws REXPMismatchException, REngineException {
        RSession session;
        {
            RConnection c = new RConnection("130.188.198.138");
            c.login("simupedia", "simupedia");
            c.assign("a", new double[] {13});
            c.assign("b", new double[] {12});
            REXP x =  c.eval("ls()");
            System.out.println(Arrays.toString(x.asStrings()));
            session = c.detach();
        }
        
        {
            RConnection c = session.attach();
            c.login("simupedia", "simupedia");
            c.assign("c", new double[] {13});
            c.assign("d", new double[] {12});
            REXP x =  c.eval("ls()");
            System.out.println(Arrays.toString(x.asStrings()));
            c.close();
        }
    }
    
}