add input filtering to coverage table

app/global.R

@@ -46,6 +46,44 @@ all_conus_landfalls <- get_all_conus_landfalls()
 
 all_lf_type_storms <- get_all_lf_type_landfalls()
 
+storm_coverage <- get_storm_data_coverage() %>%
+  mutate(
+    data = trimws(paste(
+      "<span class=\"badge bg-primary\">HURDAT2</span>",
+      ifelse(
+        as.logical(has_fatality_data),
+        "<span class=\"badge bg-danger\">Fatality</span>",
+        ""
+      ),
+      ifelse(
+        as.logical(has_cost_data),
+        "<span class=\"badge bg-success\">Cost</span>",
+        ""
+      )
+    ))
+  ) %>%
+  mutate(total_direct_deaths = as.integer(total_direct_deaths)) %>%
+  select(
+    hurdatid,
+    storm_name,
+    storm_year,
+    data,
+    mmh,
+    mmp,
+    total_direct_deaths,
+    total_observations,
+    max_category,
+    max_windspeed,
+    min_pressure,
+    has_fatality_data,
+    has_cost_data
+  )
+
+dt_yr_range   <- range(storm_coverage$storm_year, na.rm = TRUE)
+dt_death_max  <- max(storm_coverage$total_direct_deaths, na.rm = TRUE)
+dt_mmh_max    <- max(storm_coverage$mmh, na.rm = TRUE)
+dt_mmp_max    <- max(storm_coverage$mmp, na.rm = TRUE)
+
 onStop(function() {
   poolClose(con)
 })