R/zzz.R

In OpenRepGrid: Tools to analyse repertory grid data

# called for the side effects, i.e. for a welcome message
#
.onLoad <- function(lib, pkg){
    packageStartupMessage(
            "------------------------------------------------",
          "\n OpenRepGrid Version ",  utils::packageDescription("OpenRepGrid", field="Version"), 
          "\n Tools for the analysis of repertory grid data",
          "\n For an introduction visit: www.openrepgrid.org",
          "\n------------------------------------------------", 
          appendLF = TRUE)

    # invisible object in workspace to store parameters (TODO)
    .openrepgrid <<- list()
    .openrepgrid$par <- "some parameters to store"
}

# clean up workspace
.onUnload <- function(lib){
    rm(.openrepgrid)
}