mirror of
https://github.com/dylanbenzi/hurricane_normalization_app.git
synced 2026-07-30 05:08:57 +00:00
add lfs and lat/lon to calc
This commit is contained in:
@@ -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()
|
||||
|
||||
|
||||
Reference in New Issue
Block a user