The R Project SVN R

Rev

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

Rev 33782 Rev 34294
Line 736... Line 736...
736 
	break;
 736 
	break;
737 
    case REALSXP:
 737 
    case REALSXP:
738 
	formatReal(REAL(labels), n, &w, &d, &e, 0);
 738 
	formatReal(REAL(labels), n, &w, &d, &e, 0);
739 
	PROTECT(ans = allocVector(STRSXP, n));
 739 
	PROTECT(ans = allocVector(STRSXP, n));
740 
	for (i = 0; i < n; i++) {
 740 
	for (i = 0; i < n; i++) {
741 
	    strp = EncodeReal(REAL(labels)[i], 0, d, e);
 741 
	    strp = EncodeReal(REAL(labels)[i], 0, d, e, OutDec);
742 
	    SET_STRING_ELT(ans, i, mkChar(strp));
 742 
	    SET_STRING_ELT(ans, i, mkChar(strp));
743 
	}
 743 
	}
744 
	UNPROTECT(1);
 744 
	UNPROTECT(1);
745 
	break;
 745 
	break;
746 
    case CPLXSXP:
 746 
    case CPLXSXP:
747 
	formatComplex(COMPLEX(labels), n, &w, &d, &e, &wi, &di, &ei, 0);
 747 
	formatComplex(COMPLEX(labels), n, &w, &d, &e, &wi, &di, &ei, 0);
748 
	PROTECT(ans = allocVector(STRSXP, n));
 748 
	PROTECT(ans = allocVector(STRSXP, n));
749 
	for (i = 0; i < n; i++) {
 749 
	for (i = 0; i < n; i++) {
750 
	    strp = EncodeComplex(COMPLEX(labels)[i], 0, d, e, 0, di, ei);
 750 
	    strp = EncodeComplex(COMPLEX(labels)[i], 0, d, e, 0, di, ei,
- 
 
 751 
				 OutDec);
751 
	    SET_STRING_ELT(ans, i, mkChar(strp));
 752 
	    SET_STRING_ELT(ans, i, mkChar(strp));
752 
	}
 753 
	}
753 
	UNPROTECT(1);
 754 
	UNPROTECT(1);
754 
	break;
 755 
	break;
755 
    case STRSXP:
 756 
    case STRSXP: