dylan/hurricane_normalization_app
1
0
Fork 0
mirror of https://github.com/dylanbenzi/hurricane_normalization_app.git synced 2026-07-29 21:01:27 +00:00
Code Issues Packages Projects Releases Wiki Activity

add popup information at each point

Browse Source
This commit is contained in:
dylan
2025-07-20 17:47:56 -04:00
parent 169119a739
commit 118c110ad3
1 changed files with 77 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files
dashboard.Rmd
+77 -11
View File
@@ -284,6 +284,23 @@ storm_track <- reactive({
# Preprocess the track data with colors
result <- result %>%
mutate(
hurricane_category = case_when(
# Hurricane Cat 1
windspeed >= 64 & windspeed <= 82 ~ 1,
# Hurricane Cat 2
windspeed >= 83 & windspeed <= 95 ~ 2,
# Hurricane Cat 3
windspeed >= 96 & windspeed <= 112 ~ 3,
# Hurricane Cat 4
windspeed >= 113 & windspeed <= 136 ~ 4,
# Hurricane Cate 5
windspeed >= 137 ~ 5,
),
line_color = case_when(
# Tropical Depression - Green
@@ -293,19 +310,19 @@ storm_track <- reactive({
storm_status == "TS" ~ "#FFED2C",
# Hurricane Cat 1 - Red
windspeed >= 64 & windspeed <= 82 ~ "#FF4343",
hurricane_category == 1 ~ "#FF4343",
# Hurricane Cat 2 - Pink
windspeed >= 83 & windspeed <= 95 ~ "#FF6FFF",
hurricane_category == 2 ~ "#FF6FFF",
# Hurricane Cat 3 - Magenta
windspeed >= 96 & windspeed <= 112 ~ "#FF23D3",
hurricane_category == 3 ~ "#FF23D3",
# Hurricane Cat 4 - Purple
windspeed >= 113 & windspeed <= 136 ~ "#C916FF",
hurricane_category == 4 ~ "#C916FF",
# Hurricane Cate 5 - White
windspeed >= 137 ~ "#FFFFFF",
hurricane_category == 5 ~ "#FFFFFF",
# Extratropical Cyclone
storm_status == "EX" ~ "#000000",
@@ -329,16 +346,34 @@ storm_track <- reactive({
TRUE ~ "#CCCCCC"
),
line_stroke = case_when(
# Add dashed lines for certain storm_status
storm_status == "TD" ~ "0",
storm_status == "TS" ~ "0",
storm_status == "HU" ~ "0",
storm_status == "EX" ~ "0",
storm_status == "SD" ~ "0",
storm_status == "SS" ~ "0",
storm_status == "LO" ~ "5,10",
storm_status == "WV" ~ "5,10",
storm_status == "DB" ~ "5,10",
storm_status == "LO" ~ "5,5",
storm_status == "WV" ~ "5,5",
storm_status == "DB" ~ "5,5",
TRUE ~ "0"
),
popup_category = case_when(
storm_status == "TD" ~ "TD",
storm_status == "TS" ~ "TS",
hurricane_category == 1 ~ "H1",
hurricane_category == 2 ~ "H2",
hurricane_category == 3 ~ "H3",
hurricane_category == 4 ~ "H4",
hurricane_category == 5 ~ "H5",
storm_status == "EX" ~ "EX",
storm_status == "SD" ~ "SD",
storm_status == "SS" ~ "SS",
storm_status == "LO" ~ "LO",
storm_status == "WV" ~ "WV",
storm_status == "DB" ~ "DB",
TRUE ~ "NA"
)
) %>%
arrange(datetime)
@@ -406,7 +441,14 @@ output$track_map <- renderLeaflet({
radius = 2,
color = ~line_color,
fillOpacity = 1,
popup = ~storm_status
popup = ~paste0("<b>DATE</b>", "<br>",
datetime, "<br>",
"<b>CATEGORY</b>", "<br>",
popup_category, "<br>",
"<b>WINDSPEED</b>", "<br>",
windspeed, "kt", "<br>",
"<b>PRESSURE</b>", "<br>",
pressure, "mb")
)
landfall_data <- track_data %>%
@@ -422,7 +464,19 @@ output$track_map <- renderLeaflet({
weight = 0,
color = "red",
fillColor = "red",
fillOpacity = 1
fillOpacity = 1,
popup = ~paste0("<b>LANDFALL</b>", "<br>",
"<b>DATE</b>", "<br>",
datetime, "<br>",
"<b>CATEGORY</b>", "<br>",
popup_category, "<br>",
"<b>WINDSPEED</b>", "<br>",
windspeed, "kt", "<br>",
"<b>PRESSURE</b>", "<br>",
pressure, "mb", "<br>",
"<b>RMW</b>", "<br>",
rmw, "nm"
)
) %>%
addCircles(
data = landfall_data,
@@ -432,7 +486,19 @@ output$track_map <- renderLeaflet({
weight = 2,
color = "red",
fillColor = "red",
fillOpacity = 0.3
fillOpacity = 0.3,
popup = ~paste0("<b>LANDFALL</b>", "<br>",
"<b>DATE</b>", "<br>",
datetime, "<br>",
"<b>CATEGORY</b>", "<br>",
popup_category, "<br>",
"<b>WINDSPEED</b>", "<br>",
windspeed, "kt", "<br>",
"<b>PRESSURE</b>", "<br>",
pressure, "mb", "<br>",
"<b>RMW</b>", "<br>",
rmw, "nm"
)
)
}