add test storm queries

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 %>%