The R Project SVN R

Rev

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

Rev 38854 Rev 43787
Line 12... Line 12...
12 
    init_R(argc, argv);
 12 
    init_R(argc, argv);
13 
 
 13 
 
14 
    PROTECT(arg = allocVector(INTSXP, 10));
 14 
    PROTECT(arg = allocVector(INTSXP, 10));
15 
    for(i = 0; i < LENGTH(arg); i++) INTEGER(arg)[i]  = i + 1;
 15 
    for(i = 0; i < LENGTH(arg); i++) INTEGER(arg)[i]  = i + 1;
16 
 
 16 
 
17 
    PROTECT(e = lang2(install((char *)funcName), arg));
 17 
    PROTECT(e = lang2(install(funcName), arg));
18 
 
 18 
 
19 
    /* Evaluate the call to the R function.
 19 
    /* Evaluate the call to the R function.
20 
       Ignore the return value.
 20 
       Ignore the return value.
21 
    */
 21 
    */
22 
    R_tryEval(e, R_GlobalEnv, &errorOccurred);
 22 
    R_tryEval(e, R_GlobalEnv, &errorOccurred);