# Simple printing of an object
# @param x object to be printed
print_object <- function(x, ...) {
message( 'A ', red( class(x)[[1]] ), ' object: ' )
print( attr_rm_all(unclass(x)), ... )
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.