The R Project SVN – R-packages – Diff – /trunk/SQLiteDF/src/utils.c

     /* set list values */
     SET_VECTOR_ELT(ret, 0, mkString(sdf_iname));
     SET_VECTOR_ELT(ret, 1, mkString("row name"));
     /* set class */
-    PROTECT(value = NEW_CHARACTER(2)); nprotected++;
-    SET_STRING_ELT(value, 0, mkChar("sqlite.vector"));
+    SET_CLASS(ret, mkString("sqlite.vector"));
-    SET_STRING_ELT(value, 1, mkChar("character"));
+    SET_SDFVECTORTYPE(ret, mkString("character"));
-    SET_CLASS(ret, value);
     UNPROTECT(nprotected);
     return ret;
+}
     /* set class */
     PROTECT(class = NEW_CHARACTER(1)); nprotected++;
     SET_STRING_ELT(class, 0, mkChar("sqlite.data.frame"));
     SET_CLASS(ret, class);
-    SET_ROWNAMES(ret, _get_rownames2(iname));
+    SET_SDFROWNAMES(ret, _get_rownames2(iname));
     UNPROTECT(nprotected);
     return ret;
+}

The R Project SVN R-packages