The R Project SVN R-packages

Rev

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

Rev 3419 Rev 3456
Line 230... Line 230...
230 
 
 230 
 
231 
    PROTECT(variable = mkString(iname)); nprotected++;
 231 
    PROTECT(variable = mkString(iname)); nprotected++;
232 
    SET_VECTOR_ELT(ret, 0, variable);
 232 
    SET_VECTOR_ELT(ret, 0, variable);
233 
 
 233 
 
234 
    /* set class */
 234 
    /* set class */
235 
    PROTECT(class = NEW_CHARACTER(2)); nprotected++;
 235 
    PROTECT(class = NEW_CHARACTER(1)); nprotected++;
236 
    SET_STRING_ELT(class, 0, mkChar("sqlite.data.frame"));
 236 
    SET_STRING_ELT(class, 0, mkChar("sqlite.data.frame"));
237 
    SET_STRING_ELT(class, 1, mkChar("data.frame"));
 - 
 
238 
    SET_CLASS(ret, class);
 237 
    SET_CLASS(ret, class);
239 
    SET_ROWNAMES(ret, _get_rownames2(iname));
 238 
    SET_ROWNAMES(ret, _get_rownames2(iname));
240
239
241 
    UNPROTECT(nprotected);
 240 
    UNPROTECT(nprotected);
242 
    return ret;
 241 
    return ret;