str_chop_vec <- function(x, pattern) {
return(unlist(lapply(x, function(y) {
unlist(stringr::str_split(y, pattern))[1]
})))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.