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

add downloadable datasets ui

Browse Source
This commit is contained in:
dylan
2026-04-16 15:39:08 -04:00
parent d99257162f
commit f87809601a
2 changed files with 100 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
app/global.R
+5 -4
View File
@@ -27,6 +27,7 @@ library(shinyWidgets)
library(paletteer)
library(shinyjs)
library(quarto)
library(bsicons)
APP_DIR <- getwd()
@@ -79,10 +80,10 @@ storm_coverage <- get_storm_data_coverage() %>%
has_cost_data
)
dt_yr_range <- range(storm_coverage$storm_year, na.rm = TRUE)
dt_death_max <- max(storm_coverage$total_direct_deaths, na.rm = TRUE)
dt_mmh_max <- max(storm_coverage$mmh, na.rm = TRUE)
dt_mmp_max <- max(storm_coverage$mmp, na.rm = TRUE)
dt_yr_range <- range(storm_coverage$storm_year, na.rm = TRUE)
dt_death_max <- max(storm_coverage$total_direct_deaths, na.rm = TRUE)
dt_mmh_max <- max(storm_coverage$mmh, na.rm = TRUE)
dt_mmp_max <- max(storm_coverage$mmp, na.rm = TRUE)
onStop(function() {
poolClose(con)