diff --git a/dashboard.Rmd b/dashboard.Rmd index 27b1322..96d3c8e 100644 --- a/dashboard.Rmd +++ b/dashboard.Rmd @@ -1164,6 +1164,7 @@ observe({ if(new_lat >= -90 & new_lat <= 90 & new_lon >= -180 & new_lon <= 180) { leafletProxy("impact_analysis_map") %>% + setView(lat = new_lat, lng = new_lon, zoom = 9) %>% clearShapes() %>% clearMarkers() %>% addCircleMarkers( @@ -1294,6 +1295,7 @@ div( "impact_rmw_multiplier", label = "RMW Multiplier", choices = c("1x", "2x", "3x"), + selected = "2x", status = "outline-primary rounded-0", justified = T ),