sq_get_quote <- function(topic = NULL) {
quote <- statquotes::statquote(topic = topic)
class(quote) <- c("quote", class(quote))
quote
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.