add all storms table

dashboard.Rmd

@@ -243,7 +243,7 @@ observeEvent(input$selectStorm, {
 ```{r}
 output$normalized_storms_table <- renderDT({
   datatable(
-    latest_normalized_losses,
+    latest_normalized_losses %>% select(-hurdatId),
     rownames = F,
     colnames = c("Storm", "Year", "MMH24", "MMP24"),
     selection = "single",
@@ -366,8 +366,7 @@ Col {data-width=500}
 fluidRow(
   column(6,
          HTML('
-         <h6>Katrina recorded 1,392 fatalities</h6>
-         <p>Surge: 387</p>
+         
          ')
   ),
   column(6,
@@ -591,12 +590,32 @@ Sandbox {data-navmenu="Compute"}
 Data {data-navmenu="Compute"}
 ===
 
-Top 50 Storms 
+All Storms Table
 ===
 ```{r}
 
 #DT with storm, hurdatid, base damage, mmh, mmp, maybe multipliers?, sparkline?
 
+output$normalized_storms_full_table <- renderDT({
+  datatable(
+    latest_normalized_losses,
+    rownames = F,
+    colnames = c("HURDAT Code", "Storm", "Year", "MMH24", "MMP24"),
+    selection = "none",
+    options = list(
+      pageLength = 20,
+      order = list(0, 'asc'),
+      #searching = F,
+      #paging = F,
+      #info = F,
+      #lengthChange = F,
+      server = T
+    )
+  ) %>% 
+    formatCurrency(c("mmh", "mmp"), "$", digits = 0)
+})
+
+DTOutput("normalized_storms_full_table")
 
 
 ```