#' Capitalise the first letter of all words
#'
#' @param string String or character vector to pass through.
#'
#' @examples
#' cap_first("steeles pots and pans")
#'
#' @export
cap_first <- function(string) {
gsub("(^|[[:space:]])([[:alpha:]])", "\\1\\U\\2", string, perl = TRUE)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.