#' Extract a Sequence of Numbers from Text
#'
#' Extract a Sequence of Numbers from Text.
#'
#' @param xx text string / vector
#' @export
get_num_seq <- function(xx){
y <- strsplit(
gsub("[[:punct:]]","", xx)
, " ")[[1]]
y[grep('[0-9]', y)]
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.