Nothing
#' @importFrom stats runif
.onAttach <- function(...) {
# If interactive, hide message
# o.w. check against rng seed.
if (!interactive() || stats::runif(1) > 0.5){
return()
}
# Display hint
packageStartupMessage( "To see the user guide use `browseVignettes('DecisionAnalysis')`")
}
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.