#' @export
module <- function(module.name)
{
getvars()
catfun(paste0("#---- ", module.name, " ----#\n"))
setdepth(1L)
invisible()
}
#' @export
submodule <- function(submodule.name)
{
getvars()
spacepadcat(paste0("\r* ", submodule.name, " \n"))
setdepth(2L)
invisible()
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.