R/zzz.R

In rdpeng/filehashsqlite: Simple Key-Value Database Using SQLite

#' @importFrom filehash registerFormatDB
.onLoad <- function(lib, pkg) {
    ## Register 'filehash' database format
    r <- list(create = createSQLite, initialize = initializeSQLite)
    registerFormatDB("SQLite", r)
}

.onAttach <- function(lib, pkg) {
    dcf <- read.dcf(file.path(lib, pkg, "DESCRIPTION"))
    msg <- gettextf("%s (%s)", dcf[, "Title"],
                    as.character(dcf[, "Version"]))
    packageStartupMessage(paste(strwrap(msg), collapse = "\n"))
}