int AppMain(int argc, char **argv)
{
CharacterMode = RGui;
if(strcmp(getDLLVersion(), getRVersion()) != 0) {
MessageBox(0, "R.DLL version does not match", "Terminating",
MB_TASKMODAL | MB_ICONSTOP | MB_OK);
exit(1);
}
cmdlineoptions(argc, argv);
if (!setupui()) {
MessageBox(0, "Error setting up console. Try --vanilla option.",
"Terminating", MB_TASKMODAL | MB_ICONSTOP | MB_OK);
GA_exitapp();
}
/* C writes to stdout/stderr get set to the launching terminal (if
there was one). Needs XP, and works for C but not Fortran. */
if (AttachConsole(ATTACH_PARENT_PROCESS))
{
freopen("CONIN$", "r", stdin);
freopen("CONOUT$", "w", stdout);
freopen("CONOUT$", "w", stderr);
}
Rf_mainloop();
/* NOTREACHED */
return 0;
}
int main(int ac, char **av)
{
R_running_as_main_program = 1;
Rf_initialize_R(ac, av);
Rf_mainloop(); /* does not return */
return 0;
}
int main(int argc, char **argv) {
char *r_home = getenv("R_HOME");
if (r_home == NULL) {
printf("R_HOME must be set\n");
exit(1);
}
Rf_initialize_R(argc, argv);
structRstart rp;
Rstart Rp = &rp;
R_DefParams(Rp);
Rp->SaveAction = SA_SAVEASK;
R_SetParams(Rp);
ptr_stdR_CleanUp = ptr_R_CleanUp;
ptr_R_CleanUp = &testR_CleanUp;
ptr_stdR_Suicide = ptr_R_Suicide;
ptr_R_Suicide = &testR_Suicide;
ptr_R_ReadConsole = &testR_ReadConsole;
ptr_R_WriteConsole = &testR_WriteConsole;
DllInfo *eDllInfo = R_getEmbeddingDllInfo();
Rf_mainloop();
Rf_endEmbeddedR(0);
}
void runEmbeddedR(const core::FilePath& /*rHome*/, // ignored on posix
const core::FilePath& /*userHome*/, // ignored on posix
bool newSession,
SA_TYPE defaultSaveAction,
const Callbacks& callbacks,
InternalCallbacks* pInternal)
{
// disable R signal handlers. see src/main/main.c for the default
// implementations. in our case ignore them for the following reasons:
//
// INT - no concept of Ctrl-C based interruption (use flag directly)
//
// SEGV, ILL, & BUS: unsupported due to prompt invoking networking
// code (unsupported from within a signal handler)
//
// USR1 & USR2: same as above SEGV, etc. + we use them for other purposes
//
// PIPE: we ignore this globally in SessionMain. before doing this we
// confirmed that asio wasn't in some way manipulating it -- on linux
// boost passes MSG_NOSIGNAL to sendmsg and on OSX sets the SO_NOSIGPIPE
// option on all sockets created. note that on other platforms including
// solaris, hpux, etc. boost uses detail/signal_init to ignore SIGPIPE
// globally (this is done in io_service.hpp).
R_SignalHandlers = 0;
// set message callback early so we can see initialization error messages
ptr_R_ShowMessage = callbacks.showMessage ;
// running as main program (affects location of R_CStackStart on platforms
// without HAVE_LIBC_STACK_END or HAVE_KERN_USRSTACK). see also discussion
// on R_CStackStart in 8.1.5 Threading issues
R_running_as_main_program = 1;
// initialize R
const char *args[]= {"RStudio", "--interactive"};
Rf_initialize_R(sizeof(args)/sizeof(args[0]), (char**)args);
// For newSession = false we need to do a few things:
//
// 1) set R_Quiet so we startup without a banner
//
// 2) set LoadInitFile to supress execution of .Rprofile
//
// 3) we also need to make sure that .First is not executed. this is
// taken care of via the fact that we set RestoreAction to SA_NORESTORE
// which means that when setup_Rmainloop there is no .First function
// available to it because we haven't restored the environment yet.
// Note that .First is executed in the case of new sessions because
// it is read from .Rprofile as part of setup_Rmainloop. This implies
// that in our version of R the .First function must be defined in
// .Rprofile rather than simply saved into the global environment
// of the default workspace
//
structRstart rp;
Rstart Rp = &rp;
R_DefParams(Rp) ;
Rp->R_Slave = FALSE ;
Rp->R_Quiet = newSession ? FALSE : TRUE;
Rp->R_Interactive = TRUE ;
Rp->SaveAction = defaultSaveAction ;
Rp->RestoreAction = SA_NORESTORE; // handled within initialize()
Rp->LoadInitFile = newSession ? TRUE : FALSE;
R_SetParams(Rp) ;
// redirect console
R_Interactive = TRUE; // should have also been set by call to Rf_initialize_R
R_Consolefile = NULL;
R_Outputfile = NULL;
ptr_R_ReadConsole = callbacks.readConsole ;
ptr_R_WriteConsole = NULL; // must set this to NULL for Ex to be called
ptr_R_WriteConsoleEx = callbacks.writeConsoleEx ;
ptr_R_EditFile = callbacks.editFile ;
ptr_R_Busy = callbacks.busy;
// hook messages (in case Rf_initialize_R overwrites previously set hook)
ptr_R_ShowMessage = callbacks.showMessage ;
// hook file handling
ptr_R_ChooseFile = callbacks.chooseFile ;
ptr_R_ShowFiles = callbacks.showFiles ;
// hook history
ptr_R_loadhistory = callbacks.loadhistory;
ptr_R_savehistory = callbacks.savehistory;
ptr_R_addhistory = callbacks.addhistory;
// hook suicide, but save reference to internal suicide so we can forward
pInternal->suicide = ptr_R_Suicide;
ptr_R_Suicide = callbacks.suicide;
// hook clean up, but save reference to internal clean up so can forward
pInternal->cleanUp = ptr_R_CleanUp;
ptr_R_CleanUp = callbacks.cleanUp ;
// NOTE: we do not hook the following callbacks because they are targeted
// at clients that have a stdio-based console
// ptr_R_ResetConsole
// ptr_R_FlushConsole
// ptr_R_ClearerrConsole
// run main loop (does not return)
Rf_mainloop();
}
