Examples of RResult

Examples of weave.beans.RResult

235
236
237
238
239
240
241
242
243
244
245
            continue;
          REXP RobjValue = evalScript(rConnection, scriptToAcessRObj, false);
          //When function reference is called returns null
          if (RobjValue == null)
            continue;
          resultVector.add(new RResult(scriptToAcessRObj, rexp2javaObj(RobjValue))); 
        }
      }     
    }
   
    //To do find a better way of doing this
View Full Code Here

Examples of weave.beans.RResult

266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
      evaluateInputScript(rConnection, script, resultVector, showIntermediateResults, showWarnings);
      if (plotScript != "")
      {
        // R Script to EVALUATE plotScript
        String plotEvalValue = plotEvalScript(rConnection,docrootPath, plotScript, showWarnings);
        resultVector.add(new RResult("Plot Results", plotEvalValue));
      }
      for (int i = 0; i < outputNames.length; i++){// R Script to EVALUATE output Script
        String name = outputNames[i];           
        REXP evalValue = evalScript(rConnection, name, showWarnings); 
        resultVector.add(new RResult(name, rexp2javaObj(evalValue)));         
      }
      // clear R objects
      evalScript(rConnection, "rm(list=ls())", false);
     
    }
View Full Code Here

Examples of weave.beans.RResult

592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
        // Script to get R - output
        evalValue = evalScript(rConnection, name, showWarnings);       
//        System.out.println(evalValue);
        if (evalValue.isVector()){
          if (evalValue instanceof REXPString)
            kClusteringResult[i] = new RResult(name, evalValue.asStrings());
          else if (evalValue instanceof REXPInteger)
            kClusteringResult[i] = new RResult(name, evalValue.asIntegers());
          else if (evalValue instanceof REXPDouble){
            if (evalValue.dim() == null)
              kClusteringResult[i] = new RResult(name, evalValue.asDoubles());
            else
              kClusteringResult[i] = new RResult(name, evalValue.asDoubleMatrix());
          }
          else{
            // if no previous cases were true, return debug String
            kClusteringResult[i] = new RResult(name, evalValue.toDebugString());
          }
        }
        else{
          kClusteringResult[i] = new RResult(name, evalValue.toDebugString());
        }
      }
    }
    catch (Exception e)
    {
View Full Code Here

Examples of weave.beans.RResult

759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
        // Script to get R - output
        evalValue = evalScript(rConnection, name, showWarnings);       
//        System.out.println(evalValue);
        if (evalValue.isVector()){
          if (evalValue instanceof REXPString)
            mdResult[i] = new RResult(name, evalValue.asStrings());
          else if (evalValue instanceof REXPInteger)
            mdResult[i] = new RResult(name, evalValue.asIntegers());
          else if (evalValue instanceof REXPDouble){
            if (evalValue.dim() == null)
              mdResult[i] = new RResult(name, evalValue.asDoubles());
            else
              mdResult[i] = new RResult(name, evalValue.asDoubleMatrix());
          }
          else{
            // if no previous cases were true, return debug String
            mdResult[i] = new RResult(name, evalValue.toDebugString());
          }
        }
        else{
          mdResult[i] = new RResult(name, evalValue.toDebugString());
        }
      }
    }
    catch (Exception e)
    {
View Full Code Here

Examples of weave.beans.RResult

118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
      {
        assignNamesToVector( inputNames, inputValues, keys, useColumnAsList);
        evaluateInputScript( script, resultVector, showIntermediateResults, showWarnings );
        if (plotScript != ""){// R Script to EVALUATE plotScript
          String plotEvalValue = plotEvalScript(engine,docrootPath, plotScript, showWarnings);
          resultVector.add(new RResult("Plot Results", plotEvalValue));
        }
        for (int i = 0; i < outputNames.length; i++){// R Script to EVALUATE output Script
          String name = outputNames[i];           
          Object evalValue = evalScript(engine, name, showWarnings);         
          resultVector.add(new RResult(name, evalValue));         
        }
        // to clear R objects
        evalScript(engine, "rm(list=ls())", false);
      }
      //Happens when JRI native Library not found - engine will be null
View Full Code Here

Examples of weave.beans.RResult

184
185
186
187
188
189
190
191
192
193
            continue;
          Object RobjValue = evalScript(engine, scriptToAcessRObj, false);
          //When function reference is called returns null
          if(RobjValue == null)
            continue;
          resultVector.add(new RResult(scriptToAcessRObj, RobjValue)); 
        }
      }     
    }
  }
View Full Code Here

Examples of weave.beans.RResult

20
21
22
23
24
25
26
27
28
29
30
      + "\n" + "edges <- data.frame(from=c('a','a','a'), to=c('b','c','d'))"
      + "\n" + "g1 <- graph.data.frame(edges, directed=TRUE, vertices=vertexes)";

//    RResult rresult = new RResult();
//    rresult.setName("test");
    RResult result[];
    try
    {
      result = rService.runScript(null,inputNames, inputValues, outputNames, script, "", false, true,false);
    }
    catch (Exception e)
View Full Code Here
TOP
Copyright © 2018 www.massapi.com. All rights reserved.
All source code are property of their respective owners. Java is a trademark of Sun Microsystems, Inc and owned by ORACLE Inc. Contact coftware#gmail.com.