readPrj <- function(prjFile){
con <- file(prjFile, "r", blocking = FALSE, encoding="ISO_8859-2")
prj <- readLines(con)
close(con)
return(prj)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.