The R Project SVN R

Rev

Rev 19500 | Rev 34062 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 19500 Rev 29297
Line 13... Line 13...
13 
#include "embeddedRCall.h"
 13 
#include "embeddedRCall.h"
14 
 
 14 
 
15 
int
 15 
int
16 
main(int argc, char *argv[])
 16 
main(int argc, char *argv[])
17 
{
 17 
{
18 
    SEXP fun, arg, seq;
 18 
    SEXP fun, arg;
19 
    SEXP e, e1;
 19 
    SEXP e, e1;
20 
    int i;
 - 
 
21 
    char *localArgs[] = {"R", "--gui=none", "--no-save", "--silent"};
 20 
    /* char *localArgs[] = {"R", "--gui=none", "--no-save", "--silent"}; */
22 
    init_R(argc, argv);
 21 
    init_R(argc, argv);
23 
 
 22 
 
24 
      /* postscript() */
 23 
      /* postscript() */
25 
    PROTECT(fun = Rf_findFun(Rf_install("postscript"),  R_GlobalEnv));
24 
    PROTECT(fun = Rf_findFun(Rf_install("postscript"),  R_GlobalEnv));
26 
    PROTECT(e = allocVector(LANGSXP, 1));
 25 
    PROTECT(e = allocVector(LANGSXP, 1));