Package org.renjin.eval

Examples of org.renjin.eval.EvalException

47
48
49
50
51
52
53
54
55
56
57
   
    PairList args = call.getArguments();
    Symbol symbol = args.getElementAsSEXP(0);
    SEXP elementsExp = context.evaluate(args.getElementAsSEXP(1), rho);
    if(!(elementsExp instanceof Vector)) {
      throw new EvalException("invalid for() loop sequence");
    }
    Vector elements = (Vector) elementsExp;
    SEXP statement = args.getElementAsSEXP(2);
    for(int i=0; i!=elements.length(); ++i) {
      try {
View Full Code Here
73
74
75
76
77
78
79
80
  }


  private static void assertNotNa(double r1) {
    if(DoubleVector.isNaN(r1)) {
      throw new EvalException("NA/NaN argument");
    }
  }
View Full Code Here
79
80
81
82
83
84
85
86
87
88
    }
  }

  private static void assertScalar(Context context, SEXP exp) {
    if(exp.length() == 0) {
      throw new EvalException("argument of length 0");
    } else if(exp.length() > 1) {
      Warning.invokeWarning(context, "numerical expression has %d elements: only the first used", exp.length());
    }
  }
View Full Code Here
87
88
89
90
91
92
93
94
    }
  }

  private static void assertFinite(String name, double to) {
    if(!DoubleVector.isFinite(to)) {
      throw new EvalException("'" + name + "' must be finite");
    }
  }
View Full Code Here
107
108
109
110
111
112
113
114
115
116
117
        times--;
      }
      return result.build();
    } else {
      if(timesVector.length() != x.length()) {
        throw new EvalException("Invalid 'times' value: times must be the same length as x");
      }
      Vector.Builder result = x.newBuilderWithInitialCapacity(x.length());
      for(int i=0;i!=x.length();++i) {
        int times = timesVector.getElementAsInt(i);
        while(times > 0) {
View Full Code Here
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
        throw new UnsupportedOperationException("implement me!");
      }
    } else if(len != Symbol.MISSING_ARG && len != Symbol.MISSING_ARG) {
      double rout = len.asReal();
      if(Double.isNaN(rout) || rout <= -0.5) {
        throw new EvalException("'length.out' must be a non-negative number");
      }
      lout = (int) Math.ceil(rout);
    }

    if(IntVector.isNA(lout)) {
      double rfrom = (from == Symbol.MISSING_ARG) ? 1.0 : from.asReal();
      double rto = (to == Symbol.MISSING_ARG) ? 1.0 : to.asReal();
      double rby = by.asReal();

      if(by == Symbol.MISSING_ARG) {
        return new Range(rfrom, rto).vector();
      } else {
        return sequenceBy(from, to, rfrom, rto, rby);
      }
    } else if (lout == 0) {
      return new IntArrayVector();

    } else if (one) {
      return new Range(1.0, lout).vector();

    } else if (by == Symbol.MISSING_ARG) {
      double rfrom = from.asReal();
      double rto = to.asReal();
      if(to == Symbol.MISSING_ARG) {
        rto = rfrom + lout - 1;
      }
      if(from == Symbol.MISSING_ARG) {
        rfrom = rto - lout + 1;
      }
      return sequenceFromTo(rfrom, rto, lout);

    } else if (to == Symbol.MISSING_ARG) {
      double rfrom = (from == Symbol.MISSING_ARG) ? 1.0 : from.asReal();
      return sequenceFrom(lout, rfrom, by.asReal());

    } else if (from == Symbol.MISSING_ARG) {
      return sequenceTo(lout, to.asReal(), by.asReal());

    } else {
      throw new EvalException("too many arguments");
    }
  }
View Full Code Here
61
62
63
64
65
66
67
68
69
      } else if(index < 0) {
        hasNeg = true;
      }
    }
    if(hasNeg && hasPos) {
      throw new EvalException("only 0's may be mixed with negative subscripts");
    }
    return !hasNeg;
  }
View Full Code Here
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
  private static SEXP sequenceBy(SEXP from, SEXP to, double rfrom, double rto, double by) {
    double del = rto - rfrom, n, dd;
    int nn;
    if(!DoubleVector.isFinite(rfrom)) {
      throw new EvalException("'from' must be finite");
    }
    assertFinite("to", rto);
    if(del == 0.0 && rto == 0.0) {
      return to;
    }
    n = del/by;
    if(!DoubleVector.isFinite(n)) {
      if(del == 0.0 && by == 0.0) {
        return from;
      } else {
        throw new EvalException("invalid '(to - from)/by' in 'seq'");
      }
    }
    dd = Math.abs(del)/Math.max(Math.abs(rto), Math.abs(rfrom));
    if(dd < 100 * DoubleVector.EPSILON) {
      return from;
    }
    if(n > (double) Integer.MAX_VALUE) {
      throw new EvalException("'by' argument is much too small");
    }
    if(n < -DoubleVector.EPSILON) {
      throw new EvalException("wrong sign in 'by' argument");
    }
    nn = (int)(n + DoubleVector.EPSILON);
    double ra[] = new double[nn+1];
    for(int i = 0; i <= nn; i++) {
      ra[i] = rfrom + (i * by);
 
View Full Code Here
57
58
59
60
61
62
63
64
65
    return "externalptr";
  }

  private MemberBinding getMemberBinding(Symbol name) {
    if(binding == null) {
      throw new EvalException("ExternalPtr is NULL for name "+name.getPrintName());
    }
    return binding.getMemberBinding(name);
  }
View Full Code Here
65
66
67
68
69
70
71
72
73
74
    } else if(envirSexp instanceof ListVector) {
      substituteContext = new ListContext((ListVector) envirSexp);
    } else if(envirSexp instanceof PairList) {
      substituteContext = new PairListContext((PairList)envirSexp);
    } else {
      throw new EvalException("Cannot substitute using environment of type %s: expected list, pairlist, or environment",
          envirSexp.getTypeName());
    }
    return substitute(exp, substituteContext);
  }
View Full Code Here
TOP

Related Classes of org.renjin.eval.EvalException

  • org.renjin.base.Base
  • org.renjin.base.Lapack
  • org.renjin.compiler.ir.tac.expressions.EnvironmentVariable
  • org.renjin.compiler.ir.tac.functions.AssignLeftTranslator
  • org.renjin.compiler.ir.tac.statements.IfStatement
  • org.renjin.compiler.runtime.UnimplementedPrimitive
  • org.renjin.gnur.RenjinCApi
  • org.renjin.graphics.internals.Graphics
  • org.renjin.graphics.internals.Par$Parameter
  • org.renjin.graphics.internals.RgbHsv
    • Copyright © 2018 www.massapicom. 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.