modify storm selector selected storm info

app/server.R

@@ -27,6 +27,10 @@ server <- function(input, output, session) {
         select(1, 2, data)
     }
 
+  output$dt_storm_badges <- renderUI({
+    div(HTML(dt_storm_selected()$data))
+  })
+
   output$storm_coverage_table <- renderDT({
     datatable(
       storm_coverage,
@@ -52,12 +56,48 @@ server <- function(input, output, session) {
   })
 
   output$dt_storm_name_year <- renderText({
-    paste0(
-      dt_storm_selected()$storm_name,
-      " (",
-      dt_storm_selected()$storm_year,
-      ")"
+    if (is.null(input$storm_coverage_table_rows_selected)) {
+      "Select a storm"
+    } else {
+      paste0(
+        dt_storm_selected()$storm_name,
+        " (",
+        dt_storm_selected()$storm_year,
+        ")"
+      )
+    }
+  })
+
+  best_track_summary <- reactive({
+    req(input$storm_coverage_table_rows_selected)
+
+    storm <- list(
+      storm_basin = "AL",
+      storm_year = dt_storm_selected()$storm_year,
+      storm_name = dt_storm_selected()$storm_name
     )
+
+    get_best_track_summary(storm)
+  })
+
+  normalized_loss_summary <- reactive({
+    req(input$storm_coverage_table_rows_selected)
+
+    storm <- list(
+      storm_year = dt_storm_selected()$storm_year,
+      storm_name = dt_storm_selected()$storm_name
+    )
+
+    get_latest_aggregate_loss(storm)
+  })
+
+  output$dt_mmh_loss <- renderText({
+    normalized_loss_summary()$mmh
+    #dollar(
+    #  normalized_loss_summary()$mmh,
+    #  prefix = "$",
+    #  scale_cut = cut_short_scale()
+    #)
   })
 
   output$selected_storm_name_year <- renderText({