Examples of FunctionCall

Examples of org.renjin.sexp.FunctionCall

295
296
297
298
299
300
301
302
303
304
305
    if(f_env != Null.INSTANCE) {
      args.add(f_env);
    }

    try {
      return context.evaluate(new FunctionCall(s_MethodsListSelect, args.build()), methodsNamespace);
    } catch(EvalException e) {
      throw new EvalException(String.format("S language method selection got an error when called from" +
          " internal dispatch for function '%s'", fname), e);
    }
  }
View Full Code Here

Examples of org.renjin.sexp.FunctionCall

341
342
343
344
345
346
347
348
349
350
351
       "loadMethod", which would produce a recursive loop */
    if(fname.equals("loadMethod")) {
      return def;
    }
    if(found < attrib.length()) {
      FunctionCall call = FunctionCall.newCall(R_loadMethod_name, def, StringArrayVector.valueOf(fname), ev);
      return context.evaluate(call, ev);

      //      SEXP e, val;
      //      PROTECT(e = allocVector(LANGSXP, 4));
      //      SETCAR(e, R_loadMethod_name); val = CDR(e);
View Full Code Here

Examples of org.renjin.sexp.FunctionCall

550
551
552
553
554
555
556
557
558
559
       the current sysparent. */
    Environment callerenv = cptr.getCallingEnvironment(); /* or rho? */

    /* get the rest of the stuff we need from the current context,
       execute the method, and return the result */
    FunctionCall call = cptr.getCall();
    PairList arglist = cptr.getArguments();
    SEXP val = R_execClosure(context, call, op, arglist, callerenv, newrho);
    return val;
  }
View Full Code Here

Examples of org.renjin.sexp.FunctionCall

67
68
69
70
71
72
73
    // create dummy fcall
    PairList.Builder args = new PairList.Builder();
    for(Expression argument : arguments) {
      args.add(StringVector.valueOf(argument.toString()));
    }
    return new PrimitiveCall(new FunctionCall(Symbol.get(fnName), args.build()), fnName, arguments);
  }
View Full Code Here

Examples of org.renjin.sexp.FunctionCall

384
385
386
387
388
389
390
391
392
393
394
395
    eval("x <- bquote(~0 + .(quote(births)))");
    eval("print(x)");

    // expected : ~0 + births
   
    FunctionCall tildeCall = (FunctionCall) topLevelContext.getGlobalEnvironment().getVariable("x");
    assertThat(tildeCall.getFunction(), equalTo((SEXP)symbol("~")));   
    assertThat(tildeCall.getArguments().length(), equalTo(1));
   
    FunctionCall plusCall = (FunctionCall)tildeCall.getArgument(0);
    assertThat(plusCall.getFunction(), equalTo((SEXP)symbol("+")));   
  }
View Full Code Here

Examples of org.renjin.sexp.FunctionCall

87
88
89
90
91
92
93
94
95
96
97
      this.context = context;
    }

    @Override
    public void visit(FunctionCall call) {
      result = new FunctionCall(
          substitute(call.getFunction()),
          substituteArgumentList(call.getArguments()),
          call.getAttributes()
      );
    }
View Full Code Here

Examples of org.renjin.sexp.FunctionCall

189
190
191
192
193
194
195
196
197
198
199
200
    PairList.Builder args = new PairList.Builder();
    args.add(StringVector.valueOf(dataFile.getAbsolutePath()));
    args.add("header", LogicalVector.TRUE);
    args.add("sep", StringVector.valueOf(sep));

    FunctionCall readTable = FunctionCall.newCall(Symbol.get("::"), Symbol.get("utils"), Symbol.get("read.table"));
    FunctionCall call = new FunctionCall(readTable, args.build());

    Session session = new SessionBuilder().build();
    SEXP dataFrame = session.getTopLevelContext().evaluate(call);

    PairList.Builder pairList = new PairList.Builder();
View Full Code Here

Examples of org.renjin.sexp.FunctionCall

74
75
76
77
78
79
80
81
    if(specials != Null.INSTANCE) {
      attributes.set("specials", buildSpecials((AtomicVector)specials));
    }
   
    // create an new Function Call 
    FunctionCall copy = x.clone();
    return copy.setAttributes(attributes.build());
  }
View Full Code Here

Examples of org.renjin.sexp.FunctionCall

63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
    if(argument instanceof Symbol) {
      list.add(new Term(argument));
    } else if(argument instanceof Vector) {
      intercept((Vector)argument, subtracting);
    } else if(argument instanceof FunctionCall) {
      FunctionCall call = (FunctionCall)argument;
      if(call.getFunction() == UNION) {
        unionTerms(list, call);
      } else if(call.getFunction() == EXPAND_TERMS) {
        multiply(list, call);
      } else if(call.getFunction() == DIFFERENCE) {
        difference(list, call);
      } else if(call.getFunction() == GROUP) {
        add(list, call.getArgument(0), subtracting);
      } else {
        list.add(new TermBuilder().build(call));
      }
    }
  }
View Full Code Here

Examples of org.renjin.sexp.FunctionCall

47
48
49
50
51
52
53
54
55
56
57
58
59
60
    // class(x$a[3]) <- "foo"

    SEXP lhs = assignment.getArgument(0);
   
    while(lhs instanceof FunctionCall) {
      FunctionCall call = (FunctionCall) lhs;
     
      rhs = builder.translateSetterCall(context, call, rhs);
      lhs = call.getArgument(0);
    }

    LValue target;
    if( lhs instanceof Symbol) {
      target = new EnvironmentVariable((Symbol) lhs);
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.