## Utility function borrowed from icesTAF
unix2dos <- function(file)
{
txt <- readLines(file)
con <- file(file, open="wb")
writeLines(txt, con, sep="\r\n")
close(con)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.