modify landfall point to use storm status color

2026-07-29 21:01:27 +00:00 · 2025-07-20 17:55:13 -04:00
parent 118c110ad3
commit 1a68906d16
1 changed files with 4 additions and 4 deletions
@@ -462,8 +462,8 @@ output$track_map <- renderLeaflet({
        lat = ~lat,
        radius = 5,
        weight = 0,
-        color = "red",
-        fillColor = "red",
+        color = ~line_color,
+        fillColor = ~line_color,
        fillOpacity = 1,
        popup = ~paste0("<b>LANDFALL</b>", "<br>",
                        "<b>DATE</b>", "<br>",
@@ -484,8 +484,8 @@ output$track_map <- renderLeaflet({
        lat = ~lat,
        radius = ~rmw_meters,
        weight = 2,
-        color = "red",
-        fillColor = "red",
+        color = ~line_color,
+        fillColor = ~line_color,
        fillOpacity = 0.3,
        popup = ~paste0("<b>LANDFALL</b>", "<br>",
                        "<b>DATE</b>", "<br>",