Nothing
#.onLoad <- function(libname, pkgname) {
# if (!require(methods)) {
# stop("Require methods package")
# }
#}
.onAttach <- function(libname, pkgname) {
packageStartupMessage('\n', 'Welcome to Rsocialdata', '.')
packageStartupMessage('You are running version ', Survey.version(), '.\n')
packageStartupMessage(
'For introductory material, type ',
#"'vignette(package=\"Rsocialdata\")'.\n"
"`vignette('Rsocialdata-vignette-overview')`.\n"
)
packageStartupMessage(
'If you use this package for building a data base, pre-processing data or data analysis, thank you for rewarding our work by citing the package in your own one. ',
"Please type `citation(\'Rsocialdata\')` for citation information.\n"
)
packageStartupMessage(
"Type `help(package = \'Rsocialdata\')` ",
"to show the help index.\n"
)
}
.Last.lib <- function(libpath) {
message('\n', 'Thank you for using Rsocialdata', '.')
message('See you soon', '!')
}
.onUnload <- function(libpath) {
#library.dynam.unload("Rsocialdata", libpath )
}
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.