The R Project SVN R

Rev

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

Rev 47460 Rev 47664
Line 1216... Line 1216...
1216 
		case STRSXP:
 1216 
		case STRSXP:
1217 
		case VECSXP:
 1217 
		case VECSXP:
1218 
		case LISTSXP:
 1218 
		case LISTSXP:
1219 
		    PROTECT(u = coerceVector(u, mode));
 1219 
		    PROTECT(u = coerceVector(u, mode));
1220 
		    k = LENGTH(u);
 1220 
		    k = LENGTH(u);
- 
 
 1221 
		    if (k > 0) {
1221 
		    idx = (!isMatrix(u)) ? rows : k;
 1222 
			idx = (!isMatrix(u)) ? rows : k;
1222 
		    for (i = 0; i < idx; i++)
 1223 
			for (i = 0; i < idx; i++)
1223 
			SET_VECTOR_ELT(result, n++,
 1224 
			    SET_VECTOR_ELT(result, n++,
1224 
				       duplicate(VECTOR_ELT(u, i % k)));
 1225 
					   duplicate(VECTOR_ELT(u, i % k)));
- 
 
 1226 
		    }
1225 
		    UNPROTECT(1);
 1227 
		    UNPROTECT(1);
1226 
		    break;
 1228 
		    break;
1227 
		default:
 1229 
		default:
1228 
		    for (i = 0; i < rows; i++)
 1230 
		    for (i = 0; i < rows; i++)
1229 
			SET_VECTOR_ELT(result, n++, duplicate(u));
 1231 
			SET_VECTOR_ELT(result, n++, duplicate(u));