The R Project SVN R

Rev

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

Rev 8103 Rev 8315
Line 169... Line 169...
169 
	       REprintf("%d: %s in: %s \n", i+1, CHAR(STRING(names)[i]),
 169 
	       REprintf("%d: %s in: %s \n", i+1, CHAR(STRING(names)[i]),
170 
		   CHAR(STRING(deparse1(VECTOR(R_Warnings)[i], 0))[0]));
 170 
		   CHAR(STRING(deparse1(VECTOR(R_Warnings)[i], 0))[0]));
171 
	}
 171 
	}
172 
    }
 172 
    }
173 
    else {
 173 
    else {
- 
 
 174 
	if (R_CollectWarnings < 50)
174 
	REprintf("There were %d warnings (use warnings() to see them)\n",
 175 
	    REprintf("There were %d warnings (use warnings() to see them)\n",
175 
		 R_CollectWarnings);
 176 
		     R_CollectWarnings);
- 
 
 177 
	else
- 
 
 178 
	    REprintf("There were 50 or more warnings (use warnings() to see the first 50)\n");
176 
    }
 179 
    }
177 
    /* now truncate and install last.warning */
 180 
    /* now truncate and install last.warning */
178 
    PROTECT(s = allocVector(VECSXP, R_CollectWarnings));
 181 
    PROTECT(s = allocVector(VECSXP, R_CollectWarnings));
179 
    PROTECT(t = allocVector(STRSXP, R_CollectWarnings));
 182 
    PROTECT(t = allocVector(STRSXP, R_CollectWarnings));
180 
    names = CAR(ATTRIB(R_Warnings));
 183 
    names = CAR(ATTRIB(R_Warnings));