dylan/hurricane_normalization_app
1
0
Fork 0
mirror of https://github.com/dylanbenzi/hurricane_normalization_app.git synced 2026-07-30 05:08:57 +00:00
Code Issues Packages Projects Releases Wiki Activity

update db calls to use new 2024 normalization data

Browse Source
This commit is contained in:
dylan
2025-09-21 12:44:47 -04:00
parent fd917e4106
commit 4140a50ee2
2 changed files with 2 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
dashboard.Rmd
-3
View File
@@ -11,9 +11,6 @@ output:
--- ---
```{r global, include=FALSE} ```{r global, include=FALSE}
# TODO:
# - update normalization to new 2024 data
# -
library(flexdashboard) library(flexdashboard)
library(shiny) library(shiny)
queries.R
+2 -2
View File
@@ -26,7 +26,7 @@ con <- dbConnect(
# DB TABLES # DB TABLES
econ.normalized_landfalls <- tbl(con, I("econ.normalized_landfalls")) econ.normalized_landfalls <- tbl(con, I("econ.all_normalized_landfalls"))
econ.storm_base_loss <- tbl(con, I("econ.storm_base_loss")) econ.storm_base_loss <- tbl(con, I("econ.storm_base_loss"))
econ.usa_yearly <- tbl(con, I("econ.usa_yearly")) econ.usa_yearly <- tbl(con, I("econ.usa_yearly"))
@@ -51,7 +51,7 @@ view.all_normalized_losses <- tbl(con, "all_normalized_losses")
view.hurdat_track <- tbl(con, "hurdat_track") view.hurdat_track <- tbl(con, "hurdat_track")
view.all_loss_storms <- tbl(con, "all_loss_storms") view.all_loss_storms <- tbl(con, "all_loss_storms")
view.all_loss_landfalls <- tbl(con, "all_loss_landfalls") view.all_loss_landfalls <- tbl(con, "all_loss_landfalls")
view.yearly_normalized_losses <- tbl(con, "yearly_normalized_losses") view.yearly_normalized_losses <- tbl(con, "all_yearly_normalized_losses")
view.simplified_county_geom <- tbl(con, "simplified_county_geom") view.simplified_county_geom <- tbl(con, "simplified_county_geom")
view.all_loss_storms_tracks <- tbl(con, "all_loss_storms_tracks") view.all_loss_storms_tracks <- tbl(con, "all_loss_storms_tracks")
view.all_conus_landfalls <- tbl(con, "all_conus_landfalls") view.all_conus_landfalls <- tbl(con, "all_conus_landfalls")