exiftoolPath <- function(exiftoolDir){
WPATH <- Sys.getenv("PATH")
WPATH1 <- paste(exiftoolDir, WPATH, sep=";")
Sys.setenv(PATH=WPATH1)
return(invisible(grepl(exiftoolDir, Sys.getenv("PATH"))))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.