#' Make Text All Caps or No Caps
#'
#' Make Text All Caps or No Caps.
#'
#' @param x text string
#' @param upper whether string should be upper or lower
#' @export
caps <- function(x, upper=TRUE){
casefold(x, upper = upper)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.