arg_choices <- function(name, choices){
paste0("@param ", name, " one of the following values: ", paste(shQuote(choices), collapse = ", "), ".")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.