|
|
|
@@ -77,7 +77,6 @@ server <- function(input, output, session) |
|
|
|
output$map <- renderLeaflet({ |
|
|
|
leaflet(options = leafletOptions(minZoom = 6, maxZoom = 14)) %>% |
|
|
|
addProviderTiles(providers$CartoDB.Positron) %>% |
|
|
|
# addPolygons(weight = 1, color = "#222222", opacity = .1, fillOpacity = .1, fillColor = "#EEEEEE") %>% |
|
|
|
setView(lat = 48.35, lng = 6, zoom = 8) |
|
|
|
}) |
|
|
|
|
|
|
|
|
