shape2rda <- function(shape,outdir){
NUTS1=readShapePoly(shape)
fn <- paste0(outdir,"/NUTS1.rda")
save(NUTS1, ascii=FALSE, file=fn)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.