add data population to calc

queries.R

@@ -58,7 +58,7 @@ view.all_conus_landfalls <- tbl(con, "all_conus_landfalls")
 view.hurdat_ids <- tbl(con, "hurdat_ids")
 view.all_lf_type_landfalls <- tbl(con, "all_lf_type_landfalls")
 view.lf_id_location <- tbl(con, "lf_id_location")
-
+view.lf_landfall_gis <- tbl(con, "lf_landfall_gis")
 #qry <- econ.storm_base_loss %>%
 #  left_join(view.hurdat_track, by = c("storm_basin", "storm_year", "storm_name"))
 
@@ -456,3 +456,27 @@ get_all_lf_type_landfalls <- function() {
 
   return(result)
 }
+
+# returns all storms and factors needed to normalize a lf type landfall
+get_all_lf_type_factors <- function() {
+  query <- view.lf_landfall_gis
+
+  result <- query %>% collect()
+
+  return(result)
+}
+
+# returns one storm and factors needed to normalize a lf type landfall
+get_lf_type_factors <- function(storm) {
+  query <- view.lf_landfall_gis %>%
+    filter(
+      storm_basin == storm$storm_basin,
+      storm_year == storm$storm_year,
+      storm_name == storm$storm_name,
+      full_lf_id == storm$full_lf_id
+    )
+
+  result <- query %>% collect()
+
+  return(result)
+}