From 7232368784457d3be09859983f82fb4b9a125d14 Mon Sep 17 00:00:00 2001
From: dylanbenzi <dylanbenzi@gmail.com>
Date: Sun, 20 Jul 2025 20:14:23 -0400
Subject: [PATCH] modify hurricane track colors to fix erroneous hurricane
 status

---
 dashboard.Rmd | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/dashboard.Rmd b/dashboard.Rmd
index c32a6b6..fb8c092 100644
--- a/dashboard.Rmd
+++ b/dashboard.Rmd
@@ -287,19 +287,19 @@ storm_track <- reactive({
       hurricane_category = case_when(
         
         # Hurricane Cat 1
-        windspeed >= 64 & windspeed <= 82 ~ 1,
+        storm_status == "HU" & windspeed >= 64 & windspeed <= 82 ~ 1,
         
         # Hurricane Cat 2
-        windspeed >= 83 & windspeed <= 95 ~ 2,
+        storm_status == "HU" & windspeed >= 83 & windspeed <= 95 ~ 2,
         
         # Hurricane Cat 3
-        windspeed >= 96 & windspeed <= 112 ~ 3,
+        storm_status == "HU" & windspeed >= 96 & windspeed <= 112 ~ 3,
         
         # Hurricane Cat 4
-        windspeed >= 113 & windspeed <= 136 ~ 4,
+        storm_status == "HU" & windspeed >= 113 & windspeed <= 136 ~ 4,
         
         # Hurricane Cate 5
-        windspeed >= 137 ~ 5,
+        storm_status == "HU" & windspeed >= 137 ~ 5,
       ),
       line_color = case_when(
         
@@ -307,7 +307,7 @@ storm_track <- reactive({
         storm_status == "TD" ~ "#2AFF00",
         
         # Tropical Storm - Yellow
-        storm_status == "TS" ~ "#FFED2C",
+        storm_status == "TS" ~ "#FFD020",
         
         # Hurricane Cat 1 - Red
         hurricane_category == 1 ~ "#FF4343",