diff --git a/dashboard.Rmd b/dashboard.Rmd index 02d2752..8d1463d 100644 --- a/dashboard.Rmd +++ b/dashboard.Rmd @@ -11,9 +11,6 @@ output: --- ```{r global, include=FALSE} -# TODO: -# - update normalization to new 2024 data -# - library(flexdashboard) library(shiny) diff --git a/queries.R b/queries.R index 100f56a..75583e7 100644 --- a/queries.R +++ b/queries.R @@ -26,7 +26,7 @@ con <- dbConnect( # 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.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.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.yearly_normalized_losses <- tbl(con, "all_yearly_normalized_losses") view.simplified_county_geom <- tbl(con, "simplified_county_geom") view.all_loss_storms_tracks <- tbl(con, "all_loss_storms_tracks") view.all_conus_landfalls <- tbl(con, "all_conus_landfalls")