##/////////////////////////////////////////////////////////////////////////////
##//zzz.R
##/////////////////////////////////////////////////////////////////////////////
##
##=============================================================================
## author: Michael Dietze
##=============================================================================
##==============================================================================
.onAttach <- function(libname, pkgname){
## show startup message
try(packageStartupMessage(paste0("\n",
"EMMAgeo v. 0.9.7. When using this package please cite: ", "\n", "\n",
"Dietze, E., and Dietze, M.: Grain-size distribution unmixing using the ",
"R package EMMAgeo, E&G Quaternary Sci. J., 68, 29-46, https://doi.org/",
"10.5194/egqsj-68-29-2019, 2019", "\n", "\n",
"Dietze E, Hartmann K, Diekmann B, IJmker J, Lehmkuhl F, Opitz S, Stauch ",
"G, Wuennemann B, Borchers A. 2012. An end-member algorithm for ",
"deciphering modern detrital processes from lake sediments of ",
"Lake Donggi Cona, NE Tibetan Plateau, China. Sedimentary Geology ",
"243-244: 169-180.", "\n", "\n",
"(Don't forget to mention the package and R version.)")),
silent = TRUE)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.