data(World)
current.style <- tmap_style("classic")
qtm(World, fill="life_exp", fill.title="Life expectancy")
tmap_style("cobalt")
qtm(World, fill="life_exp", fill.title="Life expectancy")
# restore current style
tmap_style(current.style)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.