#' @export
#' @author CainĂ£ Max Couto-Silva
ignore.path <- function(file_path) {
sapply(file_path, function(fpath) {
if(grepl("/", fpath)) fpath <- gsub(".*/(.+)", "\\1", fpath)
if(grepl("/$", fpath)) fpath <- unlist(strsplit(fpath, "/$"))
return(fpath)
})
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.