generate_meme <- function(){
data("meme_links")
n <- sample(1:nrow(meme_links), size = 1)
browseURL(meme_links$memes[n])
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.