add map popups

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