The R Project SVN R

Rev

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

Rev 15168 Rev 15508
Line 1928... Line 1928...
1928 
	else {
 1928 
	else {
1929 
	    adjx = REAL(adj)[0];
 1929 
	    adjx = REAL(adj)[0];
1930 
	    adjy = REAL(adj)[1];
 1930 
	    adjy = REAL(adj)[1];
1931 
	}
 1931 
	}
1932 
    }
 1932 
    }
- 
 
 1933 
    else if (isInteger(adj)) {
- 
 
 1934 
	if (LENGTH(adj) == 1) {
- 
 
 1935 
	    adjx = INTEGER(adj)[0];
- 
 
 1936 
	    adjy = NA_REAL;
- 
 
 1937 
	}
- 
 
 1938 
	else {
- 
 
 1939 
	    adjx = INTEGER(adj)[0];
- 
 
 1940 
	    adjy = INTEGER(adj)[1];
- 
 
 1941 
	}
- 
 
 1942 
    }
1933 
    else errorcall(call, "invalid adj value");
 1943 
    else errorcall(call, "invalid adj value");
1934 
    args = CDR(args);
 1944 
    args = CDR(args);
1935 
 
 1945 
 
1936 
    PROTECT(pos = coerceVector(CAR(args), INTSXP));
 1946 
    PROTECT(pos = coerceVector(CAR(args), INTSXP));
1937 
    npos = length(pos);
 1947 
    npos = length(pos);