add additional storm map

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,

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%")
           )
         )
       )