##' clean terminal
##'
##'
##' @title clear
##' @export
## @rawNamespace exportPattern("^clear$")
clear <- structure(c("\033[2J", "\033[0;0H"),
class = "clear")
##' @method print clear
##' @export
print.clear <- function(x, ...) {
cat(x)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.