From e5d73c8e5b6cc2efacc4e6a9646ff3205d695138 Mon Sep 17 00:00:00 2001 From: dylanbenzi Date: Sat, 19 Jul 2025 23:58:16 -0400 Subject: [PATCH] update all storms fatality ui --- dashboard.Rmd | 43 +++++++++++++++++++++++++++++-------------- 1 file changed, 29 insertions(+), 14 deletions(-) diff --git a/dashboard.Rmd b/dashboard.Rmd index 278af80..02e76c4 100644 --- a/dashboard.Rmd +++ b/dashboard.Rmd @@ -1048,16 +1048,8 @@ leafletOutput("all_storms_map", height = "100%") Fatalities {data-navmenu="All Storms"} === -### {} -```{r} -# TODO: add all storms fatality data and charting -``` - -Column {data-width=500} ---- - ### {data-height=500} -```{r} +```{r eval=FALSE, include=FALSE} fatality_years <- seq(1900, 2010, by = 10) direct_deaths <- c(6000, 275, 0, 408, 26, 654, 466, 213, 104, 228, 1136, 321) indirect_deaths <- c(0, 0, 0, 0, 0, 1, 8, 15, 40, 54, 1171, 368) @@ -1082,7 +1074,7 @@ dygraphOutput("decade_fatalities") ``` ### {data-height=500} -```{r} +```{r eval=FALSE, include=FALSE} surge_yearly <- c(0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 410, 107) surf_yearly <- c(0, 0, 0, 0, 0, 0, 0, 14, 2, 12, 12, 17) rough_seas_yearly <- c(0, 0, 0, 0, 16, 0, 2, 0, 24, 17, 0, 14) @@ -1125,11 +1117,8 @@ output$decade_fatalities_type <- renderDygraph( dygraphOutput("decade_fatalities_type") ``` -Column {data-width=500} ---- - ### {data-height=500} -```{r} +```{r eval=FALSE, include=FALSE} fatality_type <- c("Surge", "Surf", "Rough Seas", "Rip Current", "Floods", "Wind", "Tree Fall", "Tornado", "Traffic", "Traffic Accident", "Electrocution", "Other") fatality_totals <- c(520, 56, 77, 23, 826, 131, 91, 88, 10, 45, 16, 56) @@ -1145,7 +1134,33 @@ billboarderOutput("aggregate_fatalities") ``` ### {data-height=500} +```{r eval=FALSE, include=FALSE} +``` + +Column {data-width=500 .tabset} +--- + +### Fatality Map {} ```{r} + +``` + +### Fatality Geo Data {} +```{r} + +``` + +Column {data-width=500} +--- + +### Perils {data-height=500} +```{r} + +``` + +### Trends {data-height} +```{r} + ``` About