The R Project SVN R

Rev

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

Rev 45667 Rev 45733
Line 1011... Line 1011...
1011 
    }
 1011 
    }
1012 
 
 1012 
 
1013 
    /* Determine the tickmark positions.  Note that these may fall */
 1013 
    /* Determine the tickmark positions.  Note that these may fall */
1014 
    /* outside the plot window. We will clip them in the code below. */
 1014 
    /* outside the plot window. We will clip them in the code below. */
1015 
 
 1015 
 
1016 
    create_at = (length(at) == 0);
 1016 
    create_at = isNull(at);
1017 
    if (create_at) {
 1017 
    if (create_at) {
1018 
	PROTECT(at = CreateAtVector(axp, usr, nint, logflag));
 1018 
	PROTECT(at = CreateAtVector(axp, usr, nint, logflag));
1019 
    }
 1019 
    }
1020 
    else {
 1020 
    else {
1021 
	if (isReal(at)) PROTECT(at = duplicate(at));
 1021 
	if (isReal(at)) PROTECT(at = duplicate(at));
Line 1049... Line 1049...
1049 
    rsort_with_index(REAL(at), ind, n);
 1049 
    rsort_with_index(REAL(at), ind, n);
1050 
    ntmp = 0;
 1050 
    ntmp = 0;
1051 
    for(i = 0; i < n; i++) {
 1051 
    for(i = 0; i < n; i++) {
1052 
	if(R_FINITE(REAL(at)[i])) ntmp = i+1;
 1052 
	if(R_FINITE(REAL(at)[i])) ntmp = i+1;
1053 
    }
 1053 
    }
1054 
    n = ntmp;
 - 
 
1055 
    if (n == 0)
 1054 
    if (n > 0 && ntmp == 0)
1056 
	error(_("no locations are finite"));
 1055 
	error(_("no locations are finite"));
- 
 
 1056 
    n = ntmp;
1057 
 
 1057
1058 
    /* Ok, all systems are "GO".  Let's get to it. */
 1058 
    /* Ok, all systems are "GO".  Let's get to it. */
1059 
 
 1059 
 
1060 
    /* At this point we know the value of "xaxt" and "yaxt",
 1060 
    /* At this point we know the value of "xaxt" and "yaxt",
1061 
     * so we test to see whether the relevant one is "n".
 1061 
     * so we test to see whether the relevant one is "n".
1062 
     * If it is, we just bail out at this point. */
 1062 
     * If it is, we just bail out at this point. */
1063 
 
 1063 
 
- 
 
 1064 
    if ((n == 0) ||
1064 
    if (((side == 1 || side == 3) && gpptr(dd)->xaxt == 'n') ||
 1065 
        ((side == 1 || side == 3) && gpptr(dd)->xaxt == 'n') ||
1065 
	((side == 2 || side == 4) && gpptr(dd)->yaxt == 'n')) {
 1066 
	((side == 2 || side == 4) && gpptr(dd)->yaxt == 'n')) {
1066 
	GRestorePars(dd);
 1067 
	GRestorePars(dd);
1067 
	UNPROTECT(4);
 1068 
	UNPROTECT(4);
1068 
	return R_NilValue;
 1069 
	return R_NilValue;
1069 
    }
 1070 
    }