Displaying 1 result from an estimated 1 matches for "mapbuf_cnt".
2009 Sep 03
1
Running an expression 1MN times using embedded R
...("expression({ for(x in 1:5)
{ .Call('rh_status','x') }})"));
if (runner1 == R_NilValue){
UNPROTECT(1);
exit(1);
}
PROTECT(runner2=Rf_lang2(Rf_install("eval"),runner1));
if(runner2==NILSXP){
UNPROTECT(2);
exit(1);
}
int mapbuf_cnt = 0;
for(;;){
if(mapbuf_cnt >1000000) exit(0);
Rf_eval(runner2 ,R_GlobalEnv);
mapbuf_cnt++;
}
UNPROTECT(2);
}