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,