#' @export
nchar_lower_letter <-
function(vector) {
nchar(gsub("[^a-z]", "", as.character(vector)))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.