The R Project SVN R

(root)/trunk/src/main/array.c @ 63243 – Rev 60335 → 60432



	break;
    case VECSXP:
    case EXPRSXP:
	if (nans && lendat)
	    for (i = 0; i < nans; i++)
		SET_VECTOR_ELT(ans, i, VECTOR_ELT(vals, i % lendat));
	break;
    default:
	// excluded above
	break;
    }

Rev 60335	Rev 60432
Line 1494...	Line 1494...
1494	`break;`	1494	`break;`
1495	`case VECSXP:`	1495	`case VECSXP:`
1496	`case EXPRSXP:`	1496	`case EXPRSXP:`
1497	`if (nans && lendat)`	1497	`if (nans && lendat)`
1498	`for (i = 0; i < nans; i++)`	1498	`for (i = 0; i < nans; i++)`
1499	`SET_VECTOR_ELT(ans, i, STRING_ELT(vals, i % lendat));`	1499	`SET_VECTOR_ELT(ans, i, VECTOR_ELT(vals, i % lendat));`
1500	`break;`	1500	`break;`
1501	`default:`	1501	`default:`
1502	`// excluded above`	1502	`// excluded above`
1503	`break;`	1503	`break;`
1504	`}`	1504	`}`