| parse_path | R Documentation | 
Parse file path into useful components
parse_path(path, chr = "", pdir = getwd(), mess = TRUE)
path | 
 Path to be parsed  | 
chr | 
 Character to wrap around path for display  | 
pdir | 
 Project directory if available  | 
mess | 
 Print messages if Dropbox or Google Drive not found  | 
Parse file path into useful components (i.e., file name, file extension, relative path, etc.)
list.files(".", full.names = TRUE)[1] %>% parse_path()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.