The R Project SVN R

Rev

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

Rev 67181 Rev 67351
Line 1148... Line 1148...
1148 
		} else
 1148 
		} else
1149 
		    REAL(cvec)[wrow - 1] = new;
 1149 
		    REAL(cvec)[wrow - 1] = new;
1150 
		if (newcol && warn) {
 1150 
		if (newcol && warn) {
1151 
		    /* change mode to character */
 1151 
		    /* change mode to character */
1152 
		    SEXP tmp = coerceVector(cvec, STRSXP);
 1152 
		    SEXP tmp = coerceVector(cvec, STRSXP);
- 
 
 1153 
		    PROTECT(tmp);
1153 
		    SET_STRING_ELT(tmp, wrow - 1, mkChar(buf));
 1154 
		    SET_STRING_ELT(tmp, wrow - 1, mkChar(buf));
1154 
		    SET_VECTOR_ELT(DE->work, wcol - 1, tmp);
 1155 
		    SET_VECTOR_ELT(DE->work, wcol - 1, tmp);
- 
 
 1156 
		    UNPROTECT(1);
1155 
		}
 1157 
		}
1156 
	    } else {
 1158 
	    } else {
1157 
		if (TYPEOF(cvec) == STRSXP)
 1159 
		if (TYPEOF(cvec) == STRSXP)
1158 
		    SET_STRING_ELT(cvec, wrow - 1, NA_STRING);
 1160 
		    SET_STRING_ELT(cvec, wrow - 1, NA_STRING);
1159 
		else
 1161 
		else