add landfall map to all storms

queries.R

@@ -50,6 +50,12 @@ view.all_loss_storms <- tbl(con, "all_loss_storms")
 view.all_loss_landfalls <- tbl(con, "all_loss_landfalls")
 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")
+
+#qry <- econ.storm_base_loss %>% 
+#  left_join(view.hurdat_track, by = c("storm_basin", "storm_year", "storm_name"))
+
+#show_query(qry)
 
 # test storm
 #katrina <- list(
@@ -175,6 +181,15 @@ get_hurdat_landfalls <- function(storm) {
   return(result)
 }
 
+# returns all storm tracks from HURDAT
+get_all_hurdat_tracks <- function() {
+  query <- view.all_loss_storms_tracks
+  
+  result <- query %>% collect()
+  
+  return(result)
+}
+
 # returns storm track from HURDAT
 get_hurdat_track <- function(storm) {
   query <- view.hurdat_track %>%