try(local({
f <- suppressWarnings(fortunes::fortune())
cat(sprintf("Fortune #%s:\n", attr(f, "row.names")))
print(f)
unloadNamespace("fortunes")
}), silent = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.