Displaying 1 result from an estimated 1 matches for "runner1".
Did you mean:
runner
2009 Sep 03
1
Running an expression 1MN times using embedded R
...oleEx;
// ptr_R_WriteConsole = NULL;
// ptr_R_ReadConsole = NULL;
return(0);
}
int main(int argc, char **argv){
if (embedR(argc,argv))
exit(1);
setup_Rmainloop();
DllInfo *info = R_getEmbeddingDllInfo();
R_registerRoutines(info, NULL, callMethods, NULL, NULL);
SEXP runner1,runner2;
PROTECT(runner1=rexpress("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){
UN...