#' Internal function to parse user 'yes/no' input
#'
#' @return User input if matching one of \code{c('y','yes','Yes','n','no','No')}
#'
#' @examples
yes_no_input <- function(message_text = NULL) {
repeat{
if(is.not.null(message_text)) message(message_text)
message(paste0('Please enter (y)es/(n)o:'))
input <- readline()
if(input %in% c('y','yes','Yes','n','no','No')) return(input)
}}
is.yes <- function(yn) { yn %in% c('y','yes','Yes') }
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.