Displaying 3 results from an estimated 3 matches for "r_collectwarn".
2011 Nov 11
1
When collected warnings exceeds 50
...urning early without calling endcontext() in errors.c:
svn diff src/main/errors.c
Index: src/main/errors.c
===================================================================
--- src/main/errors.c (revision 57624)
+++ src/main/errors.c (working copy)
@@ -333,8 +333,11 @@
char *tr; int nc;
if(!R_CollectWarnings)
setupwarnings();
- if( R_CollectWarnings > 49 )
+ if( R_CollectWarnings > 49 ) {
+ endcontext(&cntxt);
+ inWarning = 0;
return;
+ }
SET_VECTOR_ELT(R_Warnings, R_CollectWarnings, call);
Rvsnprintf(buf, min(BUFSIZE, R_WarnLength+1), format, ap);
if(R_WarnLengt...
2006 Aug 31
1
Overriding InitTempDir
For embedded projects, one may want to eliminate the per-session temp
directory created by InitTempDir() and just use a system-specific temp
directory. Here's my solution:
extern char *R_TempDir;
void my_InitTempDir()
{
char *tmp;
if (R_TempDir){
if (rmdir(R_TempDir) != 0){
perror("Fatal Error: could not remove R's TempDir!");
2007 Jan 18
0
Emulating a REPL in frontends
...ALSE;
R_EvalDepth = 0;
PROTECT(R_CurrentExpr);
R_Busy(1);
value = eval(R_CurrentExpr, rho);
if(set_last_sym_value)
SET_SYMVALUE(R_LastvalueSymbol, value);
if ((print_mode==1) || (R_Visible && (print_mode==0)))
wasDisplayed = TRUE;
PrintValueEnv(R_CurrentExpr, rho);
if (R_CollectWarnings)
PrintWarnings();
if(do_toplevel_callbacks) {
Rf_callToplevelHandlers(R_CurrentExpr, value, TRUE, wasDisplayed);
}
R_CurrentExpr = value;
UNPROTECT(1);
R_IoBufferWriteReset(&R_ConsoleIob);
R_Busy(0);
return value;
case PARSE_ERROR:
parseError(R_NilValue, 0);
R_IoBuffe...