Error <- function(message, ...) {
stop('[x] ', message, ..., '\n', call. = FALSE)
}
Message <- function(message, ...) {
message('[i] ', message, ...)
}
Warning <- function(message, ...) {
warning('[!] ',message, ...)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.