The R Project SVN R

Rev

Rev 87863 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 87863 Rev 89248
Line 1764... Line 1764...
1764 
	    if (thisgrpn == 1) {
 1764 
	    if (thisgrpn == 1) {
1765 
		if (nalast == 0) {
 1765 
		if (nalast == 0) {
1766 
		    // this edge case had to be taken care of
 1766 
		    // this edge case had to be taken care of
1767 
		    // here.. (see the bottom of this file for
 1767 
		    // here.. (see the bottom of this file for
1768 
		    // more explanation)
 1768 
		    // more explanation)
- 
 
 1769 
                   if (o[i] == 0) { // already sorted as NA
- 
 
 1770 
                       isSorted = false;
1769 
		    switch (TYPEOF(x)) {
 1771 
                   } else switch (TYPEOF(x)) {
1770 
		    case INTSXP:
 1772 
		    case INTSXP:
1771 
			if (INTEGER(x)[o[i] - 1] == NA_INTEGER) {
 1773 
			if (INTEGER(x)[o[i] - 1] == NA_INTEGER) {
1772 
			    isSorted = false;
 1774 
			    isSorted = false;
1773 
			    o[i] = 0;
 1775 
			    o[i] = 0;
1774 
			}
 1776 
			}