update all storms fatality ui

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