dylan/hurricane_normalization_app
1
0
Fork 0
mirror of https://github.com/dylanbenzi/hurricane_normalization_app.git synced 2026-07-30 05:08:57 +00:00
Code Issues Packages Projects Releases Wiki Activity

modify hurricane track colors to fix erroneous hurricane status

Browse Source
This commit is contained in:
dylan
2025-07-20 20:14:46 -04:00
parent 2f364651b1
commit 7232368784
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
dashboard.Rmd
+6 -6
View File
@@ -287,19 +287,19 @@ storm_track <- reactive({
hurricane_category = case_when( hurricane_category = case_when(
# Hurricane Cat 1 # Hurricane Cat 1
windspeed >= 64 & windspeed <= 82 ~ 1, storm_status == "HU" & windspeed >= 64 & windspeed <= 82 ~ 1,
# Hurricane Cat 2 # Hurricane Cat 2
windspeed >= 83 & windspeed <= 95 ~ 2, storm_status == "HU" & windspeed >= 83 & windspeed <= 95 ~ 2,
# Hurricane Cat 3 # Hurricane Cat 3
windspeed >= 96 & windspeed <= 112 ~ 3, storm_status == "HU" & windspeed >= 96 & windspeed <= 112 ~ 3,
# Hurricane Cat 4 # Hurricane Cat 4
windspeed >= 113 & windspeed <= 136 ~ 4, storm_status == "HU" & windspeed >= 113 & windspeed <= 136 ~ 4,
# Hurricane Cate 5 # Hurricane Cate 5
windspeed >= 137 ~ 5, storm_status == "HU" & windspeed >= 137 ~ 5,
), ),
line_color = case_when( line_color = case_when(
@@ -307,7 +307,7 @@ storm_track <- reactive({
storm_status == "TD" ~ "#2AFF00", storm_status == "TD" ~ "#2AFF00",
# Tropical Storm - Yellow # Tropical Storm - Yellow
storm_status == "TS" ~ "#FFED2C", storm_status == "TS" ~ "#FFD020",
# Hurricane Cat 1 - Red # Hurricane Cat 1 - Red
hurricane_category == 1 ~ "#FF4343", hurricane_category == 1 ~ "#FF4343",