R wrapper for https://yesno.wtf (Yes/No as a service).
You can install yesno using Dirk Eddelbeutel's drat package.
# install.packages("drat")
drat::addRepo("MHenderson")
install.packages("yesno")
You can also install yesno from Github with:
# install.packages("devtools")
devtools::install_github("MHenderson/yesno")
yesno::yesno(force = "yes")
#> $answer
#> [1] "yes"
#>
#> $forced
#> [1] TRUE
#>
#> $image
#> [1] "https://www.yesno.wtf/assets/yes/13-c3082a998e7758be8e582276f35d1336.gif"
To embed the yesno()$image
GIF in an RMarkdown document do something like the following.
cat(sprintf("![](%s)", yesno::yesno()$image))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.