The R Project SVN R

Rev

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

Rev 62220 Rev 62285
Line 155... Line 155...
155 
	for(i = 0; i < n; i++) {
 155 
	for(i = 0; i < n; i++) {
156 
	    SEXP val; SEXPTYPE valType;
 156 
	    SEXP val; SEXPTYPE valType;
157 
	    PROTECT_INDEX indx;
 157 
	    PROTECT_INDEX indx;
158 
	    if (realIndx) REAL(ind)[0] = (double)(i + 1);
 158 
	    if (realIndx) REAL(ind)[0] = (double)(i + 1);
159 
	    else INTEGER(ind)[0] = (int)(i + 1);
 159 
	    else INTEGER(ind)[0] = (int)(i + 1);
160 
	    val = val = eval(R_fcall, rho);
 160 
	    val = eval(R_fcall, rho);
161 
	    if (NAMED(val))
 161 
	    if (NAMED(val))
162 
		val = duplicate(val);
 162 
		val = duplicate(val);
163 
	    PROTECT_WITH_INDEX(val, &indx);
 163 
	    PROTECT_WITH_INDEX(val, &indx);
164 
	    if (length(val) != commonLen)
 164 
	    if (length(val) != commonLen)
165 
	    	error(_("values must be length %d,\n but FUN(X[[%d]]) result is length %d"),
 165 
	    	error(_("values must be length %d,\n but FUN(X[[%d]]) result is length %d"),