The R Project SVN R-packages

Rev

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

Rev 3473 Rev 3684
Line 143... Line 143...
143 
 
 143 
 
144 
sdf_import_sqlite_table__out:
 144 
sdf_import_sqlite_table__out:
145 
    _sqlite_exec("detach [@@import@@]");
 145 
    _sqlite_exec("detach [@@import@@]");
146 
    return ret;
 146 
    return ret;
147 
}
 147 
}
- 
 
 148 
 
- 
 
 149 
SEXP sdf_tempdir() {
- 
 
 150 
    SEXP tempdir, ans;
- 
 
 151 
 
- 
 
 152 
    PROTECT(tempdir = allocList(1));
- 
 
 153 
    SET_TYPEOF(tempdir, LANGSXP);
- 
 
 154 
    SETCAR(tempdir,install("tempdir"));
- 
 
 155 
    /* SET_VECTOR_ELT(tempdir, 0, install("tempdir")); */
- 
 
 156 
    ans = eval(tempdir, R_GlobalEnv);
- 
 
 157
- 
 
 158 
    UNPROTECT(1);
- 
 
 159 
    return ans;
- 
 
 160 
}