#' Convert a string to proper case
#'
#' @param str a character string or vector of strings
#'
#' @return string in proper case
#' @export
#'
#' @examples proper("abc")
proper <- function(str){
paste0(toupper(substr(str, 1, 1)), tolower(substring(str, 2)))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.