#' rt()
#'
#' remove txt and get only number
#'
#' @export
rt <- function(string){
return(trimws(gsub("[[:alpha:]]","",string)))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.