diff --git a/app/server.R b/app/server.R index e0a125b..c56bdbb 100644 --- a/app/server.R +++ b/app/server.R @@ -297,6 +297,33 @@ server <- function(input, output, session) { ) }) + output$cost_storms_map <- renderLeaflet({ + leaflet() %>% + addProviderTiles("Stadia.AlidadeSmooth") %>% + addCircleMarkers( + data = all_conus_landfalls, + lng = ~lon, + lat = ~lat, + radius = 2, + popup = ~ paste0(storm_name, " ", storm_year), + weight = 0, + color = "blue", + fillColor = "blue", + fillOpacity = 0.5 + ) %>% + addCircles( + data = all_conus_landfalls, + lng = ~lon, + lat = ~lat, + radius = ~rmw_meters, + popup = ~ paste0(storm_name, " ", storm_year), + weight = 1, + color = "blue", + fillColor = "blue", + fillOpacity = 0.05 + ) + }) + storm_track <- reactive({ req( storm_selection$storm_basin, diff --git a/app/ui.R b/app/ui.R index a0ed9dc..fae6a77 100644 --- a/app/ui.R +++ b/app/ui.R @@ -352,7 +352,7 @@ ui <- page_navbar( height = 700, card_body( class = "p-0", - #leafletOutput("all_storms_map", height = "100%") + leafletOutput("cost_storms_map", height = "100%") ) ) )