printLine <- function(...) {
cat(..., '\n')
}
constructLogger <- function(loggingFunction) {
function(...) {
args <- as.character(unlist(list(...)))
printLine(loggingFunction(args))
}
}
blueInfo <- constructLogger(blue)
greenInfo <- constructLogger(green)
yellowInfo <- constructLogger(yellow)
warning <- constructLogger(function(...) { red("!", ...) })
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.