checkLinks =
function(doc, local = TRUE)
{
doc = htmlParse(doc)
links = sapply(getNodeSet(doc, "//a[@href]"), xmlGetAttr, "href")
if(local)
links = grep("^(http|mailto)", links, invert = TRUE, value = TRUE)
cur = getwd()
on.exit(setwd(cur))
setwd( dirname(docName(doc)))
links[!file.exists(links)]
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.