datacache <- new.env(hash=TRUE, parent=emptyenv())
@ANNOBJPREFIX@ <- function() showQCData("@ANNOBJPREFIX@", datacache)
@ANNOBJPREFIX@_dbconn <- function() dbconn(datacache)
@ANNOBJPREFIX@_dbfile <- function() dbfile(datacache)
@ANNOBJPREFIX@_dbschema <- function(file="", show.indices=FALSE) dbschema(datacache, file=file, show.indices=show.indices)
@ANNOBJPREFIX@_dbInfo <- function() dbInfo(datacache)
.onLoad <- function(libname, pkgname)
{
## Connect to the SQLite DB
dbfile <- system.file("extdata", "@DBFILE@", package=pkgname, lib.loc=libname)
assign("dbfile", dbfile, envir=datacache)
dbconn <- dbFileConnect(dbfile)
assign("dbconn", dbconn, envir=datacache)
## Create the OrgDb object
sPkgname <- sub(".db$","",pkgname)
txdb <- loadDb(system.file("extdata", paste(sPkgname,
".sqlite",sep=""), package=pkgname, lib.loc=libname),
packageName=pkgname)
dbNewname <- AnnotationDbi:::dbObjectName(pkgname,"OrthologyDb")
ns <- asNamespace(pkgname)
assign(dbNewname, txdb, envir=ns)
namespaceExport(ns, dbNewname)
packageStartupMessage(AnnotationDbi:::annoStartupMessages("@ANNOBJPREFIX@"))
}
.onUnload <- function(libpath)
{
dbFileDisconnect(@ANNOBJPREFIX@_dbconn())
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.