The R Project SVN R

Rev

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

Rev 48349 Rev 48524
Line 452... Line 452...
452 
    begincontext(&cntxt, CTXT_CCODE, R_NilValue, R_BaseEnv, R_BaseEnv,
 452 
    begincontext(&cntxt, CTXT_CCODE, R_NilValue, R_BaseEnv, R_BaseEnv,
453 
		 R_NilValue, R_NilValue);
 453 
		 R_NilValue, R_NilValue);
454 
    cntxt.cend = &cleanup_PrintWarnings;
 454 
    cntxt.cend = &cleanup_PrintWarnings;
455 
 
 455 
 
456 
    inPrintWarnings = 1;
 456 
    inPrintWarnings = 1;
457 
    header = P_("Warning message:\n", "Warning messages:\n", R_CollectWarnings);
 457 
    header = ngettext("Warning message:\n", "Warning messages:\n", R_CollectWarnings);
458 
    if( R_CollectWarnings == 1 ) {
 458 
    if( R_CollectWarnings == 1 ) {
459 
	REprintf("%s", header);
 459 
	REprintf("%s", header);
460 
	names = CAR(ATTRIB(R_Warnings));
 460 
	names = CAR(ATTRIB(R_Warnings));
461 
	if( VECTOR_ELT(R_Warnings, 0) == R_NilValue )
 461 
	if( VECTOR_ELT(R_Warnings, 0) == R_NilValue )
462 
	   REprintf("%s \n", CHAR(STRING_ELT(names, 0)));
 462 
	   REprintf("%s \n", CHAR(STRING_ELT(names, 0)));