R/initExtension.R

Defines functions sqliteExtension

Documented in sqliteExtension

initExtension = sqliteExtension =
function(db, dll = getLoadedDLLs()[[pkg]][["path"]],
         pkg = "RSQLite")
{
    if (!db@loadable.extensions) 
        stop("Loadable extensions are not enabled for this db connection", call. = FALSE)

    dll = path.expand(dll)
    
    if(!file.exists(dll))
        stop("Cannot find the extension file")
    
    dbGetQuery(db, sprintf("SELECT load_extension('%s')",  dll))
    
    TRUE
}
duncantl/RSQLiteUDF documentation built on Jan. 5, 2021, 7:55 a.m.