compare maps

gistfile1.txt

library(leaflet)
library(mapview)

spatial_merge <- gadmCHE

m1 <- leaflet() %>%
  addTiles() %>%
  addPolygons(data = spatial_merge, 
              layerId = spatial_merge@data$OBJECTID, 
              stroke= TRUE, fillOpacity = 0.5, smoothFactor = 0.5,     weight=1,
              color = "grey", opacity = 1, 
              popup=paste(sep= "<br/>",
                          "<b>FeatureID: </b>", row.names(spatial_merge)))

m2 <- mapview(gadmCHE)

sync(m1, m2)