From cc31f32390ae3ad56df84a78547c53f6e917daa9 Mon Sep 17 00:00:00 2001
From: dylanbenzi <dylanbenzi@gmail.com>
Date: Thu, 31 Jul 2025 19:12:09 -0400
Subject: [PATCH] add view to get all hurdat ids

---
 queries.R | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/queries.R b/queries.R
index 9d255c7..efb7f15 100644
--- a/queries.R
+++ b/queries.R
@@ -55,6 +55,7 @@ view.yearly_normalized_losses <- tbl(con, "yearly_normalized_losses")
 view.simplified_county_geom <- tbl(con, "simplified_county_geom")
 view.all_loss_storms_tracks <- tbl(con, "all_loss_storms_tracks")
 view.all_conus_landfalls <- tbl(con, "all_conus_landfalls")
+view.hurdat_ids <- tbl(con, "hurdat_ids")
 
 #qry <- econ.storm_base_loss %>%
 #  left_join(view.hurdat_track, by = c("storm_basin", "storm_year", "storm_name"))
@@ -110,6 +111,14 @@ get_all_loss_storms <- function() {
   return(result)
 }
 
+get_all_hurdat_ids <- function() {
+  query <- view.hurdat_ids
+
+  result <- query %>% collect()
+
+  return(result)
+}
+
 # returns a list of latest normalized losses
 get_latest_aggregate_losses <- function() {
   query <- view.all_normalized_losses