inst/GmapGenomePackage-template/R/zzz.R

In gmapR: An R interface to the GMAP/GSNAP/GSTRUCT suite

###
### Load the GmapGenome object whenever the package is loaded.
###

.onLoad <- function(libname, pkgname)
{
  ns <- asNamespace(pkgname)

  iit_path <- system.file("extdata", package=pkgname, lib.loc=libname)
  genome <- GmapGenome(genome = "@GMAPGENOMENAME@",
                       directory = GmapGenomeDirectory(iit_path),
                       create = FALSE)

  objname <- pkgname
  assign(objname, genome, envir=ns)
  namespaceExport(ns, objname)
}