The R Project SVN R

Rev

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

Rev 6098 Rev 6099
Line 423... Line 423...
423 
	xmax = INTEGER(xlim)[1];
 423 
	xmax = INTEGER(xlim)[1];
424 
    }
 424 
    }
425 
    else {
 425 
    else {
426 
	if (!R_FINITE(REAL(xlim)[0]) || !R_FINITE(REAL(xlim)[1]))
 426 
	if (!R_FINITE(REAL(xlim)[0]) || !R_FINITE(REAL(xlim)[1]))
427 
	    errorcall(call, "need finite xlim values\n");
 427 
	    errorcall(call, "need finite xlim values\n");
- 
 
 428 
	xmin = REAL(xlim)[0];
428 
	xmax = REAL(xlim)[1];
 429 
	xmax = REAL(xlim)[1];
429 
    }
 430 
    }
430 
    if (isInteger(ylim)) {
 431 
    if (isInteger(ylim)) {
431 
	if (INTEGER(ylim)[0] == NA_INTEGER || INTEGER(ylim)[1] == NA_INTEGER)
 432 
	if (INTEGER(ylim)[0] == NA_INTEGER || INTEGER(ylim)[1] == NA_INTEGER)
432 
	    errorcall(call, "NAs not allowed in ylim\n");
 433 
	    errorcall(call, "NAs not allowed in ylim\n");