The R Project SVN R-packages

SEXP sopen(SEXP name) {

    char *filename;

    if (IS_CHARACTER(name)) {

        filename = CHAR(STRING_ELT(name,0));

        Rprintf("%s\n", filename);

    }

    /* sqlite3 *db;

    int res = sqlite3_open(filename, &db); */

    SEXP ret;

    PROTECT(ret = NEW_LOGICAL(1));

    LOGICAL(ret)[0] = IS_CHARACTER(name);

    /* sqlite3_close(db); */ 

    UNPROTECT(1);

    return ret;

}