The R Project SVN R

Rev

Rev 38840 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 38840 Rev 40006
Line 9... Line 9...
9 
    ParseStatus status;
 9 
    ParseStatus status;
10 
 
 10 
 
11 
    init_R(argc, argv);
 11 
    init_R(argc, argv);
12 
 
 12 
 
13 
    PROTECT(tmp = mkString("{plot(1:10, pch=\"+\"); print(1:10)}"));
 13 
    PROTECT(tmp = mkString("{plot(1:10, pch=\"+\"); print(1:10)}"));
14 
    PROTECT(e = R_ParseVector(tmp, 1, &status));
 14 
    PROTECT(e = R_ParseVector(tmp, 1, &status, R_NilValue));
15 
    PrintValue(e);
 15 
    PrintValue(e);
16 
    R_tryEval(VECTOR_ELT(e,0), R_GlobalEnv, &hadError);
 16 
    R_tryEval(VECTOR_ELT(e,0), R_GlobalEnv, &hadError);
17 
    UNPROTECT(2);
 17 
    UNPROTECT(2);
18 
 
 18 
 
19 
    end_R();
 19 
    end_R();