#' @importFrom utils packageDescription
# Conflicts with devtools::document() so commented out
#.onAttach <- function(...) {
# mylib <- dirname(system.file(package = "WhatIf"))
# ver <- packageDescription("WhatIf", lib.loc = mylib)$Version
# builddate <- packageDescription("WhatIf", lib.loc = mylib)$Date
# WhatIf Info - do not exceed 80char/line
# packageStartupMessage(paste("#######################################################\n",
#"##\n",
##"## WhatIf (Version ", ver, ", built ", builddate, ")\n",
#"## WhatIf\n",
#"## Complete documentation available from http://gking.harvard.edu/whatif \n",
#"##\n",
#"#######################################################", sep=""))
#}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.