.fname <- function() { path <- commandArgs()[4] file <- strsplit(path, split = "=|\\.") print(file) return(file[[1]][[2]]) } file <- .fname() print(file)
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.