update conus storm landfalls query

2026-07-30 05:08:57 +00:00 · 2025-07-14 15:42:57 -04:00
parent 251b40f20a
commit 828973121d
2 changed files with 14 additions and 2 deletions
@@ -106,6 +106,8 @@ latest_normalized_losses <- get_latest_aggregate_losses()

 all_storm_tracks <- get_all_hurdat_tracks()

+all_conus_landfalls <- get_all_conus_landfalls()
+
 all_storm_landfalls <- all_storm_tracks %>% 
  filter(record_identifier == "L")

@@ -787,7 +789,7 @@ output$all_storms_map <- renderLeaflet({
    #color = "blue"
  #) %>% 
  addCircleMarkers(
-    data = all_storm_landfalls,
+    data = all_conus_landfalls,
    lng = ~lon,
    lat = ~lat,
    radius = 2,
@@ -798,7 +800,7 @@ output$all_storms_map <- renderLeaflet({
    fillOpacity = 0.5
  ) %>% 
  addCircles(
-    data = all_storm_landfalls,
+    data = all_conus_landfalls,
    lng = ~lon,
    lat = ~lat,
    radius = ~rmw_meters,