library(evaluate)
# replay() should work when print() returns visible NULLs
print.FOO_BAR <- function(x, ...) NULL
ret <- evaluate('structure(1, class = "FOO_BAR")')
print(ret)
replay(ret)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.