#' Capitalize the first letter in a string
#'
#' @param x A piece of text
#' @export
#'
first_up <- function(x) {
substr(x, 1, 1) <- toupper(substr(x, 1, 1))
return(x)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.