diff --git a/app/server.R b/app/server.R index 1aa97cc..1dcb2c0 100644 --- a/app/server.R +++ b/app/server.R @@ -861,7 +861,7 @@ server <- function(input, output, session) { fatality_type %in% c("surf", "rip_current") ~ "Surf", fatality_type == "freshwater_floods" ~ "Freshwater Flood", fatality_type == "offshore" ~ "Offshore", - fatality_type == "storm_surge" ~ "Storm Surge", + fatality_type == "surge" ~ "Storm Surge", fatality_type == "tornado" ~ "Tornado", fatality_type == "unknown" ~ "Unknown", TRUE ~ NA_character_ @@ -890,20 +890,22 @@ server <- function(input, output, session) { ) } + global_max <- log1p(max(fatalities_mapped$fatality_count)) + 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 + domain = c(0, global_max) ) map <- map %>% addPolygons( data = cat_data, group = cat, - fillColor = ~ pal(fatality_count), - fillOpacity = 0.7, + fillColor = ~ pal(log1p(fatality_count)), + fillOpacity = 0.8, color = cat_color, weight = 1, popup = ~ paste0(name, ": ", fatality_count) @@ -938,7 +940,7 @@ server <- function(input, output, session) { fatality_type %in% c("surf", "rip_current") ~ "Surf", fatality_type == "freshwater_floods" ~ "Freshwater Flood", fatality_type == "offshore" ~ "Offshore", - fatality_type == "storm_surge" ~ "Storm Surge", + fatality_type == "surge" ~ "Storm Surge", fatality_type == "tornado" ~ "Tornado", fatality_type == "unknown" ~ "Unknown", TRUE ~ NA_character_ @@ -1009,7 +1011,7 @@ server <- function(input, output, session) { fatality_type %in% c("surf", "rip_current") ~ "Surf", fatality_type == "freshwater_floods" ~ "Freshwater Flood", fatality_type == "offshore" ~ "Offshore", - fatality_type == "storm_surge" ~ "Storm Surge", + fatality_type == "surge" ~ "Storm Surge", fatality_type == "tornado" ~ "Tornado", fatality_type == "unknown" ~ "Unknown", TRUE ~ NA_character_