The R Project SVN R

Rev

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

Rev 80325 Rev 80337
Line 98... Line 98...
98 
    miss_nc = asLogical(CAR(args));
 98 
    miss_nc = asLogical(CAR(args));
99 
 
 99 
 
100 
    static int nowarn = -1;
 100 
    static int nowarn = -1;
101 
    if (nowarn == -1) {
 101 
    if (nowarn == -1) {
102 
	char *p = getenv("_R_CHECK_MATRIX_DATA_");
 102 
	char *p = getenv("_R_CHECK_MATRIX_DATA_");
103 
	nowarn = (p && streql(p, "TRUE")) ? 1 : 0;
 103 
	nowarn = (p && StringTrue(p)) ? 1 : 0;
104 
    }
 104 
    }
105 
    if (!miss_nr) {
 105 
    if (!miss_nr) {
106 
	if (!isNumeric(snr)) error(_("non-numeric matrix extent"));
 106 
	if (!isNumeric(snr)) error(_("non-numeric matrix extent"));
107 
	nr = asInteger(snr);
 107 
	nr = asInteger(snr);
108 
	if (nr == NA_INTEGER)
 108 
	if (nr == NA_INTEGER)