From d026f6bc71e1f4f90cb9909aa71bec7d0b745082 Mon Sep 17 00:00:00 2001
From: dylanbenzi <dylanbenzi@gmail.com>
Date: Sun, 15 Jun 2025 13:24:42 -0400
Subject: [PATCH] add test storm queries

---
 queries.R | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/queries.R b/queries.R
index 1fb608e..45fb2da 100644
--- a/queries.R
+++ b/queries.R
@@ -43,6 +43,15 @@ metrics.pop_and_housing <- tbl(con, I("metrics.pop_and_housing"))
 
 public.counties <- tbl(con, I("public.counties"))
 
+# test storm
+test_storm <- list(
+  storm_basin = "AL",
+  storm_year = 2005,
+  storm_name = "KATRINA",
+  lf_type = "LF",
+  lf_id = 1
+)
+
 # helper functions
 
 # splits full_lf_id into lf_type and lf_id 
@@ -229,7 +238,7 @@ get_hurdat_landfalls <- function(storm) {
 }
 
 # returns storm track from HURDAT
-get_hurdat_track <- function(storm) {
+get_hurdat_track <- function(storm, con = con, hurdat.best_track = hurdat.best_track) {
   #Sys.sleep(5)
   
   query <- hurdat.best_track %>%