The R Project SVN R

Rev

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

Rev 35590 Rev 35903
Line 271... Line 271...
271 
		if (STRING_ELT(x, i) != NA_STRING) {
 271 
		if (STRING_ELT(x, i) != NA_STRING) {
272 
		    il = Rstrlen(STRING_ELT(x, i), 0);
 272 
		    il = Rstrlen(STRING_ELT(x, i), 0);
273 
		    cnt = imax2(cnt, LENGTH(STRING_ELT(x, i)) + imax2(0, w-il));
 273 
		    cnt = imax2(cnt, LENGTH(STRING_ELT(x, i)) + imax2(0, w-il));
274 
		} else if (na) cnt  = imax2(cnt, R_print.na_width);
 274 
		} else if (na) cnt  = imax2(cnt, R_print.na_width);
275 
	    buff = alloca(cnt+1);
 275 
	    buff = alloca(cnt+1);
- 
 
 276 
	    R_CheckStack();
276 
	    PROTECT(y = allocVector(STRSXP, n));
 277 
	    PROTECT(y = allocVector(STRSXP, n));
277 
	    for (i = 0; i < n; i++) {
 278 
	    for (i = 0; i < n; i++) {
278 
		if(!na && STRING_ELT(x, i) == NA_STRING) {
 279 
		if(!na && STRING_ELT(x, i) == NA_STRING) {
279 
		    SET_STRING_ELT(y, i, NA_STRING);
 280 
		    SET_STRING_ELT(y, i, NA_STRING);
280 
		} else {
 281 
		} else {