The R Project SVN R

Rev

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

Rev 61027 Rev 62768
Line 557... Line 557...
557 
    for (i = 0 ; i < len ; i++) {
 557 
    for (i = 0 ; i < len ; i++) {
558 
	if (STRING_ELT(x, i) == NA_STRING)
 558 
	if (STRING_ELT(x, i) == NA_STRING)
559 
	    SET_STRING_ELT(ans, i, NA_STRING);
 559 
	    SET_STRING_ELT(ans, i, NA_STRING);
560 
	else {
 560 
	else {
561 
	    s = translateChar(STRING_ELT(x, i));
 561 
	    s = translateChar(STRING_ELT(x, i));
- 
 
 562 
	    if(strlen(s) > minlen) {
562 
	    warn = warn | !strIsASCII(s);
 563 
		warn = warn | !strIsASCII(s);
563 
	    R_AllocStringBuffer(strlen(s), &cbuff);
 564 
		R_AllocStringBuffer(strlen(s), &cbuff);
564 
	    SET_STRING_ELT(ans, i, stripchars(s, minlen));
 565 
		SET_STRING_ELT(ans, i, stripchars(s, minlen));
- 
 
 566 
	    } else SET_STRING_ELT(ans, i, mkChar(s));
565 
	}
 567 
	}
566 
	vmaxset(vmax);
 568 
	vmaxset(vmax);
567 
    }
 569 
    }
568 
    if (warn) warning(_("abbreviate used with non-ASCII chars"));
 570 
    if (warn) warning(_("abbreviate used with non-ASCII chars"));
569 
    DUPLICATE_ATTRIB(ans, x);
 571 
    DUPLICATE_ATTRIB(ans, x);