#' Split a string
#'
#' @param x A character with one element
#' @param split What to split on
#'
#' @return A character vector
#' @export
#'
#' @examples
#' x <- "alfa,bravo,charlie,delta"
#' strsplit1(x, split = ",")
strsplit1 = function(x,split){
strsplit(x,split = split)[[1]]
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.