add lfs and lat/lon to calc

This commit is contained in:
2025-08-02 21:31:53 -04:00
parent 013937bfb2
commit d302d2c59d
2 changed files with 109 additions and 60 deletions
+2 -1
View File
@@ -57,6 +57,7 @@ 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")
view.all_lf_type_landfalls <- tbl(con, "all_lf_type_landfalls")
view.lf_id_location <- tbl(con, "lf_id_location")
#qry <- econ.storm_base_loss %>%
# left_join(view.hurdat_track, by = c("storm_basin", "storm_year", "storm_name"))
@@ -449,7 +450,7 @@ get_normalized_metric_growth <- function(storm, full_lf_id) {
# returns all lf type landfalls
get_all_lf_type_landfalls <- function() {
query <- view.all_lf_type_landfalls
query <- view.lf_id_location
result <- query %>% collect()