R/getmeme.R

In bdacunha/randompic: Inserts a link of a random or cute pic

#' get meme
#'
#' Gets the link for a doge meme in which you can change the words. Just input three words and the meme will be generated
#'
#' @param x words for the meme generator
#' @return doge meme
#' @export
#' @examples
#' getmeme(c("wow", "nice", "function"))
getmeme <- function(x){
	stopifnot(is.character(x))
	x <-  paste(x, collapse ="/")
	sprintf("![](http://dogr.io/%s.png)", x)
}