From e268fe7892876a8329c22ad809d151a36189bc40 Mon Sep 17 00:00:00 2001
From: dylanbenzi <dylanbenzi@gmail.com>
Date: Sun, 20 Jul 2025 18:05:04 -0400
Subject: [PATCH] modify map bounds to center around entire storm track

---
 dashboard.Rmd | 34 ++++++----------------------------
 1 file changed, 6 insertions(+), 28 deletions(-)

diff --git a/dashboard.Rmd b/dashboard.Rmd
index ef7398b..8f7d345 100644
--- a/dashboard.Rmd
+++ b/dashboard.Rmd
@@ -381,39 +381,17 @@ storm_track <- reactive({
   return(result)
 })
 
-# Reactive for map center based on storm track
-map_center <- reactive({
-  track_data <- storm_track()
-  
-  first_lf <- track_data %>% 
-    filter(record_identifier == "L") %>% 
-    arrange(desc(datetime)) 
-  
-  if(nrow(first_lf) > 0) {
-    center <- first_lf %>% 
-      head(1) %>%
-      select(lon, lat)
-  } else {
-    center <- data.frame(
-      lon = -76,
-      lat = 35
-    )
-  }
-  
-  return(center)
-})
-
 output$track_map <- renderLeaflet({
   track_data <- storm_track()
-  center <- map_center()
   
   map <- leaflet() %>% 
     addProviderTiles("Stadia.AlidadeSmooth", 
-                     options = providerTileOptions(updateWhenIdle = T)) %>%
-    setView(
-      lng = center$lon,
-      lat = center$lat,
-      zoom = 4
+                     options = providerTileOptions(updateWhenIdle = T)) %>% 
+    fitBounds(
+      lng1 = min(track_data$lon),
+      lng2 = max(track_data$lon),
+      lat1 = min(track_data$lat),
+      lat2 = max(track_data$lat),
     )
   
   if (nrow(track_data) >= 2) {