From f0f1c0e7581218b56bd43f8c544d472183fc3b66 Mon Sep 17 00:00:00 2001
From: dylanbenzi <dylanbenzi@gmail.com>
Date: Sun, 3 Aug 2025 01:09:27 -0400
Subject: [PATCH] add map center on lat/lon change for calc

---
 dashboard.Rmd | 2 ++
 1 file changed, 2 insertions(+)

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