.onLoad <- function(libname, pkgname) {
modules <- paste0("stan_fit4", names(stanmodels), "_mod")
for (m in modules) loadModule(m, what = TRUE)
}
.onAttach <- function(libname, pkgname){
art <-
c(
" * ",
" / | ",
" @ @ ",
" ,%@@@@@@@# ,*//**,*(@@@@& @@ &@ @ ",
" @@ @& @ /@& @ /@ ",
" @@@% @ @% %%@& @@ ",
" @@@@@& ,@ @@ @@, @% ",
" /@@@@@@ .@ @ @@ (@ ",
" @@ @ .@ @# @( ",
" &@@@@ @, @ @ @ @@ ",
" @( @& @@ @# @( #@ @ ",
" *@@@@@@@@@@@ @/@% @, &@@@@@@@(@@@, ",
" @& @ &@ @( && ",
" @@@#,. @@ %@ @( ",
" %@ ,@@ @ ,@ ",
" &@@@@% @@ @ @/ ",
" @ @@( @@ ",
" ./@@ @ @ ",
" @@ /@ @ ",
" @ @@& @( ",
" @. @ @# %@% ",
" %@@@@@@@ @ ",
" %@( @ @ @. ",
" @@ @@ @@@ @% @@@@.,@ @ ",
" @ @@& @.@% ",
" .#( @ @ @# @ ",
" @& @& .@ @@@@ @@ ",
" @ *#@ @@ @@ @ @, ",
" @ %@ @ @ .@@ @@@ ",
" @ @@ && /% .@@@. ",
" @ @ ,@ @@@@@# ",
" @& @, @@% @* ",
" @ @ @# @ ",
" @ @ @. @@ ",
" &@ @& && @, ",
" @ @ @( @ ",
" @# ,@@ @@ @ @ @, ",
" &@@@@&@ @@ @ @ ",
" @@@ @@ @@ ",
" @@@ ,@@ ",
" @@/ &@ ",
" @@(@@ ",
" #% #@ ",
" @@@@@ ",
" ",
" "
)
art <- paste0(art,collapse="\n")
packageStartupMessage(art,appendLF=TRUE)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.