From 531b98bfb365cda6e48504902500b99a208f98bf Mon Sep 17 00:00:00 2001
From: dylanbenzi <dylanbenzi@gmail.com>
Date: Fri, 11 Jul 2025 00:25:39 -0400
Subject: [PATCH] add map popups

---
 dashboard.Rmd | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

diff --git a/dashboard.Rmd b/dashboard.Rmd
index d1101a6..0344c63 100644
--- a/dashboard.Rmd
+++ b/dashboard.Rmd
@@ -790,21 +790,22 @@ output$all_storms_map <- renderLeaflet({
     data = all_storm_landfalls,
     lng = ~lon,
     lat = ~lat,
-    radius = 5,
+    radius = 2,
     weight = 0,
-    color = "red",
-    fillColor = "red",
-    fillOpacity = 0.8
+    color = "blue",
+    fillColor = "blue",
+    fillOpacity = 0.5
   ) %>% 
   addCircles(
     data = all_storm_landfalls,
     lng = ~lon,
     lat = ~lat,
     radius = ~rmw_meters,
-    weight = 2,
-    color = "red",
-    fillColor = "red",
-    fillOpacity = 0.3
+    popup = ~paste0(storm_name, " ", storm_year),
+    weight = 1,
+    color = "blue",
+    fillColor = "blue",
+    fillOpacity = 0.05
   ) 
 })