update storm coverage table functionality

app/server.R

@@ -20,6 +20,7 @@ server <- function(input, output, session) {
         )
       ))
     ) %>%
+    mutate(total_direct_deaths = as.integer(total_direct_deaths)) %>%
     select(
       hurdatid,
       storm_name,
@@ -65,7 +66,7 @@ server <- function(input, output, session) {
       selection = "single",
       options = list(
         pageLength = 1000,
-        order = list(0, 'desc'),
+        order = list(4, 'desc'),
         searching = F,
         paging = F,
         info = F,
@@ -872,30 +873,40 @@ server <- function(input, output, session) {
       left_join(state_geoms, by = "state_fips") %>%
       st_as_sf(wkt = "geom_wkt", crs = 4326)
 
-    active_categories <- intersect(names(category_colors), unique(fatalities_mapped$category))
+    active_categories <- intersect(
+      names(category_colors),
+      unique(fatalities_mapped$category)
+    )
 
     map <- leaflet() %>%
       addProviderTiles("Stadia.AlidadeSmooth")
 
     tint <- function(hex, factor = 0.8) {
       v <- col2rgb(hex) / 255
-      rgb(v[1] + (1 - v[1]) * factor, v[2] + (1 - v[2]) * factor, v[3] + (1 - v[3]) * factor)
+      rgb(
+        v[1] + (1 - v[1]) * factor,
+        v[2] + (1 - v[2]) * factor,
+        v[3] + (1 - v[3]) * factor
+      )
     }
 
     for (cat in active_categories) {
       cat_data <- fatalities_mapped %>% filter(category == cat)
       cat_color <- category_colors[[cat]]
-      pal <- colorNumeric(c(tint(cat_color), cat_color), domain = cat_data$fatality_count)
+      pal <- colorNumeric(
+        c(tint(cat_color), cat_color),
+        domain = cat_data$fatality_count
+      )
 
       map <- map %>%
         addPolygons(
           data = cat_data,
           group = cat,
-          fillColor = ~pal(fatality_count),
+          fillColor = ~ pal(fatality_count),
           fillOpacity = 0.7,
           color = cat_color,
           weight = 1,
-          popup = ~paste0(name, ": ", fatality_count)
+          popup = ~ paste0(name, ": ", fatality_count)
         )
     }
 
@@ -952,7 +963,15 @@ server <- function(input, output, session) {
       mutate(
         category = factor(
           category,
-          levels = c("Freshwater Flood", "Offshore", "Storm Surge", "Surf", "Tornado", "Wind", "Unknown")
+          levels = c(
+            "Freshwater Flood",
+            "Offshore",
+            "Storm Surge",
+            "Surf",
+            "Tornado",
+            "Wind",
+            "Unknown"
+          )
         ),
         state_label = factor(
           state_label,

app/ui.R

@@ -10,7 +10,6 @@ ui <- page_navbar(
   nav_panel(
     "Home",
     card(
-      "Welcome to the Tropical Cyclone Database",
       HTML(
         '
       <h4>Welcome to the Hurricane Cost Normalization Web App</h4>
@@ -104,7 +103,7 @@ ui <- page_navbar(
               )
             )
           ),
-          actionButton("load_storm", "Load Storm")
+          actionButton(class = "btn-primary", "load_storm", "Load Storm")
         ),
         card(
           height = 700,