file_path <- function(dir, file_name)
{
if (!is_dir(dir)) {
stop("'dir' is not a proper 'dir' object.",
call. = FALSE)
}
return(file.path(dir, file_name))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.