#' Extract A Number from Text
#'
#' Extract A Number from Text.
#'
#' @param xx text string / vector
#' @export
get_num <- function(xx) {
gsub('[^0-9]', "",xx)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.