The R Project SVN R

Rev

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

Rev 33817 Rev 38671
Line 21... Line 21...
21 
 
 21 
 
22 
  PROTECT(e = allocVector(LANGSXP, 2));
 22 
  PROTECT(e = allocVector(LANGSXP, 2));
23 
  SETCAR(e, Rf_install("library"));
 23 
  SETCAR(e, Rf_install("library"));
24 
  SETCAR(CDR(e), mkString("splines"));
 24 
  SETCAR(CDR(e), mkString("splines"));
25 
 
 25 
 
26 
  Test_tryEval(e, NULL);
 26 
  R_tryEval(e, R_GlobalEnv, NULL);
27 
  UNPROTECT(1);
 27 
  UNPROTECT(1);
28 
 
 28 
 
29 
  PROTECT(e = allocVector(LANGSXP, 2));
 29 
  PROTECT(e = allocVector(LANGSXP, 2));
30 
  SETCAR(e, Rf_install("example"));
 30 
  SETCAR(e, Rf_install("example"));
31 
  SETCAR(CDR(e), mkString("ns"));
 31 
  SETCAR(CDR(e), mkString("ns"));
32
32
33 
  Test_tryEval(e, &errorOccurred);
 33 
  R_tryEval(e, R_GlobalEnv, &errorOccurred);
34 
 
 34 
 
35 
  UNPROTECT(1);
 35 
  UNPROTECT(1);
36 
}
 36 
}