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