setGeneric("asLiteral", function(x, ...) standardGeneric("asLiteral"))
setOldClass("Literal")
setMethod("asLiteral", "Literal", function(x, ...) x$value)
tmp = function(x, ...) x
setMethod("asLiteral", "numeric", tmp)
setMethod("asLiteral", "integer", tmp)
setMethod("asLiteral", "character", tmp)
setMethod("asLiteral", "logical", tmp)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.