safe_split <- function(s, sep = ";"){
if(is.null(s)) return("")
sep = paste0(sep, "[\\s]*")
if(stringr::str_detect(s, sep) ) {
s = stringr::str_split(s, sep)[[1]]
}
s
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.