add all storms table

2026-07-30 05:08:57 +00:00 · 2025-06-10 13:06:18 -04:00
parent 2e5bf0eebb
commit d653271142
2 changed files with 28 additions and 8 deletions
@@ -113,11 +113,12 @@ get_latest_aggregate_losses <- function() {
      .groups = "drop"
    ) %>% 
    filter(!is.na(mmh) & !is.na(mmp)) %>% 
+    left_join(hurdat.hurdat_storms, by = c("storm_basin", "storm_year", "storm_name")) %>% 
+    mutate(
+      hurdatId = paste0(storm_basin, storm_number, storm_year)
+    ) %>% 
    select(
-      storm_name,
-      storm_year,
-      mmh,
-      mmp
+      hurdatId, storm_name, storm_year, mmh, mmp 
    )
  
  result <- query %>% collect()