The R Project SVN R-packages

Rev

Rev 3700 | Rev 3821 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3700 Rev 3808
Line 195... Line 195...
195 
                SET_STRING_ELT(class, 1, mkChar("factor"));
 195 
                SET_STRING_ELT(class, 1, mkChar("factor"));
196 
                SET_CLASS(value, class);
 196 
                SET_CLASS(value, class);
197 
                UNPROTECT(1);
 197 
                UNPROTECT(1);
198 
            }
 198 
            }
199 
        } else {
 199 
        } else {
200 
            Rprintf("Error: not supported type %s for %s\n", coltype, colname);
 - 
 
201 
            UNPROTECT(2); /* unprotect ret, names */
 200 
            UNPROTECT(2); /* unprotect ret, names */
202 
            return R_NilValue;
 201 
            error("not supported type %s for %s\n", coltype, colname);
203 
        }
 202 
        }
204 
 
 203 
 
205 
        SET_VECTOR_ELT(ret, i, value);
 204 
        SET_VECTOR_ELT(ret, i, value);
206 
        UNPROTECT(1); /* unprotect value */
 205 
        UNPROTECT(1); /* unprotect value */
207
206