The R Project SVN R

Rev

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

Rev 45847 Rev 50473
Line 460... Line 460...
460 
	    for (i = 0; i < n; i++)
 460 
	    for (i = 0; i < n; i++)
461 
		if (STRING_ELT(xx, i) != NA_STRING) {
 461 
		if (STRING_ELT(xx, i) != NA_STRING) {
462 
		    il = Rstrlen(STRING_ELT(xx, i), 0);
 462 
		    il = Rstrlen(STRING_ELT(xx, i), 0);
463 
		    cnt = imax2(cnt, LENGTH(STRING_ELT(xx, i)) + imax2(0, w-il));
 463 
		    cnt = imax2(cnt, LENGTH(STRING_ELT(xx, i)) + imax2(0, w-il));
464 
		} else if (na) cnt  = imax2(cnt, R_print.na_width + imax2(0, w-R_print.na_width));
 464 
		} else if (na) cnt  = imax2(cnt, R_print.na_width + imax2(0, w-R_print.na_width));
- 
 
 465 
	    R_CheckStackN(cnt+1);
465 
	    buff = (char *) alloca(cnt+1);
 466 
	    buff = (char *) alloca(cnt+1);
466 
	    R_CheckStack();
 - 
 
467 
	    PROTECT(y = allocVector(STRSXP, n));
 467 
	    PROTECT(y = allocVector(STRSXP, n));
468 
	    for (i = 0; i < n; i++) {
 468 
	    for (i = 0; i < n; i++) {
469 
		if(!na && STRING_ELT(xx, i) == NA_STRING) {
 469 
		if(!na && STRING_ELT(xx, i) == NA_STRING) {
470 
		    SET_STRING_ELT(y, i, NA_STRING);
 470 
		    SET_STRING_ELT(y, i, NA_STRING);
471 
		} else {
 471 
		} else {