writePrj <- function(prj, prjFile){
eol_val <- win.eol()
con <- file(prjFile, "w", blocking = FALSE)
writeLines(prj, con, sep=eol_val)
close(con)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.