local({
    info <- loadingNamespaceInfo()
    ns <- .Internal(getRegisteredNamespace(as.name(info$pkgname)))
    if (is.null(ns))
        stop("cannot find name space environment");
    dataFile <- file.path(info$libname, info$pkgname, "R", "all.rda")
    load(dataFile, ns)
})
options(save.defaults = list(compress=TRUE))
