The R Project SVN R

Rev

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

Rev 34200 Rev 34294
Line 509... Line 509...
509 
	/* don't use NA labels */
 509 
	/* don't use NA labels */
510 
	lab = STRING_ELT(names, col - 1);
 510 
	lab = STRING_ELT(names, col - 1);
511 
	if(lab != NA_STRING) w = strlen(CHAR(lab)); else w = fw;
 511 
	if(lab != NA_STRING) w = strlen(CHAR(lab)); else w = fw;
512 
	PrintDefaults(R_NilValue);
 512 
	PrintDefaults(R_NilValue);
513 
	for (i = 0; i < INTEGER(lens)[col - 1]; i++) {
 513 
	for (i = 0; i < INTEGER(lens)[col - 1]; i++) {
514 
	    strp = EncodeElement(tmp, i, 0);
 514 
	    strp = EncodeElement(tmp, i, 0, '.');
515 
	    w1 = strlen(strp);
 515 
	    w1 = strlen(strp);
516 
	    if (w1 > w) w = w1;
 516 
	    if (w1 > w) w = w1;
517 
	}
 517 
	}
518 
	if(w < 5) w = 5;
 518 
	if(w < 5) w = 5;
519 
	if(w < 8) w++;
 519 
	if(w < 8) w++;
Line 603... Line 603...
603 
{
 603 
{
604 
    char *strp;
 604 
    char *strp;
605 
    PrintDefaults(R_NilValue);
 605 
    PrintDefaults(R_NilValue);
606 
    if (TYPEOF(invec) == REALSXP) {
 606 
    if (TYPEOF(invec) == REALSXP) {
607 
	if (REAL(invec)[vrow] != ssNA_REAL) {
 607 
	if (REAL(invec)[vrow] != ssNA_REAL) {
608 
	    strp = EncodeElement(invec, vrow, 0);
 608 
	    strp = EncodeElement(invec, vrow, 0, '.');
609 
	    printstring(strp, strlen(strp), ssrow, sscol, 0);
 609 
	    printstring(strp, strlen(strp), ssrow, sscol, 0);
610 
	}
 610 
	}
611 
    }
 611 
    }
612 
    else if (TYPEOF(invec) == STRSXP) {
 612 
    else if (TYPEOF(invec) == STRSXP) {
613 
	if (!streql(CHAR(STRING_ELT(invec, vrow)),
 613 
	if (!streql(CHAR(STRING_ELT(invec, vrow)),
614 
		    CHAR(STRING_ELT(ssNA_STRING, 0)))) {
 614 
		    CHAR(STRING_ELT(ssNA_STRING, 0)))) {
615 
	    strp = EncodeElement(invec, vrow, 0);
 615 
	    strp = EncodeElement(invec, vrow, 0, '.');
616 
	    printstring(strp, strlen(strp), ssrow, sscol, 0);
 616 
	    printstring(strp, strlen(strp), ssrow, sscol, 0);
617 
	}
 617 
	}
618 
    }
 618 
    }
619 
    else
 619 
    else
620 
	error(G_("dataentry: internal memory error"));
 620 
	error(G_("dataentry: internal memory error"));
Line 1104... Line 1104...
1104 
	tvec = VECTOR_ELT(work, wcol - 1);
 1104 
	tvec = VECTOR_ELT(work, wcol - 1);
1105 
	if (!isNull(tvec) && wrow < INTEGER(lens)[wcol - 1]) {
 1105 
	if (!isNull(tvec) && wrow < INTEGER(lens)[wcol - 1]) {
1106 
	    PrintDefaults(R_NilValue);
 1106 
	    PrintDefaults(R_NilValue);
1107 
	    if (TYPEOF(tvec) == REALSXP) {
 1107 
	    if (TYPEOF(tvec) == REALSXP) {
1108 
		if (REAL(tvec)[wrow] != ssNA_REAL)
 1108 
		if (REAL(tvec)[wrow] != ssNA_REAL)
1109 
		    prev = EncodeElement(tvec, wrow, 0);
 1109 
		    prev = EncodeElement(tvec, wrow, 0, '.');
1110 
	    } else if (TYPEOF(tvec) == STRSXP) {
 1110 
	    } else if (TYPEOF(tvec) == STRSXP) {
1111 
		if (!streql(CHAR(STRING_ELT(tvec, wrow)),
 1111 
		if (!streql(CHAR(STRING_ELT(tvec, wrow)),
1112 
			    CHAR(STRING_ELT(ssNA_STRING, 0))))
 1112 
			    CHAR(STRING_ELT(ssNA_STRING, 0))))
1113 
		    prev = EncodeElement(tvec, wrow, 0);
 1113 
		    prev = EncodeElement(tvec, wrow, 0, '.');
1114 
	    } else error(G_("dataentry: internal memory error"));
 1114 
	    } else error(G_("dataentry: internal memory error"));
1115 
	}
 1115 
	}
1116 
    }
 1116 
    }
1117 
    return prev;
 1117 
    return prev;
1118 
}
 1118 
}