add map center on lat/lon change for calc

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
   ),