The R Project SVN R

Rev

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

Rev 13400 Rev 14357
Line 630... Line 630...
630 
	    SET_STRING_ELT(ans, i, mkChar(strp));
 630 
	    SET_STRING_ELT(ans, i, mkChar(strp));
631 
	}
 631 
	}
632 
	UNPROTECT(1);
 632 
	UNPROTECT(1);
633 
	break;
 633 
	break;
634 
    case REALSXP:
 634 
    case REALSXP:
635 
	formatReal(REAL(labels), n, &w, &d, &e);
 635 
	formatReal(REAL(labels), n, &w, &d, &e, 0);
636 
	PROTECT(ans = allocVector(STRSXP, n));
 636 
	PROTECT(ans = allocVector(STRSXP, n));
637 
	for (i = 0; i < n; i++) {
 637 
	for (i = 0; i < n; i++) {
638 
	    strp = EncodeReal(REAL(labels)[i], 0, d, e);
 638 
	    strp = EncodeReal(REAL(labels)[i], 0, d, e);
639 
	    SET_STRING_ELT(ans, i, mkChar(strp));
 639 
	    SET_STRING_ELT(ans, i, mkChar(strp));
640 
	}
 640 
	}
641 
	UNPROTECT(1);
 641 
	UNPROTECT(1);
642 
	break;
 642 
	break;
643 
    case CPLXSXP:
 643 
    case CPLXSXP:
644 
	formatComplex(COMPLEX(labels), n, &w, &d, &e, &wi, &di, &ei);
 644 
	formatComplex(COMPLEX(labels), n, &w, &d, &e, &wi, &di, &ei, 0);
645 
	PROTECT(ans = allocVector(STRSXP, n));
 645 
	PROTECT(ans = allocVector(STRSXP, n));
646 
	for (i = 0; i < n; i++) {
 646 
	for (i = 0; i < n; i++) {
647 
	    strp = EncodeComplex(COMPLEX(labels)[i], 0, d, e, 0, di, ei);
 647 
	    strp = EncodeComplex(COMPLEX(labels)[i], 0, d, e, 0, di, ei);
648 
	    SET_STRING_ELT(ans, i, mkChar(strp));
 648 
	    SET_STRING_ELT(ans, i, mkChar(strp));
649 
	}
 649 
	}