The R Project SVN R

Rev

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

Rev 24283 Rev 25365
Line 232... Line 232...
232 
    for (i = 0; i < xmaxused; i++) {
 232 
    for (i = 0; i < xmaxused; i++) {
233 
	int len = LENGTH(VECTOR_ELT(work, i));
 233 
	int len = LENGTH(VECTOR_ELT(work, i));
234 
	INTEGER(lens)[i] = len;
 234 
	INTEGER(lens)[i] = len;
235 
	ymaxused = max(len, ymaxused);
 235 
	ymaxused = max(len, ymaxused);
236 
	type = TYPEOF(VECTOR_ELT(work, i));
 236 
	type = TYPEOF(VECTOR_ELT(work, i));
237 
	if (!isNull(VECTOR_ELT(colmodes, i)))
 237 
	if (LENGTH(colmodes) > 0 && !isNull(VECTOR_ELT(colmodes, i)))
238 
	    type = str2type(CHAR(STRING_ELT(VECTOR_ELT(colmodes, i), 0)));
 238 
	    type = str2type(CHAR(STRING_ELT(VECTOR_ELT(colmodes, i), 0)));
239 
	if (type != STRSXP) type = REALSXP;
 239 
	if (type != STRSXP) type = REALSXP;
240 
	if (isNull(VECTOR_ELT(work, i))) {
 240 
	if (isNull(VECTOR_ELT(work, i))) {
241 
	    if (type == NILSXP) type = REALSXP;
 241 
	    if (type == NILSXP) type = REALSXP;
242 
	    SET_VECTOR_ELT(work, i, ssNewVector(type, 100));
 242 
	    SET_VECTOR_ELT(work, i, ssNewVector(type, 100));