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