Nothing
get_path_name <- function(path_id, dest_paths) {
names(dest_paths)[sapply(dest_paths, function(x) path_id %in% x)]
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.