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