The R Project SVN R

Rev

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

Rev 60667 Rev 60844
Line 113... Line 113...
113 
		SET_VECTOR_ELT(x, j, ScalarString(PRINTNAME(xj)));
 113 
		SET_VECTOR_ELT(x, j, ScalarString(PRINTNAME(xj)));
114 
	    else
 114 
	    else
115 
		SET_VECTOR_ELT(x, j, coerceVector(xj, STRSXP));
 115 
		SET_VECTOR_ELT(x, j, coerceVector(xj, STRSXP));
116 
 
 116 
 
117 
	    if (!isString(VECTOR_ELT(x, j)))
 117 
	    if (!isString(VECTOR_ELT(x, j)))
118 
		error(_("non-string argument to Internal paste"));
 118 
		error(_("non-string argument to internal 'paste'"));
119 
	}
 119 
	}
120 
	if(xlength(VECTOR_ELT(x, j)) > maxlen)
 120 
	if(xlength(VECTOR_ELT(x, j)) > maxlen)
121 
	    maxlen = xlength(VECTOR_ELT(x, j));
 121 
	    maxlen = xlength(VECTOR_ELT(x, j));
122 
    }
 122 
    }
123 
    if(maxlen == 0)
 123 
    if(maxlen == 0)