#' array-ify a string with a possible leading path/URL/whatever
#'
#' @param x a string
#' @param y a split character (default is " ")
#'
#' @return the array produced by splitting basename(x) on y
#'
#' @export
str2vec <- function(x, y=" ") {
strsplit(basename(x), y)[[1]]
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.