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