The R Project SVN R-packages

Rev

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

Rev 3509 Rev 3684
Line 86... Line 86...
86 
    sqlite3_finalize(stmt2);
 86 
    sqlite3_finalize(stmt2);
87 
    sqlite3_finalize(stmt);
 87 
    sqlite3_finalize(stmt);
88 
    _sqlite_commit;
 88 
    _sqlite_commit;
89 
 
 89 
 
90 
    /* return smat sexp */
 90 
    /* return smat sexp */
91 
    PROTECT(ret = NEW_LIST(2)); i = 1; /* 1 for names sexp above */
 91 
    PROTECT(ret = NEW_LIST(3)); i = 1; /* 1 for names sexp above */
92 
    SET_VECTOR_ELT(ret, 0, mkString(mat_iname));
 92 
    SET_VECTOR_ELT(ret, 0, mkString(mat_iname));
- 
 
 93 
    SET_VECTOR_ELT(ret, 1, mkString("sdf_data"));
93 
    SET_VECTOR_ELT(ret, 1, mkString("V1"));
 94 
    SET_VECTOR_ELT(ret, 2, mkString("V1"));
94 
 
 95 
 
95 
    /* set smat data name */
 96 
    /* set smat data name */
96 
    PROTECT(tmp = NEW_CHARACTER(2)); i++;
 97 
    PROTECT(tmp = NEW_CHARACTER(3)); i++;
97 
    SET_STRING_ELT(tmp, 0, mkChar("iname"));
 98 
    SET_STRING_ELT(tmp, 0, mkChar("iname"));
- 
 
 99 
    SET_STRING_ELT(tmp, 1, mkChar("tblname"));
98 
    SET_STRING_ELT(tmp, 1, mkChar("varname"));
 100 
    SET_STRING_ELT(tmp, 2, mkChar("varname"));
99 
    SET_NAMES(ret, tmp);
 101 
    SET_NAMES(ret, tmp);
100 
 
 102 
 
101 
    /* set class */
 103 
    /* set class */
102 
    PROTECT(tmp = mkString("sqlite.matrix")); i++;
 104 
    PROTECT(tmp = mkString("sqlite.matrix")); i++;
103 
    SET_CLASS(ret, tmp);
 105 
    SET_CLASS(ret, tmp);
Line 108... Line 110...
108 
    INTEGER(tmp)[1] = ncols - 1;  /* ncols includes [row names] */
 110 
    INTEGER(tmp)[1] = ncols - 1;  /* ncols includes [row names] */
109 
    setAttrib(ret, SDF_DimSymbol, tmp);
 111 
    setAttrib(ret, SDF_DimSymbol, tmp);
110 
 
 112 
 
111 
    /* set smat dimname */
 113 
    /* set smat dimname */
112 
    PROTECT(tmp = NEW_LIST(2)); i++;
 114 
    PROTECT(tmp = NEW_LIST(2)); i++;
113 
    SET_VECTOR_ELT(tmp, 0, R_NilValue); /* NOT EXACTLY... */
 115 
    SET_VECTOR_ELT(tmp, 0, _create_svector_sexp(mat_iname,
- 
 
 116 
                "sdf_matrix_rownames", "name", "character"));
114 
    SET_VECTOR_ELT(tmp, 1, names);
 117 
    SET_VECTOR_ELT(tmp, 1, names);
115 
    setAttrib(ret, SDF_DimNamesSymbol, tmp);
 118 
    setAttrib(ret, SDF_DimNamesSymbol, tmp);
116 
 
 119 
 
117 
    UNPROTECT(i);
 120 
    UNPROTECT(i);
118 
 
 121