The R Project SVN R

Rev

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

Rev 5223 Rev 5245
Line 91... Line 91...
91 
    if(RestoreAction == SA_RESTORE) {
 91 
    if(RestoreAction == SA_RESTORE) {
92 
	if(!(fp = R_fopen(".RData", "rb"))) { /* binary file */
 92 
	if(!(fp = R_fopen(".RData", "rb"))) { /* binary file */
93 
	    /* warning here perhaps */
 93 
	    /* warning here perhaps */
94 
	    return;
 94 
	    return;
95 
	}
 95 
	}
96 
	FRAME(R_GlobalEnv) = R_LoadFromFile(fp);
 96 
	FRAME(R_GlobalEnv) = R_LoadFromFile(fp, 1);
97 
	if(!R_Quiet)
 97 
	if(!R_Quiet)
98 
	    Rprintf("[Previously saved workspace restored]\n\n");
 98 
	    Rprintf("[Previously saved workspace restored]\n\n");
99 
        fclose(fp);
 99 
        fclose(fp);
100 
    }
 100 
    }
101 
}
 101 
}
Line 165... Line 165...
165 
{
 165 
{
166 
    Rp->R_Quiet = False;
 166 
    Rp->R_Quiet = False;
167 
    Rp->R_Slave = False;
 167 
    Rp->R_Slave = False;
168 
    Rp->R_Interactive = True;
 168 
    Rp->R_Interactive = True;
169 
    Rp->R_Verbose = False;
 169 
    Rp->R_Verbose = False;
170 
    Rp->RestoreAction = SA_NORESTORE;
 170 
    Rp->RestoreAction = SA_RESTORE;
171 
    Rp->SaveAction = SA_SAVEASK;
 171 
    Rp->SaveAction = SA_SAVEASK;
172 
    Rp->LoadSiteFile = True;
 172 
    Rp->LoadSiteFile = True;
173 
    Rp->LoadInitFile = True;
 173 
    Rp->LoadInitFile = True;
174 
    Rp->DebugInitFile = False;
 174 
    Rp->DebugInitFile = False;
175 
    Rp->vsize = R_VSIZE;
 175 
    Rp->vsize = R_VSIZE;