.onAttach <- function(...) {
ver <- utils::packageVersion("kayatool")
msg <- paste0("\nThis is kayatool version ", ver, "\n")
packageStartupMessage(msg)
}
.onLoad <- function(libname, pkgname) {
op <- options()
op.kayatool <- list(
kayatool.rstudio = FALSE
)
set_ops <- !(names(op.kayatool) %in% names(op))
if (any(set_ops)) options(op.kayatool[set_ops])
invisible()
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.