#' @export
str_split <- function(x, split = "-", names = NULL) {
ans <- strsplit(x, split) %>%
map(as.numeric) %>%
do.call(rbind, .) %>%
as.data.table()
if (!is.null(names)) ans %<>% set_names(names)
ans
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.