#' Capitalize first letter in string
#' @param x A character vector
#'
#' @return A character vector with first character of each item capitalized
#' @examples
#' cap_first("camille")
#' cap_first(c("camille", "new haven"))
#' @export
cap_first <- function(x) {
paste0(
stringr::str_sub(x, 1, 1) %>% stringr::str_to_upper(),
stringr::str_sub(x, 2, -1) %>% stringr::str_to_lower()
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.