modify map bounds to center around entire storm track

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