R/generate_meme.R

Defines functions generate_meme

generate_meme <- function(){
  data("meme_links")

  n <- sample(1:nrow(meme_links), size = 1)

  browseURL(meme_links$memes[n])
}
valentinzulj/memegenerator documentation built on Dec. 23, 2021, 2:09 p.m.