#include "embeddedRCall.h" | |
#include <R_ext/Parse.h> | |
int | |
main(int argc, char *argv[]) | |
{ | |
SEXP e, tmp; | |
int hadError; | |
ParseStatus status; | |
init_R(argc, argv); | |
PROTECT(tmp = mkString("{plot(1:10, pch=\"+\"); print(1:10)}")); | |
PROTECT(e = R_ParseVector(tmp, 1, &status, R_NilValue)); | |
PrintValue(e); | |
R_tryEval(VECTOR_ELT(e,0), R_GlobalEnv, &hadError); | |
UNPROTECT(2); | |
end_R(); | |
return(0); | |
} |