Nothing
# 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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.