library(maptools)
url = "http://efele.net/maps/tz/world/tz_world_mp.zip"
d = tempdir()
out_file = file.path(d,"world.zip")
download.file(url, destfile=out_file)
unzip(out_file, exdir=d)
world_tz_shapes = readShapeSpatial(file.path(d,"world","tz_world_mp.shp"))
save(world_tz_shapes, file = "./world_tz_shapes.rda")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.