knitr::opts_chunk$set( collapse = TRUE, comment = "#>", fig.width = 7.5 )
library(coronavirusbrazil) data("spatial_br_states") head(spatial_br_states)
mapview::mapview(spatial_br_states, map = leaflet::leaflet() %>% leaflet::addTiles(), zcol="cases", cex="log_cases", layer.name="Casos", label=paste0(spatial_br_states$uf, ": ", spatial_br_states$cases))
data("spatial_br_cities") head(spatial_br_cities)
mapview::mapview(spatial_br_cities, map = leaflet::leaflet() %>% leaflet::addTiles(), zcol="cases", cex="log_cases", layer.name="Casos", label=paste0(spatial_br_cities$city, ": ", spatial_br_cities$cases))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.