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 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",