Package org.renjin.sexp

Examples of org.renjin.sexp.SEXP

71
72
73
74
75
76
77
78
  public void invalidIntercept() {
    build("y ~ 6");
  }
 
  private Formula build(String source) {
    SEXP expr = parse(source);
    return new FormulaInterpreter().interpret((FunctionCall) expr);
  }
View Full Code Here
77
78
79
80
81
82
83
84
    return new FormulaInterpreter().interpret((FunctionCall) expr);
  }

  private SEXP parse(String source) {
    ExpressionVector tree = RParser.parseSource(source + "\n");
    SEXP expr = tree.getElementAsSEXP(0);
    return expr;
  }
View Full Code Here
95
96
97
98
99
100
101
102
103
104
  }

  @Override
  public Object put(String name, Object value) {
    Symbol symbol = Symbol.get(name);
    SEXP previousValue = frame.getVariable(symbol);
    SEXP exp = Converters.get(value.getClass()).convertToR(value);
    frame.setVariable(symbol, exp);
    return previousValue;
  }
View Full Code Here
37
38
39
40
41
42
43
44
45
46
  }

  @Override
  public SEXP apply(Context context, Environment rho, FunctionCall call, PairList args) {
    PairList formals = EvalException.checkedCast(call.getArgument(0));
    SEXP body = call.getArgument(1);
    SEXP source = call.getArgument(2);

    return new Closure(rho,formals, body);
  }
View Full Code Here
103
104
105
106
107
108
109
110
111
112
113
    if(file instanceof StringVector) {
      String fileName = ((StringVector) file).getElementAsString(0);
      if(fileName.length() == 0) {
        lineReader = context.getSession().getConnectionTable().getStdin().getReader();
      } else {
        SEXP fileConn = Connections.file(context,fileName,"o",true,encoding,false);
        lineReader = Connections.getConnection(context, fileConn).getReader();
      }
    } else {
      lineReader = Connections.getConnection(context, file).getReader();
    }
View Full Code Here
35
36
37
38
39
40
41
42
43
44
45
46
    super("while");
  }
 
  @Override
  public SEXP apply(Context context, Environment rho, FunctionCall call, PairList args) {
    SEXP condition = args.getElementAsSEXP(0);
    SEXP statement = args.getElementAsSEXP(1);

    while(asLogicalNoNA(context, call, context.evaluate( condition, rho))) {

      try {
View Full Code Here
35
36
37
38
39
40
41
42
43
44
45
    super("repeat");
  }
 
  @Override
  public SEXP apply(Context context, Environment rho, FunctionCall call, PairList args) {
    SEXP statement = args.getElementAsSEXP(0);

    while(true) {
      try {
        context.evaluate( statement, rho);
      } catch(BreakException e) {
View Full Code Here
47
48
49
50
51
52
53
54
55
56
57
58
59
  }
 
  @Override
  public SEXP apply(Context context, Environment rho, FunctionCall call, PairList args) {
    checkArity(call, 2, 1);
    SEXP exp = call.getArgument(0);
    if(call.getArguments().length() == 2) {
      SEXP envirSexp = context.evaluate(call.getArgument(1), rho);
      return substitute(exp, envirSexp);
    } else {
      return substitute(exp, new EnvironmentContext(rho));
    }
  }
View Full Code Here
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
  }

  private static SEXP doApply(Context context, Environment rho, FunctionCall call, PairList args) {
    EvalException.check(call.length() > 1, "argument \"EXPR\" is missing");

    SEXP expr = context.evaluate(args.getElementAsSEXP(0),rho);
    EvalException.check(expr.length() == 1, "EXPR must return a length 1 vector");

    Iterable<PairList.Node> branches = Iterables.skip(args.nodes(), 1);

    if(expr instanceof StringVector) {
      String name = ((StringVector) expr).getElementAsString(0);
      if(StringVector.isNA(name)) {
        context.setInvisibleFlag();
        return Null.INSTANCE;
      }
      SEXP partialMatch = null;
      int partialMatchCount = 0;
      for(PairList.Node node : branches) {
        if(node.hasTag()) {
          String branchName = node.getTag().getPrintName();
          if(branchName.equals(name)) {
View Full Code Here
44
45
46
47
48
49
50
51
52
53
54
    MethodVisitor mv = cw.visitMethod(ACC_PUBLIC, "load",
        "(Lorg/renjin/eval/Context;Lorg/renjin/sexp/Environment;)V", null, null);
    mv.visitCode();

    for(Symbol symbol : rho.getSymbolNames()) {
      SEXP value = rho.getVariable(symbol);
      try {
        if(value instanceof Closure) {
          storeClosure(mv, packageName, symbol);       
        } else {
          storeConstant(mv, symbol, rho.getVariable(symbol));
View Full Code Here
TOP

Related Classes of org.renjin.sexp.SEXP

  • org.renjin.AbstractMicroTest
  • org.renjin.base.BasePackageCompiler
  • org.renjin.base.BasePackageTest
  • org.renjin.compiler.ByteCodeVisitor
  • org.renjin.compiler.ir.tac.expressions.EnvironmentVariable
  • org.renjin.compiler.ir.tac.expressions.Length
  • org.renjin.compiler.ir.tac.functions.AssignLeftTranslator
  • org.renjin.compiler.ir.tac.functions.ClosureTranslator
  • org.renjin.compiler.ir.tac.functions.ForTranslator
  • org.renjin.compiler.ir.tac.functions.InternalCallTranslator
    • 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.