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